主页 > 知识库 > 如何用下拉列表显示数据库里的内容?

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

热门标签:推销电话机器人怎么打电话的 武汉如何办理400电话 常州智能外呼电销机器人如何 重庆400电话哪里办理 辽宁营销智能外呼系统价格多少 语音电销机器人视频 教育机构地图标注 自适应地图标注 400电话是怎么申请

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

标签:中山 朔州 遵义 柳州 襄阳 威海 邯郸 鸡西

巨人网络通讯声明:本文标题《如何用下拉列表显示数据库里的内容?》,本文关键词  如,何用,下拉,列表,显示,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《如何用下拉列表显示数据库里的内容?》相关的同类信息!
  • 本页收集关于如何用下拉列表显示数据库里的内容?的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章