jl.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

<%
if session("user")="" then
	Response.Redirect "index.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.write "<br><p align=center>您没有操作的权限</p>"
		response.end
			end if
		end if
	end if
	admin.close
	set admin=nothing
end if%>