admin_logincheck.asp

该系统是宿舍管理系统

<!--#include file="conn.asp"-->

<%
dim user
session("admin")=request("admin")
session("adminpass")=request("adminpass")
set rs1=server.createobject("adodb.recordset")
sql1="select * from admin"
rs1.open sql1,conn,1,1
if session("admin") <> rs1("admin") or session("adminpass") <> rs1("adminpass") then
response.write("<script>alert('您的密码不正确！');history.go(-1)</script>")
server.transfer("admin_login.asp")
end if
rs1.close
set rs1=nothing
response.redirect "admin.asp"
%>
<!--#include file="close.asp"-->