首页 >> 读书频道 >> 电脑 >> 将数据库的内容放到下拉列表中
 
· 何得知Recordset
· 用GetString来提
· 何存取三层式结构的数据库
· 当Recordcount
· 如何实现多记录的分页显示
· 在ASP中用集合成批操作
· RecordSet的Lo
· RecordSet的Cu
· ADO Recordse
· 获得删除纪录的个数
· Recordset Cu
· 数据库设计经验谈
 
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 红楼梦:120回全本[清
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
· 管理三十六计
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

将数据库的内容放到下拉列表中


查看有无更新版本

关键字:ASP与数据库 2006-8-28

 

<%
Dim objDC, objRS

' Create and establish data connection
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30

'Use this line to use Access
'objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver=
{Microsoft Access Driver
(*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "pas
sword"

'Our SQL Server code - use above line to use sample on your server
objDC.Open Application("SQLConnString"), Application("SQLUsername"),
Application("SQLPassword")


' Create recordset and retrieve values using the open connection
Set objRS = Server.CreateObject("ADODB.Recordset")
' Opening record set with a forward-only cursor (the 0) and in read-
only mode (the 1)

' If a request for a specific id comes in, then do it o/w just show
pulldown
If Len(Request.QueryString("id")) <> 0 Then
' request record for requested id
objRS.Open "SELECT * FROM sample WHERE id=" &
Request.QueryString("id"), objDC, 0, 1
' Show selected record
If Not objRS.EOF Then
objRS.MoveFirst
%>
<TABLE BORDER=2>
<TR>
<TD><B>ID Number</B></TD>
<TD><B>First Name</B></TD>
<TD><B>Last Name</B></TD>
<TD><B>Month's Sales</B></TD>
</TR>
<TR>
<TD ALIGN="center"><%=
objRS.Fields("id") %></TD>
<TD ALIGN="left"><%= objRS.Fields
("first_name") %></TD>
<TD ALIGN="left"><%= objRS.Fields
("last_name") %></TD>
<TD ALIGN="right"><%=
objRS.Fields("sales") %></TD>
</TR>
</TABLE>
<%
End If
objRS.Close
End If

objRS.Open "sample", objDC, 0, 1
' Loop through recordset and display results
If Not objRS.EOF Then
objRS.MoveFirst
' the form below calls this file only this time with an id
in the QueryString
%>
<FORM ACTION="./db_pulldown.asp" METHOD="get">
<SELECT NAME="id">
<OPTION></OPTION>
<%
' Continue until we get to the end of the recordset.
Do While Not objRS.EOF
' For each record we create a option tag and set
it's value to the employee id
' The text we set to the employees first name
combined with a space and then their last name
%>
<OPTION VALUE="<%= objRS.Fields("id") %>"><%=
objRS.Fields("first_name") & " " & objRS.Fields("last_name") %
></OPTION>
<%
' Get next record
objRS.MoveNext
Loop
%>
</SELECT>
<INPUT type="submit" value="Submit">
</FORM>
<%
End If

' Close Data Access Objects and free DB variables
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>

将数据库的内容放到下拉列表中

[ 1 ]
将数据库的内容放到下拉列表中 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑