?? xgai.asp
字號:
<html>
<body bgcolor=#c1f7d8>
<center>
<%
dim stroldpassword,strnewpassword,strconfirmpassword
dim strwhere,strsql,strdsn,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")
conn.open "driver={sql server};database=teacher;server=(local);uid=sa;pwd=810525"
strsql="select * from glyuan where password='"&stroldpassword&"'"
strchangesql="update glyuan 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 + -