📄 用户密码修改.htm
字号:
<%
response.write session("TUserName")
%>
<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="pas.jpg" 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"
onclic="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">
msgbox <%=session("TUserName")%>
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(<%=session("tusername")%>)&"' 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="INSERT INTO USERSET(用户口令) VALUES('"&TRIM(LEFT(USERPASS.VALUE,8))&"') where 用户名='"&trim(<%=session("tusername")%>)&"' "
rds1.ExecuteOptions = 1
rds1.Refresh
IF err.number=0 THEN
MSGBOX "修改密码成功!",,"提示窗口"
END IF
end sub
sub cancle_click()
oldpass.value=""
userpass.value=""
enterpass.value=""
msgbox username.value
msgbox <%=session("TUserName")%>
end sub
</script>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -