<%
    
  '安裝用戶列表       
  '裝載用戶名稱到登錄窗口中               
   Sub WriteEmploy(ID)     
   
       On Error Resume next
           Dim cnDB
           Dim cnRS
       Set cnDB=CreateObject("ADODB.Connection")
       Set cnRS=CreateObject("ADODB.Recordset")

          '打開數(shù)據(jù)庫
           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    
      
       '關(guān)閉數(shù)據(jù)庫            
       CloseDatabase cnDB
 
  End Sub
%>