您的位置：首页 → 技术开发 → ASP技巧 → 如何从数据库得到一个列表表单

如何从数据库得到一个列表表单

时间：2004/11/7 4:10:00来源：本站整理作者：蓝点我要评论(0)

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"

%>

><%=oRS("Country")%>

<%

oRS.MoveNext

Loop

%>

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-

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论