gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\passwd_change.asp
<%@ Language=VBScript %> <% set conn = server.CreateObject("adodb.connection") conn.Open application("dsn") num = Request.Form("num") newpass = Request.Form("newpass") oldpass = Request.Form("oldpass") oldpass = replace(oldpass,"'","''") sql ="select * from student where num='" & num & "' and passwd ='" & oldpass & "'" set rs = server.CreateObject("adodb.recordset") rs.Open sql,conn if rs.EOF then rs.Close set rs = nothing conn.Close set conn=nothing Response.Write "学号或密码不正确。" Response.End end if rs.Close set rs=nothing sql = "update student set passwd='" & newpass & "' where num='" & num & "'" conn.Execute sql conn.Close set conn = nothing %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <!-- #Include file="include\style.inc" --> </HEAD> <BODY> <p> <br><br><br><br><br> <TABLE border=0 cellPadding=1 cellSpacing=1 width="75%"> <TR> <TD align=center><div class="zTitle">密码修改成功!</div></TD> <TR> <TR> <TD align=center><INPUT type="cancel" name=cancel value="确定" onclick="javascript:window.location='uploadform.asp';"></TD></TR> </TABLE></P> </BODY> </HTML>