admin_loginchk.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="function.asp" -->
<%if request("action")="login" then
admin=trim(request("admin"))
passwd=trim(request("passwd"))

If admin="" Then
errmsg=errmsg+"<br>"+"<li>"+"管理员名不能为空！"
founderr=true
end if

If passwd="" Then
errmsg=errmsg+"<br>"+"<li>"+"管理员密码不能为空！"
founderr=true
end if

if founderr=true then
call error()
response.end
end if
Set ts = Server.CreateObject("ADODB.Recordset")
sql ="SELECT  * From admin where UserName='"&admin&"' and passwd='"&passwd&"'"
ts.open sql,Conn,1,1
if ts.eof then
errmsg=errmsg+"<br>"+"<li>"+"管理员名或者密码错误！"
founderr=true
call error()
response.end
end if

session("admin")=ts("username")
session("oskey")=ts("oskey")

ts.close
response.redirect"default.asp"
end if

if session("admin")="" or session("oskey")="" then
errmsg=errmsg+"<br>"+"<li>"+"你还没有登陆！"
errmsg=errmsg+"<br>"+"<li>"+"<a href=admin_login.asp>管理登陆</a>！"
founderr=true
call error()
response.end
end if 

function admin1()
if session("oskey")<>"super" then
call error2()
response.end
end if
end function

function admin2()
if session("oskey")="super" or  session("oskey")="input" then
else
call error2()
response.end
end if
end function

%>