?? login.asp
字號(hào):
<!--#include file="conn.inc"-->
<%
Option1=Request("Option")
UserID=Request("UserID")
password=Request.Form("Password")
function loginNow()
if Option1="企業(yè)(單位)登錄" then
sql="select * from user_info1 where UserID='"&request("UserID")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
elseif Option1="個(gè)人登錄" 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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -