📄 teacher_modify_password.asp

📁 系里的网站设计
💻 ASP
字号:
<HTML>
<HEAD>
	<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
	<TITLE>教工密码修改</TITLE>
    <STYLE type=text/css>
TD,p,b,font,pre,BODY {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px
}

FORM {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px; MARGIN-BOTTOM: 0px; MARGIN-TOP: 0px
}

A {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}

H4 {
	FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif", "宋体"; FONT-SIZE: 14px
}
HR {
	COLOR: #000000; HEIGHT: 1px
}


</STYLE>

</HEAD>
<BODY>

<%
function change (s)
	change = replace(replace(s,"'","''"),"""","""""")
end function

%>


<% 


set confirmpasswd= server.createobject("adodb.connection")
confirmpasswd.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./math_department.mdb")
set rpasswd = confirmpasswd.execute("select 密码 from base_inf where 姓名='" & request("t1_name") & "'")

if rpasswd.eof then
 	response.write "<p align=""center""><font size=6 color=#FF0000> 你没有账号!请先申请！ </font></p> "
 	 response.write "<input type='button' value='返回' onclick=history.back()>"

 	response.end
end if

if replace(rpasswd.fields("密码")," ","") <> request("t1_psw") then
 	response.write "<p align=""center""><font size=6 color=#FF0000> 密码不正确! </font></p> "
       response.write "<input type='button' value='重试' onclick=history.back()>"
       response.end
end if

If IsEmpty(request.form("t1_psw1")) or request.form("t1_psw1")="" then
	response.write "<center><b>您没有输入新密码."
	response.write "<form>"
	response.write "<input type='button' value='重试' onclick=history.back()>"
	response.write "</form>"
	response.end
End If

If request.Form("t1_psw1")<>request.form("t1_psw2") then
    response.write "<center><b>两次密码输入不一致."
	response.write "<form>"
	response.write "<input type='button' value='重试' onclick=history.back()>"
	response.write "</form>"
	response.end
End If

dim t1_name,t1_psw1,t1_psw2,rs
t1_psw1=change(request.form("t1_psw1"))
t1_psw2=change(request.form("t1_psw2"))
set conn = server.createobject("adodb.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("./math_department.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from base_inf where 姓名='" & request("t1_name") & "'" ,conn,1,3
rs("密码")=t1_psw1
rs("确认密码")=t1_psw2  
rs.update
rs.close
response.write "密码修改成功"   
%> 
<input type='button' value='返回' onclick="document.location='jgzl_2.htm'">
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -