繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何从数据库得到一个列表表单
- ASP
- asp调用存储过程
- 利用批处理文件和 vbs 脚本实现网站视频自动录制
- ASP、vbscript编码模板
- FileSystem对象常用的文件操作函数有哪些？
- asp显示日历效果
- sql语句的一些集合
- ASP语法注释
- 函数名称 函数功能
- 万能数据库连接程序
- 记录集内随机取记录的代码
- 分页代码
- 如何在数据库中用好Transaction？
- 用Command对象和RecordSet对象向数据库增加记录哪一个更好
- 为什么在存储过程中用OLEDB方式不能返回记录集
- 如何查询日期类型的数据？
- ASP如何获取真实IP地址
- 两种小偷程序的比较
- 使用xmlHttp结合ASP实现网页的异步调用
- 用ASP开"多线程"
- 整理了一个editplus的剪辑文件（ASP方面的内容）
ASP 中的 如何从数据库得到一个列表表单
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 63 ::
收藏到网摘: 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
