| 本月文章推荐 |
如何从数据库得到一个列表表单发表日期：2000-12-22
|
|
<HEAD>
<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- |
| 上一篇：使用Javascript实现邮箱快速登录的方法!!
人气:11692 下一篇：使用Cookie来跟踪用户 人气:11444 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
