as_check.asp

来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 22 行

<%
er=0
If Session("Username") <> "" And Session("PassWord") <> "" Then
        call ConnectionDatabase
	set Rs=GrateRs("select * from Asai_ASGL",1)
	If Not Rs.Eof Then
		If Rs("password") <> Session("PassWord") or Rs("username")<>Session("username") Then
			er=1
		End If
	  else
                er=1
        End If
	call DBConnEnd
else
        er=1
End If
if er=1 then 
 	Response.write "对不起,你无权访问该页面!"
        Response.write "<br><a href=../GuanliRukou.asp>登录</a>"
        Response.End
end if
%>