display.asp

星级酒店管理系统（附带系统自写控件源码）

<!--#include file="datconfig.asp"-->
<!--#include file="adovbs.asp"-->
<%
      Dim sOper
      Dim sPassword
  
      sOper=TRIM(RemoveQuotes(Request.Form("txtUserName"))) 
      sPassword=TRIM(RemoveQuotes(Request.Form("txtPassword")))
          
      '如果用户名或密码为空时，显示错误？    
       If sOper="" Or sPassword="" Then
          sError="<font color='#FF0000'>用户名</font>与<font color='#FF0000'>密码</font>必须输入，不能为空？   "
          Setsess "Error",sError
          response.redirect "displayerror.asp?msg="
       End If
       
       Dim cnDB
       Dim cnRS
       Dim sTmp 
       Dim sName  
       
       Set cnDB=CreateObject("ADODB.Connection")
           OpenDatabase cnDB           
       Set cnRS=CreateOBject("ADODB.Recordset")
           sTmp="Select * from Main Where 操作员='" & sOper & "' And 口令='" & SecretPWD(sPassword) & "'"
           cnRs.Open sTmp,cnDB,adOpenStatic,adLockReadonly,adCmdText            
         
           '密码与用户不存在时，显示错误！         
            If cnRs.Eof and cnRs.Bof Then
               cnRs.Close                       
               Set cnRS=Nothing 
               CloseDatabase cnDB
               sError="<font color='#FF0000'>用户名</font>与<font color='#FF0000'>密码</font>不符,拒绝登录！" 
               Setsess "Error",sError              
               Response.redirect "displayerror.asp?msg="
            End If             

            IF sOper="超级用户" Then
               sError=""
               Setsess "Administrator",1
               Setsess "UserName","超级用户"
              Else
               Setsess "Administrator",0 
               Setsess "Author01",cnRs("Author01")     
               Setsess "Author02",cnRs("Author02")     
               Setsess "Author03",cnRs("Author03")     
               Setsess "Author04",cnRs("Author04")     
               Setsess "Author05",cnRs("Author05")     
               Setsess "Author06",cnRs("Author06")     
               Setsess "Author07",cnRs("Author07")     
               Setsess "Author08",cnRs("Author08")     
               Setsess "Author09",cnRs("Author09")     
               Setsess "Author10",cnRs("Author10")     
               Setsess "Author11",cnRs("Author11")     
               Setsess "Author12",cnRs("Author12")     
               Setsess "Author13",cnRs("Author13")     
               Setsess "Author14",cnRs("Author14")     
               Setsess "Author15",cnRs("Author15")     
               Setsess "Author16",cnRs("Author16")     
               Setsess "Author17",cnRs("Author17")     
               Setsess "Author18",cnRs("Author18")     
               Setsess "Author19",cnRs("Author19")     
               Setsess "Author20",cnRs("Author20")      
               Setsess "Author21",cnRs("Author21")     
               Setsess "Author22",cnRs("Author22")     
               Setsess "Author23",cnRs("Author23")     
               Setsess "Author24",cnRs("Author24")     
               Setsess "Author25",cnRs("Author25")     
               Setsess "Author26",cnRs("Author26")     
               Setsess "Author27",cnRs("Author27")     
               Setsess "Author28",cnRs("Author28")     
               Setsess "Author29",cnRs("Author29")     
               Setsess "Author30",cnRs("Author30")    
               Setsess "UserName",cnRs("操作员")                                                         
            End If                  
                    
            cnRs.Close     
            Set cnRS=Nothing 
            CloseDatabase cnDB
           '定位主窗口
            response.Redirect "login.asp"

     %>