<%
end sub
sub admin_login()
stats="论坛管理登陆"
if not founduser then
Errmsg="
您不是系统管理员！"
founderr=true
end if
if founderr then
call nav()
call head_var(2,0,"","")
call dvbbs_error()
call footer()
else
if request("reaction")="chklogin" then
call chklogin()
if founderr then
call nav()
call head_var(2,0,"","")
call Dvbbs_error()
call footer()
end if
else
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
call admin_login_main()
end if
end if
end sub
sub admin_login_main()
%>
<%=Forum_info(0)%>--<%=stats%><%=Forum_info(0)%>--<%=stats%>
<%
call footer()
end sub
sub chklogin()
username=trim(replace(request("username"),"'",""))
password=md5(trim(replace(request("password"),"'","")))
if request("verifycode")="" then
errmsg=errmsg+" "+"
请返回输入确认码。
返回后请刷新登陆页面后重新输入正确的信息。"
founderr=true
elseif session("verifycode")="" then
errmsg=errmsg+" "+"
请不要重复提交，如需重新登陆请返回登陆页面。
返回后请刷新登陆页面后重新输入正确的信息。"
founderr=true
elseif session("verifycode")<>trim(request("verifycode")) then
errmsg=errmsg+" "+"
您输入的确认码和系统产生的不一致，请重新输入。
返回后请刷新登陆页面后重新输入正确的信息。"
founderr=true
end if
session("verifycode")=""
if username="" or password="" then
founderr=true
Errmsg=Errmsg+" "+"
请输入您的用户名或密码。
返回后请刷新登陆页面后重新输入正确的信息。"
end if
if founderr then exit sub
ip=replace(Request.ServerVariables("REMOTE_ADDR"),"'","")
set rs=conn.execute("select * from admin where username='"&username&"' and adduser='"&membername&"'")
if rs.eof and rs.bof then
rs.close
set rs=nothing
founderr=true
Errmsg=Errmsg+" "+"
返回后请刷新登陆页面后重新输入正确的信息。"
exit sub
else
session("flag")=rs("flag")
session.timeout=45
conn.execute("update admin set LastLogin=Now(),LastLoginIP='"&ip&"' where username='"&username&"'")
rs.close
set rs=nothing
response.write ""
end if
end if
end sub
sub admin_main()
%>
<%=Forum_info(0)%>--管理页面
<%
if not master or session("flag")="" then
Errmsg=Errmsg+" "+"
Copyright (c) 2001-2002 AspSky.Net. All Rights Reserved .
<%
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
sub admin_head()
%>
<%=Forum_info(0)%>--管理页面
