login.asp

数据库应用技术的实验代码及相关文档,供有需要的人使用

<% Response.Buffer=True %>
<!--#include file="inc/dbconn.asp"--> 
<!--#include file="inc/enpasswd.inc"-->
<% uname=request("uname")
   pwd=mistake(request("pwd"))
   usertype=request("usertype")
   
   if usertype="person" then
   
   set rs=server.createobject("adodb.recordset")
   sql="select * from person where uname='"&uname&"' and pwd='"&pwd&"'"
   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
   session("puid")=uname
   response.Redirect "person/main.asp"
   end if 
   
   else
   
   set rs=server.createobject("adodb.recordset")
   sql="select * from company where uname='"&uname&"' and pwd='"&pwd&"'"
   rs.open sql,conn,3,3
   if rs.eof then
   response.write"<SCRIPT language=JavaScript>alert('错误的用户名或密码，请重新输入！');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   else
   session("cuid")=uname 
   response.Redirect "company/main.asp"
   end if
   end if %>