您现在的位置是：网站首页> 编程资料编程资料
如何用下拉列表显示数据库里的内容？_编程10000问_
2023-05-25
157人已围观
简介 如何用下拉列表显示数据库里的内容？_编程10000问_
<%
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
%>
ID
姓名
部门
月度销售
<%= objRS.Fields("id") %>
<%= objRS.Fields("name") %>
<%= objRS.Fields("department ") %>
<%= objRS.Fields("sales") %>
<%
End If
objRS.Close
End If
objRS.Open "intelsdb", objDC, 0, 1
' 循环读完记录集并显示结果
If Not objRS.EOF Then
objRS.MoveFirst
' 下面这个表格会调用本次在QueryString 里id的内容
%>
直到读完记录集.
Do While Not objRS.EOF
' 对每条记录，为员工id创建一个选择标签并设置相应的值
%>
<%
' 获取下一个记录
objRS.MoveNext
Loop
%>
<%
End If
' 关闭并清空
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>
