欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

如何用下拉列表显示数据库里的内容?

程序员文章站 2023-01-25 17:52:09
<%dim objdc, objrsset objdc = server.createobject("ad...

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