亲宝软件园·资讯

展开

怎样用下拉列表显示数据库里的内容?

人气:0
想了解怎样用下拉列表显示数据库里的内容?的相关内容吗,在本文为您仔细讲解的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:怎样何用用下下拉拉列列表表显显示示数数据据库库里里的的内内容容??,下面大家一起来学习吧。

<%
Dim objDC, objRS

Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 创建数据库连接

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

加载全部内容

相关教程
猜你喜欢
用户评论