session.asp

BBS论坛的开发和设计

<%
'username = request.Cookies(JBBMasterCookies)("username")
'userpass = request.Cookies(JBBMasterCookies)("userpass")
'if Session("adminname") <> username Or Session("adminpass") <> userpass then
'	response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
'	set conn = nothing
'	response.End()
'End if
username = trim(session("adminname"))
userpass = trim(session("adminpass"))
set rsa = Conn.ExeCute("select adminname,adminpass from JBB_admin where adminname='"& username &"' and adminpass='"& userpass &"'")
	if rsa.eof or rsa.bof then
		response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
		set conn = nothing
		set rsa = nothing
		response.End()
	End if
set rsa = nothing
%>