📄 xgai.asp
字号:
<html>
<body bgcolor=#c1f7d8>
<center>
<%
dim stroldpassword,strnewpassword,strconfirmpassword
dim strwhere,strsql,strchangesql
stroldpassword=request.form("oldpassword")
strnewpassword=request.form("newpassword")
strconfirmpassword=request.form("confirmpassword")
if stroldpassword="" or strnewpassword="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('请输入密码！');" & "history.back()" & "</script>"
Response.End
end if
if strnewpassword<>strconfirmpassword then
response.write "<script language=JavaScript>" & chr(13) & "alert('两次密码不相同！');" & "history.back()" & "</script>"
response.end
end if
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
DBPath = Server.MapPath("teacher.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
strsql="select * from admin where password='"&stroldpassword&"'"
strchangesql="update admin set password='"&strnewpassword&"'where password='"&stroldpassword&"'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,3
%>
<br>
<%
if rs.recordcount=1 then
set changes=server.createobject("adodb.recordset")
changes.open strchangesql,conn,1,3
set changes=nothing
response.write"密码已修改成功！"
%>
<tr>
<a href="dlu.asp">重新登陆请点击这里</a>
</tr>
<%
else
response.write "<script language=JavaScript>" & chr(13) & "alert('原始密码请输入错误，无法修改密码！');" & "history.back()" & "</script>"
end if
rs.close
set rs=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -