denglu.asp

基于ASP的SQL小区物业管理系统课程设计

<!--#include file="inc/conn.asp"-->
<% 
   dim username,password,result
   username=Trim(Request.Form("username"))
   password=Trim(Request.Form("password"))
   set rs=server.CreateObject("ADODB.Recordset")
   strsql="select * from userlist where username='"&username&"' and password='"&password&"'"
   rs.open strsql,conn,1,1
   if rs.recordcount>0 then
      if rs(8)=0 then
	  session("username")=username
	  session("priority")=false
	  Response.Redirect("inside.asp")
	  else
	  session("username")=username
	  session("priority")=true
  	  Response.Redirect("control/manage.asp")
	  end if
   else
   'Response.Write "<script language='javascript'>alert('对不起，用户名或密码错误');window.location.reload('javascript:history.go(-1)')
   result=Server.URLEncode("对不起，用户名或密码错误！")
   Response.Redirect "index.asp?result="&result
   end if
   rs.close
   set rs=nothing
%>