checksite.asp

来自「一个不错的asp程序」· ASP 代码 · 共 21 行

<%
if session("UName")="" or session("UPass")="" then
'if UName="" or UPass="" then
response.redirect "../index0-1.htm"
else
set check=server.createobject("adodb.recordset")
query="select * from Reg_User where UName='"&session("UName")&"'"
check.open query,conn,1,1
if check.recordcount<=0 then
response.redirect "../index0-1.htm"
else
ThePass=check("UPass")
TheClass=check("UClass")
if ThePass<>session("UPass") then
response.redirect "../index0-1.htm"
elseif TheClass<>10 then
response.redirect "../index0-1.htm"
end if
end if
end if
%>