繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何从数据库得到一个列表表单
- ASP
- ASP进阶教程Ⅰ：循序渐进学留言薄
- ASP进阶教程Ⅱ：一个简单的留言簿
- ASP进阶教程Ⅲ：给留言簿润下色
- ASP进阶教程Ⅵ：留言簿在线删除留言
- ASP进阶教程Ⅴ：留言簿在线留言编辑（一）
- ASP进阶教程Ⅴ：留言簿在线留言编辑（二）
- ASP进阶教程Ⅳ：加入精彩留言
- ASP进阶教程Ⅸ：留言查询功能（一）
- ASP进阶教程Ⅸ：留言查询功能（二）
- ASP进阶教程Ⅷ：数据库版本的留言簿
- ASP基础讲座（上）
- ASP系列讲座（一）关于 Active Server Pages
- ASP系列讲座（二）ASP 的新功能
- Asp用于分页的两个函数
- ASP与Oracle连接时的TNS错误
- 小工具：统计有多少行JS代码和ASP代码，并有多少字节
- 一个xmlhttp读取xml的例子
- ASP终极防范上传漏洞
- 防止网站内容被人小偷和采集的ASP代码
- 批量判断域名是否被注册程序代码
ASP 中的 如何从数据库得到一个列表表单
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 155 ::
收藏到网摘: 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
