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

gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\email_change.asp

    <%@ Language=VBScript %>
<%
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	
	num = Request.Form("num")
	num = replace(num,"'","''")
	passwd = Request.Form("passwd")
	passwd = replace(passwd,"'","''")
	
	email = Request.Form("email")
	
	sql ="select * from student where num='" & num & "' and passwd ='" & passwd & "'"
	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 email='" & email & "' where num='"  & num & "'"
	conn.Execute sql

	sql ="select * from student where num='" & num & "'"
	set rs = server.CreateObject("adodb.recordset")
	rs.Open sql,conn
	
%>
<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="50%" align=center>
  
  <TR>
    <TD align=center><b><div class="zTitle">Email修改成功!</div></b></TD>
  <TR>
  </table><br>
  <TABLE border=0 cellPadding=1 cellSpacing=1 width="50%"  align=center>
  <TR>
    <TD>学号：</TD>
    <TD><%=rs("num")%></TD>
  <TR>
  <TR>
    <TD>姓名：</TD>
    <TD><%=rs("name")%></TD>
  <TR>
  <TR>
    <TD>Email：</TD>
    <TD><%=rs("email")%></TD>
  <TR>
</table>
<TABLE border=0 cellPadding=1 cellSpacing=1 width="75%"  align=center>
   <TR>
    <TD align=center><INPUT type="button" name=cancel value="确定" onclick="javascript:window.location='uploadform.asp';"></TD></TR>
</TABLE></P>

</BODY>
</HTML>
<%
	rs.Close
	set rs=nothing
	conn.Close
	set conn = nothing
%>