%
Dim objDC, objRS

Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30

' 創建數據庫連接

objDC.Open "DBQ=" Server.MapPath("database.mdb") ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
' 使用Access數據庫

objDC.Open  Application("SQLConnString"), Application("SQLUsername"),
Application("SQLPassword")

Set objRS = Server.CreateObject("ADODB.Recordset")

' 創建記錄集并進行檢索

' 使用前向游標（0）和只讀模式（1）打開記錄集
' 如果特定的id請求被讀取，則顯示
If Len(Request.QueryString("id")) > 0 Then
      ' 根據id讀取相應的記錄
      objRS.Open "select * from intelsdb WHERE id=" Request.QueryString("id"), objDC, 0, 1
      ' 顯示已選擇的記錄
      If Not objRS.EOF Then
            objRS.MoveFirst
            %>
            TABLE BORDER=2>
                  tr>
                        td>B>ID /B>/td>
                        td>B>姓名/B>/td>
                        td>B>部門/B>/td>
                        td>B>月度銷售/B>/td>
                  /tr>
                  tr>
                        td ALIGN="center">%= objRS.Fields("id") %>/td>
                        td ALIGN="left">%= objRS.Fields("name") %>/td>
                        td ALIGN="left">%= objRS.Fields("department ") %>/td>
                        td ALIGN="right">%= objRS.Fields("sales") %>/td>
                  /tr>
            /TABLE>
            %
      End If
      objRS.Close
End If

objRS.Open "intelsdb", objDC, 0, 1
' 循環讀完記錄集并顯示結果
If Not objRS.EOF Then
      objRS.MoveFirst
      ' 下面這個表格會調用本次在QueryString 里id的內容
      %>
      FORM ACTION="./db_pulldown.asp" METHOD="get">
      select NAME="id">
            OPTION>/OPTION>
      %
      ' 直到讀完記錄集.
      Do While Not objRS.EOF
            ' 對每條記錄，為員工id創建一個選擇標簽并設置相應的值
            %>
            OPTION VALUE="%= objRS.Fields("id") %>">%= objRS.Fields("name")  %>/OPTION>
            %
      ' 獲取下一個記錄
      objRS.MoveNext
      Loop
      %>
      /select>
      INPUT type="submit" value="Submit">
      /FORM>
      %
End If

' 關閉并清空
objRS.Close
Set objRS =  Nothing
objDC.Close
Set objDC = Nothing
%>