程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程問題解答 >> 如何用下拉列表顯示數據庫裡的內容?

如何用下拉列表顯示數據庫裡的內容?

編輯:編程問題解答

<%
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
%>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved