asp如何用下拉列表显示数据库里的内容?
发布时间:2010-06-16 09:54:00
如何用下拉列表显示数据库里的内容?
我们来看看实现这个功能的程序:
<%
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
%>
猜你喜欢
- 环境搭建准备工具:pyton3.5,selenium,phantomjs我的电脑里面已经装好了python3.5安装Seleniumpip3
- 当你加入到一个项目,相关的CSS文件可能会看得你头昏眼花。时间一长,修改了哪些内容,增加了哪些内容,也都弄不清,维护成本相当的高。正好我们国
- 这篇文章主要介绍了python修改文件内容的3种方法详解,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的
- 本文实例为大家分享了python绘制彩虹图的具体代码,供大家参考,具体内容如下代码:from turtle import *#控制彩虹路径d
- Python是一种计算机程序设计语言,一种面向对象的动态类型语言,一种脚本语言。最初被设计用于编写自动化脚本(shell)的,常用于各种服务
- 本文实例讲述了Python Django框架单元测试之文件上传测试。分享给大家供大家参考,具体如下:Submitting files is
- 从物理学的机制出发,波动模型相对于光线模型,显然更加接近光的本质;但是从物理学的发展来说,波动光学旨在解决几何光学无法解决的问题,可谓光线模
- 概述Anaconda安装后,会在开始菜单中添加菜单项,但是这些菜单项中,没有Jupyter Lab快捷方式。在实现前应该明确两点:开始菜单是
- 1、引言小 * 丝:鱼哥,最近有点不像话了。小鱼:嗯?? 啥个意思嘛~小 * 丝:一周了,没分享小知识了。小鱼:就因为这个??小 * 丝:那是,我这么爱
- Perl的特殊符号@ 数组 &nb
- 您也可以提供几个连接字符串修饰符来控制连接池行为,请参见本主题内下文中“使用连接字符串关键字控制连接池”这一节。池的创建和分配当连接打开时,
- 前言:远程连接中兴设备(系统使用的中兴网卡)时使用的事Telnet连接,连接时设有二次验证,每次输入用户名密码和执行命令是个繁琐的过程,使用
- 项目中大量用到图片加载,由于图片太大,加载速度很慢,因此需要对文件进行统一压缩第一种 一:安装包python -m pip ins
- 很多小伙伴都会有这样的问题,说一个ip地址十分钟内之内注册一次,用来防止用户来重复注册带来不必要的麻烦逻辑:取ip,在数据库找ip是否存在,
- 1. 使用os.system("cmd")特点是执行的时候程序会打出cmd在Linux上执行的信息。import oso
- 本文实例讲述了python简单实现基于SSL的 IRC bot。分享给大家供大家参考。具体如下:#!/usr/bin/python# -*-
- 运行环境:IIS脚本语言:VBScript数据库:Access/SQL Server数据库语言:SQL1.概要:不论是在论坛,还是新闻系统,
- 1.问题描述: 我桌面上有一个“账号密码.db”文件,我现在想知道里面有几张表格table、表格的名字、表头结构。2.使用SQL语句&quo
- 简介网上流传的部分可以百度关键词“Python”和“word”后查看文章学习,以下内容为个人实践,修正了不能运行出错的情况。代码示例impo
- 简介:网络爬虫(又被称为网页蜘蛛),网络机器人,是一种按照一定的规则,自动地抓信息的程序或者脚本。假设互联网是一张很大的蜘蛛网,每个页面之间