繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何从数据库得到一个列表表单
- ASP
- [原创]本人常用的asp代码
- asp防止刷新功能
- 生成所有页面的效果+分页生成
- ASP在SQL Server 2000中新建帐号和权限
- PR值查询代码制作
- GetRows的用法详解！
- ASP简洁的多重查询的解决方案
- ASP实现SQL备份、恢复
- 用ASP写组件
- ASP中Request对象获取客户端数据的顺序(容易忽略)
- 利用Adodb.Stream制作彩色验证码
- ASP 类 Class入门 推荐
- asp数据库防下载处理
- 浏览文件夹下面所有图片
- 结合asp和存储过程做的搜索程序
- 实现支持逻辑搜索/单词搜索/词组搜索+支持OR/AND关键字的VBS CLASS!
- 支持加号空格的查询
- 取得表单提交的所有数据
- 发邮件的asp(CDONTS.NewMail)
- 使用FSO把文本信息导入数据库
ASP 中的 如何从数据库得到一个列表表单
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 68 ::
收藏到网摘: n/a
<TITLE>ASPHole - Fill List Box Example</TITLE>
</HEAD>
<BODY>
<FORM METHOD=POST>
Country: <SELECT NAME="Country">
<%
' Construct path to database
sPath = Request.ServerVariables("Path_Translated")
sPath = Left(sPath,InStrRev(sPath,"\")) & "Countries.mdb"
'
' Open Connection & Recordset
set oSample = Server.CreateObject("ADODB.Connection")
oSample.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=TRUE;" & _
"Data Source=" & sPath, "Admin", ""
'
' Check for default...
mCountry = Trim(Request("Country"))
'
' Create the List
Set oRS=oSample.Execute _
("SELECT ID,COUNTRY " & _
"FROM COUNTRIES " & _
"ORDER BY ID")
DO WHILE NOT oRS.EOF
mSelected = ""
IF mCountry=trim(oRS("Country")) then mSelected=" SELECTED"
%>
<OPTION<%=mSelected%>><%=oRS("Country")%></OPTION>
<%
oRS.MoveNext
Loop
%>
</SELECT><BR>
<INPUT TYPE=SUBMIT>
</FORM>
</BODY>
</HTML>
Key points of the sample:
sPath is used to construct the path to the database based on the home directory of the script. This means
that the database must be in the same directory as the script., otherwise, set sPath to the absolute path
of the database.
The database is assumed to a be an Access 2000 Database with a table Countries with a character field
Country.
Forms are assumed to point at the same script which created it unless action is specified.
The IF mCountry=... statement is used to insert the word SELECTED into the OPTION containing the previous
country value, should one have been passed in by a submit.
If you have problems running this script, your database drivers may be out of date. Go to
http://www.microsoft.com/data for the current MDAC RTM.
-END-
评论 (0) All
