login_check.asp

该系统是宿舍管理系统

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

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