jl.asp

来自「彩票在线分析系统」· ASP 代码 · 共 25 行

<%
if session("user")="" then
	Response.Redirect "login.asp"
	response.end
else
	Set admin = Server.CreateObject("ADODB.Recordset")
	asql="SELECT * FROM admin where admin='"&session("user")&"'"
	admin.OPEN asql, Conn,1,1
	if admin.eof and admin.bof then
		Response.Redirect "index.asp"
		response.end
	else
		if session("pas")<>admin("pws") then
			Response.Redirect "index.asp"
			response.end
		else
			if session("qx")<"2" then
				Response.Redirect "login.asp"
				response.end
			end if
		end if
	end if
	admin.close
	set admin=nothing
end if%>