checkadmin.asp

来自「很好的一个论坛原代码」· ASP 代码 · 共 23 行

<%
if not session("sfadmin") then response.redirect("welcome.asp")

loginerr = true
StrSql = "select userid from sf_user where username = '" & session("sfadminname") & "' and password='" & session("sfadminpw") & "'"
Set rs = Conn.Execute(StrSql)
if not(rs.bof or rs.eof) then
	StrSql = "select * from sf_moderator where userid = " & rs("userid") & " and isadmin = 1"
	Set rs = Conn.Execute(StrSql)
	if not(rs.bof or rs.eof) then
		loginerr = false
	end if
end if

if loginerr then
	session("sfadmin") = false
	response.write "<TABLE width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" align=""center"">"
	response.write "<TR align=""center""><TD bgcolor=""#D1E3BF"">错误: 无法确认您的管理员身份, 请<A href=""welcome.asp""><U>重新输入管理员信息</U></A></TD></TR></TABLE>"
	response.write "</BODY></HTML>"
	response.end
end if
Conn.Execute(strsql)
%>