passwd_change.asp ASP+ACCESS在线教育系统设计(源代码+论文) - ASP源码程序

www.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>