?? changepassword2.asp
字號:
<%
'********************************************
'** FileName: ChangePassword2.asp
'** Author: Zhou Bo Email:bestfangli@china.com
'** Date: 2001-03-04
'** Description:
'**
'********************************************
%>
<!--#include file="inc.asp"-->
<%
dim MailServer,UserName,OldPassword,NewPassword,NewPassword2
UserName=session("UserName")
OldPassword=request("txtOldPassword")
NewPassword=request("txtNewPassword")
NewPassword2=request("txtNewPassword2")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>User Add</title>
</head>
<body>
<center>
<font color=blue size=6><b>XMail Web Mail System v0.0.1</b></font>
<hr width="60%" color=red>
</center>
<center>
<%
set xmailadmin=nothing
Set xmailadmin = Server.CreateObject("eyeXMail.CtrlClnt")
xmailadmin.ServerAddress = ServerAddress
xmailadmin.ServerPort = ServerPort
xmailadmin.ServerUserID = cpUserID
xmailadmin.ServerPassword = cpUserPass
xmailAdmin.command=2
xmailAdmin.addParameter(session("MailServer"))
xmailAdmin.execute
i=xmailAdmin.ResultCount
for j=0 to i-1
temp=xmailadmin.getResultByIndex(j)
temp2=xmailadmin.ExtractFieldFromResult(temp,2)
if temp2=UserName then
temp3=xmailadmin.ExtractFieldFromResult(temp,3)
if temp3<>OldPassword then
response.write "Old Password Wrong"
response.end
end if
end if
next
%>
<%
if NewPassword<>NewPassword2 then
response.write "Password Confirm Error"
else
xmailadmin.clearParameters
xmailadmin.command=3
'xmailadmin.ClearParameters
xmailadmin.addparameter(MailAddress)
xmailadmin.addparameter(UserName)
xmailadmin.addparameter(NewPassword)
xmailadmin.execute
xmailadmin.clearparameters
'response.write session("mailServer") & ":" & username & ":" & Password & ":" & usertype
response.write xmailadmin.resultcode & "--" & xmailadmin.result
end if
%>
</center>
<center>
</center>
<!--#include file="bottom.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -