check.asp

来自「栏目分别音乐、作品、日记、留言」· ASP 代码 · 共 22 行

<%
er=0
If Session("Username") <> "" And Session("PassWord") <> "" Then
        call ConnectionDatabase
	set Rs=GrateRs("select * from yuaner_admin",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=login.asp>登录</a>"
        Response.End
end if
%>