?? 用戶密碼修改.asp
字號:
<!--#include virtual="/school/public/CheckUrl.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>用戶密碼修改 歡迎使用欣科軟件</title>
</head>
<body background="../images/Bkg35.jpg">
<p><font color="#0000ff" size="6">用戶密碼修改</font><img src="../images/pas.bmp"
width="700"></p>
<div align="center">
<p>
<object classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33" height="14" id="RDS1"
style="HEIGHT: 2px; WIDTH: 8px" width="14">
<param name="ExecuteOptions" value="2">
<param name="FetchOptions" value="3">
<param name="SortDirection" value="-1">
<param name="InternetTimeout" value="300000">
</object>
</p>
<table border="0" cellpadding="0" cellspacing="0" width="367" bgcolor="#FED5C9">
<tr>
<td width="355" valign="center"><font face="楷體_GB2312" size="4"><strong>用 戶 名:</strong></font>
<input name="username" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px" size="20"><p><font
face="楷體_GB2312" size="4"><strong>舊 密 碼:</strong></font> <input name="oldpass"
style="FONT-FAMILY: 宋體; FONT-SIZE: 17px" size="20"></p>
<p><font face="楷體_GB2312" size="4"><strong>新 密 碼:</strong></font> <input
type="password" name="USERPASS" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px" size="20"></p>
<p><font face="楷體_GB2312" size="4"><strong>確認密碼:</strong></font> <input
type="password" name="ENTERPASS" style="FONT-FAMILY: 宋體; FONT-SIZE: 17px" size="20"></p>
<p align="center"><input type="button" value="修改密碼" name="insert"
onclick="insert_click()" onclick="insert_click()"
style="FONT-FAMILY: 宋體; FONT-SIZE: 15px"> <input type="reset"
value="重 寫" name="CANCLE" onclick="cancle_click()"
style="FONT-FAMILY: 宋體; FONT-SIZE: 15px"></td>
</tr>
</table>
</div><script language="vbscript">
username.value="<%=session("tusername")%>"
sub insert_click()
rds1.Server = "http://<%=request.servervariables("server_name")%>"
rds1.Connect = "database=school;uid=sa;pwd=;dsn=school"
if len(rtrim(oldpass.value))=0 or trim(oldpass.value)="" then
msgbox "用戶舊密碼不能為空,請輸入用戶舊密碼!",,"提示窗口"
exit sub
END IF
rds1.SQL="SELECT * FROM USERSET WHERE 用戶名='"&trim(username.value)&"' and 用戶口令='"&trim(left(oldpass.value,8))&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
if rds1.Recordset.recordcount>0 then
else
msgbox "舊用戶口令輸入錯誤,請重新輸入!",,"提示窗口"
exit sub
end if
IF TRIM(USERPASS.value)<>TRIM(ENTERPASS.value) THEN
msgbox "確認密碼輸入錯誤,請重新輸入!",,"提示窗口"
exit sub
end if
rds1.SQL="update USERSET set 用戶口令='"&TRIM(LEFT(USERPASS.VALUE,8))&"' where 用戶名='"&trim(username.value)&"'"
rds1.ExecuteOptions = 1
rds1.Refresh
IF err.number=0 THEN
MSGBOX "修改密碼成功!",,"提示窗口"
END IF
end sub
sub cancle_click()
oldpass.value=""
userpass.value=""
enterpass.value=""
end sub
</script>
<p align="right"><a href="用戶管理.asp"><img src="../images/back.gif" border="0" alt="返回用戶管理主頁"></a>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -