validate.asp

ASP整套的建站源代码

<%
if Request.Cookies("username")="" then
response.redirect "login.asp"
end if

sql="select * from user where username='"&Request.Cookies("username")&"'"
rs.Open sql,Conn,1
if Request.Cookies("userpass")<>rs("userpass") then
error("<li>您的密码错误")
end if
if rs("membercode") > 3 then
pass=1
end if
rs.close
if isnumeric(""&Request("forumid")&"") = flase then
error("<li>非法操作")
end if
if Request("forumid")<>"" then
sql="select * from bbsconfig where id="&Request("forumid")&""
rs.Open sql,Conn,1
bbsname=rs("bbsname")
if instr(rs("moderated"),"|"&Request.Cookies("username")&"|")>0 then
pass=1
end if
rs.close
end if

if pass<>1 then
error("<li>您的权限不够")
end if
%>