• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    如何用下拉列表显示数据库里的内容?

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

    上一篇:如何使用数组来显示下拉菜单?
    下一篇:如何在读取Excel文件时创建列表的下拉菜单?
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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