creak.asp

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

<!--#include file="conn.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 "admin.asp"
end if
rsadmin.close
set rsadmin=nothing
%>