admin.asp

房屋中介系统

<!--#include file ="head.asp"-->
<%
if request("user")="" or request("pass")="" then
session.abandon
%>
<form method="post" action="admin.asp">
	<p align="center">用户名：<input type="text" name="user" size="20"></p>
	<p align="center">密&nbsp; 码：<input type="password" name="pass" size="20"></p>
	<p align="center"><input type="submit" value="确 定" name="B1">&nbsp;&nbsp;&nbsp;
	<input type="reset" value="重 置" name="B2"></p>
</form>
<%
else
	sql = "select * from admin where user='"&request("user")&"'"
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Dbq=" & Server.Mappath("house.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	if rs.recordcount=0 then
	 response.write "对不起，没有该用户"
	 response.redirect "admin.asp"
	end if
    if    request("pass")=rs("pass") then
		  session("user")=request("user")
		  session("pass")=request("pass")
		  response.redirect "adminindex.asp"
   else
	  response.write "验证错误"
   end if
end if
%>
</body>
</html>