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
%>
猜你喜欢
- 这个可应用于所有浏览器中.<SCRIPT language=javascript>var leave=true; functio
- 表单的验证是开发WEB应用程序中常遇到的一关。有时候我们必须保证表单的某些项必须填写、必须为数字、必须是指定的位数等等,这时候就要用到表单验
- 只要不是HTTP_REFERER来源于(google.com google.cn *.google.com *.google.cn baid
- 代码如下:function checkip(checkstring)'用正则判断IP是否合法 dim re1 set re1=new
- 问:如何自己制作验证码的head.fix和body.fix文件答:1 图象绘制完成后,将文件存为24位位图格式的BMP图象文件。 2 去除前
- 自动更新统计信息的基本算法是: · 如果表格是在 tempdb 数据库表的基数是小于 6,自动更新到表的每个六个修改。 · 如果表的基数是大
- [sql] --1.将每个老师的工资更新为原来的工资+奖金 --定义两个变量,用来存储ttid与reward declare @tid in
- 网页编程中,在与数据库打交道的时候我们经常会碰到乱码的经常。本文就将介绍一种ASP读取MySQL数据库出现乱码的解决办法。情景再现:使用My
- 源码: 代码如下: <% '隐藏并修改文件的最后修改时间的aspshell '原理:通过FSO可以修改文件的属性,比
- 其实想实现这种功能很简单,首先要上传一个RAR的解压程序,就是RAR自己的解压程序,只需要它的核心程序RAR.EXE这个文件就可以了。然后就
- 最近在做一个程序正好需要用到此方面,在网上找到过相应的程序,但用起来都非常恶,于是乎只好自己实现一个了。 首先实现两个函数用来操作光标:
- 利用MySQLfs这个工具,我么可以在MySQL关系数据库中存储文件系统。MySQLfs将文件系统中文件的字节内容分解成数据库中的元组,而数
- 用ASP实现搜索引擎的功能是一件很方便的事,可是,如何实现类似3721的智能搜索呢?比如,当在搜索条件框内输入“中国人民”时,自动从中提取“
- CSS(叠层样式表)和XSL(可扩展样式语言)都可以定义XML文件的显示,这两种方式有哪些不同以及它们在使用中的具体方法,我们将在本文给予介
- 行业首页改版的缘故,为了让我们设计师可以更好的了解需求、了解我们的用户,和部门的用研童鞋一起讨论决定使用电话来进行用户访谈,以此来了解用户。
- Expires 属性 Expires 属性指定了在浏览器上缓冲存储的页距过期还有多少时间。如果用户在某个页过期之前又回到此页,就会显示缓冲区
- 之前写过的组织结构和组织体系都太抽象了,读到标签系统我才有那种“略懂”的感觉。哈哈…书上提到的标签包括:导航情境式链接:常见的“更多”这种用
- <html><head><title>不刷新页面查询的方法</title><meta
- DW2004的中文乱码情况你遇到过么?乱码一般是怎么出现的呢?也许很多时候用其他软件(比如Editplus)写程序的时候,忘了meta标签里
- 1、我的第一个个人主页一打开就是一张很眩的图片,图片上有个“进入”,点击后才算真正看到我的主页。现在回想起来那个时候这样做,大概是很想迅速展