繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何从数据库得到一个列表表单
- ASP
- 随机提取Access/SqlServer数据库中的10条记录的SQL语句
- 实现对Access数据库表重命名的一段代码
- XML+XSL+CSS+ASP打造留言簿
- 小偷&小偷入库&采集入库
- 使用asp代码突破163相册的防盗连
- CJJ专用ASP类库中的某个class
- 能不能在flash动画中给asp传递变量？
- 禁止站外提交表单
- 改进一下asp自带的formatNumber函数
- 收集asp的常用函数
- CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
- ASP 指南
- pjblog2的参数
- ASP智能搜索的实现
- 网站生成静态页面攻略2:数据采集
- 网站生成静态页面攻略3:防采集策略
- 网站生成静态页面攻略4:防采集而不防搜索引擎策略
- 简单分页函数一 常用
- asp最常用的分页函数
- asp:生成静态页面函数
ASP 中的 如何从数据库得到一个列表表单
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 65 ::
收藏到网摘: 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
