login.asp

欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆,注册和管理员入口"项目专为银行内部人员设计."客户登陆,注册,贷款须知和预约"项目专为客户设计.客户可通过这些窗口浏览

<!--#include file="conn.inc"-->
<%

Option1=Request("Option")
UserID=Request("UserID")
password=Request.Form("Password")
function loginNow()
  if Option1="企业（单位）登录" then

      sql="select * from user_info1 where UserID='"&request("UserID")&"'"
      set rs=server.createobject("ADODB.Recordset")
      rs.open sql,conn,1,1
  elseif  Option1="个人登录" then
      sql="select * from user_info where UserID='"&request("UserID")&"'"
      set rs=server.createobject("ADODB.Recordset")
      rs.open sql,conn,1,1
  end if

if not rs.eof then
   if Trim(password)=Trim(rs("Password")) then
         session("ISlogin")=1
         session("UserID")=UserID
         loginNow=1
         exit function
     else
         loginNow=0
         exit function
   end if
   else
   loginNow=-1  
end if
end function


 dim isuser
 dim location
 isuser=loginNow()
 
 
 if isuser=1 then
    response.redirect"../index.htm"
 elseif isuser=0 then
          response.redirect"error.asp?id=9"
 else
         response.redirect "error.asp?id=18"
 
 end if
%>