creak.asp

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

<!--#include file="users.asp" -->
<%
session("user")=request("username")
session("pas")=request("password")
if session("user")="" then
	response.write "请登陆先！"
	response.end
end if
Set rsadmin = Server.CreateObject("ADODB.Recordset")
sqladmin="SELECT * FROM admin where admin='"&session("user")&"'"
rsadmin.OPEN sqladmin, Conn,1,1
if rsadmin.eof and rsadmin.bof then
	response.write "没有该管理员信息，确认已添加该管理员！"
elseif session("pas")<>rsadmin("pws") then
	response.write "密码错！"
else
	session("qx")=rsadmin("qx")
	session("user")=rsadmin("admin")
	session("pas")=rsadmin("pws")
Response.Redirect "manage.asp"
end if
rsadmin.close
set rsadmin=nothing
%>