loaduser.asp

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

<%
    
  '安装用户列表       
  '装载用户名称到登录窗口中               
   Sub WriteEmploy(ID)     
   
       On Error Resume next
           Dim cnDB
           Dim cnRS
       Set cnDB=CreateObject("ADODB.Connection")
       Set cnRS=CreateObject("ADODB.Recordset")

          '打开数据库
           OpenDatabase cnDB

           Dim sTmp 
           sTmp="Select * from Main"

                  cnRs.Open sTmp,cnDB,adOpenDynamic,adLockreadonly,adcmdText 

                  If Not cnRS.Eof Then  
                       Do While Not cnRs.Eof
                          If cnRs.Eof Then Exit Do
                          sTmp=cnRs("操作员")
                          If sTmp=ID And ID<>"" Then
                              response.write "<option Selected value=" & sTmp & ">" & sTmp & "</Option>"
                           Else                         
                              response.write "<option  value=" & sTmp & ">" & sTmp & "</Option>" 
                          End If
                          cnRs.MoveNext
                       Loop
                 End If                       
           cnRs.Close
       Set cnRs=Nothing    
      
       '关闭数据库            
       CloseDatabase cnDB
 
  End Sub
%>