<%
HtmlTop
if Request.Form("menu")="OUT" then
Conn.execute("Delete from [BBSXP_UserOnline] where sessionid='"&session.sessionid&"'")
CleanCookies()
elseif Request.ServerVariables("Request_method") = "POST" then
UserName=HTMLEncode(Request.Form("UserName"))
UserPass=Trim(Request.Form("Userpass"))
if UserName=empty then error("用户名没有输入")
sql="select * from [admin] where UserName='"&UserName&"'"
rs.Open sql,Conn,1,3
if Rs.eof then error("不存在此管理员")
if rs("stuname")<>"管理员" then error("除管理员外任何人都不允许登录！")
if UserPass<>Rs("StuPassWord") then error("您输入的密码错误")
rs.close
session("admin")="true"
response.redirect ("Admin_Default.asp")
end if
%>
<%ClubTree%> → 登录论坛后台管理系统
<%
HtmlBottom
%>