Вернуться к статье

Листинг 1. ChangePasswordEntry.asp.

NONEXECUTABLE
<%@ Language=VBScript %>





User Password Maintenance
 
Please enter your user name and New password below:


 
 

  
User Name
  


 

  
 Existing Password
  


 

  
 New Password 
  


 

 

Листинг 2. ChangePassword1.asp.

<%@ Language=VBScript %>
<%
A dim sUser, sPassword
  dim oUser, sConnectString
B sUser = request("txtUserName")
  sPassword = request("txtPassword")
  sNewPassword = request("txtNewPassword")
  if sUser = "" then Response.Redirect "ChangePasswordEntry.asp"
Response.Write "User name is: " & sUser & " - " & sPassword & "
"
Response.Write "New Password is: " & sNewPassword & "
"
C sConnectString = "WinNT://bigboat/" & sUser & ",user"
  Response.Write "Connect string: " & sConnectString & "
"
  Set oUser = GetObject(sConnectString)
Response.Write "Logon user: " & Request.ServerVariables("LOGON_USER") & "
"
Response.Write "User Password: " & Request.ServerVariables("AUTH_PASSWORD") & "
"
D oUser.ChangePassword sPassword, sNewPassword
set oUser = Nothing
%>

Вернуться к статье