checkuser.asp

来自「（1）管理员能够实现会员管理 （2）教师管理 （3）资料管理及资料显示等操作」· ASP 代码 · 共 42 行

<% Response.Buffer=True %>
<!--#include file="inc/dbconn.inc"--> 

<% dim name,password,selectval
   name=trim(request("name"))
   password=trim(request("password"))
   selectval=trim(request("select"))
     
   set rs=server.createobject("adodb.recordset")
   if selectval="学生" then
      sql="select * from student where sname='"&name&"' and spassword='"&password&"'"
       rs.open sql,conn,3,3

       if rs.bof or rs.eof then
          response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
          response.write"javascript:history.go(-1)</SCRIPT>"
       else
	       response.cookies("sname")=rs("sname")
        
		 
     response.write"<SCRIPT language=JavaScript>this.location.href='smain.asp';</SCRIPT>"
	  
	     end if
   
       
  else
      sql="select * from teacher where tname='"&name&"' and tpassword='"&password&"'"
       rs.open sql,conn,3,3

       if rs.bof or rs.eof then
          response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
          response.write"javascript:history.go(-1)</SCRIPT>"
       else
          response.cookies("tname")=rs("tname")
		
       response.write"<SCRIPT language=JavaScript>this.location.href='tmain.asp';</SCRIPT>"
	
	    end if
  end if  
     
  %>