login.asp

来自「大型人才程序网站程序」· ASP 代码 · 共 33 行

<% Response.Buffer=True %>
<!--#include file="inc/dbconn.inc"-->
<% uname=request("uname")
   pwd=request("pwd")
   usertype=request("usertype")

   if usertype="geren" then

   set rs=server.createobject("adodb.recordset")
   sql="select * from geren 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 "geren/main.asp"
   end if

   else
   set rs=server.createobject("adodb.recordset")
   sql="select * from danwei where loginmc='"&uname&"' and loginmm='"&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 "danwei/main.asp"
   end if
   
  
   end if %>