dim conn，mdbfile mdbfile=servermappathquot數(shù)據(jù)庫(kù)名稱(chēng)mdbquotset conn=servercreateobjectquotadodbconnectionquotconnopen quotdriver=microsoft access driver *mdbuid=adminpwd=數(shù)據(jù)庫(kù)密碼dbq=quotmdbfile set。

Set conn = Nothing ResponseWrite quot數(shù)據(jù)庫(kù)連接失敗quotResponseEnd End If% lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot lt。

1做一個(gè)注冊(cè)頁(yè)面，包含一個(gè)表單表單中兩個(gè)文本框用來(lái)輸入用戶(hù)名密碼 2一個(gè)注冊(cè)驗(yàn)證頁(yè)面用來(lái)判斷用戶(hù)名是否存在，并將注冊(cè)信息寫(xiě)入表 我的注冊(cè)頁(yè)面和asp處理頁(yè)面是分開(kāi)的分兩個(gè)文件regasp 和 zhuceyanzhengasp 以下。

number=sessionquotnumberquotpasswd=sessionquotPasswdquotsql=quotselect * from admin1 where number=#39quotnumberquot#39and passwd=#39quotPasswdquot#39quotrsopen sql，conn，3，3 if rseof then responseredirect quotindexaspquotresponse。

首先連接數(shù)據(jù)庫(kù)，然后lt Set Rs = ServerCreateObjectquotADODBRecordSetquot #39創(chuàng)建一個(gè)對(duì)象 SQL = quotSelect 作者字段名 From 表1quot #39查詢(xún)表1中的作者字段 RsOpen SQL，Conn，1，1 #39執(zhí)行查詢(xún) Do While Not Rs。

1要查詢(xún)的數(shù)據(jù)庫(kù)名稱(chēng)datamdb 數(shù)據(jù)庫(kù)中表為data 數(shù)據(jù)庫(kù)表data的字段有titleabout 由于無(wú)數(shù)據(jù)添加頁(yè)面，所以在數(shù)據(jù)庫(kù)各字段中應(yīng)添加數(shù)據(jù)，方便查詢(xún)演示2數(shù)據(jù)庫(kù)打開(kāi)文件connasplt ServerscriptTimeout=quot10quot。

asp的dim conn，rs，sql，i，connstr connstr=quotdbq=quot serverMapPathquotmdbbookshopmdbquot quotdriver=microsoft access driver *mdbquot#39前兩句為一行代碼 set conn=serverCreateObjectquotadodbconnectionquotconn。

首先建立oledb數(shù)據(jù)庫(kù)鏈接，其次創(chuàng)建記錄集對(duì)象，寫(xiě)好條件查詢(xún)sql，打開(kāi)記錄集，最后使用while wend循環(huán)輸出記錄 大致步驟如下dataaccess = servermappathquotdataxxxmdbquot#39連接OLEDB Set oConn = ServerCreateObjectquot。

第一行程序利用Server對(duì)象的MapPath函數(shù)，取得要打開(kāi)數(shù)據(jù)庫(kù)的完整的文件路徑，并存儲(chǔ)在變量DbPath中這其中，數(shù)據(jù)庫(kù)名是我們需要指定的參數(shù)，應(yīng)該用我們要打開(kāi)的數(shù)據(jù)庫(kù)的實(shí)際名稱(chēng)替代如果數(shù)據(jù)庫(kù)名是直接作為常量出現(xiàn)，要用。

然后在你要查找的頁(yè)面內(nèi)輸入這段代碼Set rs = ServercreateobjectquotADODBRecordsetquotsql=quotselect * from news order by date descquotrsopen sql，conn，1，1 其中news是你數(shù)據(jù)庫(kù)里那張表的名稱(chēng)。

方法步驟如下1首先打開(kāi)ACCESS應(yīng)用程序，并選擇一個(gè)數(shù)據(jù)庫(kù)打開(kāi)2雙擊數(shù)據(jù)庫(kù)中的一個(gè)表名，打開(kāi)該數(shù)據(jù)表的數(shù)據(jù)表視圖3在工具欄依次點(diǎn)擊“創(chuàng)建”“查詢(xún)?cè)O(shè)計(jì)”，打開(kāi)查詢(xún)?cè)O(shè)計(jì)窗口4在查詢(xún)?cè)O(shè)計(jì)中，點(diǎn)擊“關(guān)閉。

然后就可以操作數(shù)據(jù)庫(kù)的查詢(xún) 修改 添加 更新等 如sql=quotselect * from 表quotset rs=servercreatObjectquotadodbrecordsetquotrsopen sql，conn，1，1 do while not rseof responsewrite rs0quotbrquotrsmovenext lo。

lttd height=quot25quot valign=quotbottomquot bgcolor=quot#FFFFFFquotlta href=quotNewsNewsShowasp？NewsId=lt%=rsquotNewsIdquot%quot target=quot_blankquotlt%=LeftNewsTitle，26%ltalttd lttd height=quot21quot align=quotcenterquot。

方法很多，我給你最簡(jiǎn)單的辦法不用任何代碼建立表表里包括錯(cuò)誤代碼詳細(xì)描述信息兩個(gè)字段再在查詢(xún)主菜單按照向?qū)陆ú樵?xún)，查詢(xún)里把剛才建立好的表作為來(lái)源，向?qū)?huì)教你怎么完成保存好最后新建窗體。

使用語(yǔ)句查詢(xún)需要有sql基礎(chǔ)，但有一定水準(zhǔn)以后才能熟練應(yīng)用，這里只說(shuō)一下使用access中sql視圖的方法1打開(kāi)access的文件 2點(diǎn)擊上方菜單欄的創(chuàng)建查詢(xún)?cè)O(shè)計(jì) 3彈出的小窗口點(diǎn)關(guān)閉 4在上半部空白處點(diǎn)右鍵，選擇sql視圖。

Searchasp lt Dim Def_ResourceDBPath，Connstr，sql，skey，page，counter Dim Conn，Rs Def_ResourceDBPath = quotdb#mydbaspquotConnstr = quotProvider=Data Source=quot ServerMapPathDef_。