【正文】 。 5. 編寫一個(gè) ASP程序，當(dāng)數(shù)據(jù)庫的表 S1（ ID、 留言內(nèi)容、留言時(shí)間）的記錄數(shù)大于 1000時(shí)，顯示提示信息進(jìn)行刪除的操作。 122 習(xí) 題 3. 編寫一個(gè) ASP程序，可以從表單中輸入訂貨信息，然后將接收的信息存放在訂單表 DD中。 （ 3） 訂購量超過 2022件的單位。使用 SQL語句查詢下列問題： （ 1） 光明公司所定貨物的名稱和送貨地點(diǎn)。 117 圖 118 htmlhead/headbody bgColor=pink form method=″post″ action=″″ id=form1 name=form1 value=″″ p地址： input name=″dz″ /p pinput type=″submit″ value=″查詢 ″ name=″B1″ input type=″reset″ value=″復(fù)原 ″ name=″B2″/p /form font color=orangeredfont size=4strong 按地址查詢的結(jié)果 /strong % 119 if request(″dz″)″″ then set = (″″) ″DSN=ql。使用它時(shí)只要包含其文件，在其他程序使用這個(gè)表格來輸出字段名和其值時(shí)，可直接用 call t(對(duì)象實(shí)例名 rs)命令，只要在過程名 t內(nèi)寫入 RecordSet對(duì)象的實(shí)例名即可（見例 9）。 114 用 Command對(duì)象輸出數(shù)據(jù)庫中的數(shù)據(jù) [例 927]建立一個(gè)用表格輸出查詢結(jié)果的過程 t。特別是，通過使用Command對(duì)象的 Parameter集合可以避免與定義字符串、日期、時(shí)間變量的類型有關(guān)的問題。 ? 第 8行“ ”用來執(zhí)行在 義的操作。 113 ? 第 7行“ cm(″name″) =值”用來傳遞數(shù)據(jù)值給Parameter對(duì)象，一般使用“ ?”號(hào)代表未知的參數(shù)位置，其對(duì)應(yīng)的默認(rèn)參數(shù)字符串索引則為“ Param1”、“Param2”。 ? value 可選參數(shù)，參數(shù)值。參數(shù)值為 1允許數(shù)據(jù)輸入至該參數(shù)當(dāng)中，表示可傳送數(shù)據(jù)到數(shù)據(jù)庫服務(wù)器上； 2允許數(shù)據(jù)輸出至該參數(shù)當(dāng)中，表示用來得到 Command對(duì)象執(zhí)行操作后數(shù)據(jù)庫服務(wù)器的輸出值； 3允許數(shù)據(jù)輸入、輸出至該參數(shù)當(dāng)中，表示用來傳送數(shù)據(jù)給數(shù)據(jù)庫服務(wù)器及從數(shù)據(jù)庫服務(wù)器上接收信息； 4允許從一子程序中返回?cái)?shù)據(jù)至該參數(shù)當(dāng)中。7表示日期類型值； 133表示編碼為“ yyyymmdd”的日期類型； 134表示編碼為“ hhmmss”的時(shí)間類型； 135表示編碼為“ yyyymmdd hhmmss”的日期時(shí)間類型。 ? Type 參數(shù)類型，可選參數(shù)。 Parameter集合包含所有的 Parameter對(duì)象，使用 Parameter集合來存取 Parameter對(duì)象，類似于使用 Field集合來存取Recordset對(duì)象。指定“數(shù)據(jù)查詢信息”的類型可加快查詢的速度。PWD=密碼； ″ % ? 第 4行 =″數(shù)據(jù)查詢信息 ″，其中的“數(shù)據(jù)查詢信息”由 SQL語句、數(shù)據(jù)庫表文件名稱或子程序組成，如例 926中的語句：“ ″INSERT INTO S2(年份，題型，序號(hào)，題目，標(biāo)準(zhǔn)答案，學(xué)生解答 )VALUES(?,?,?,?,?,?)″”為 SQL語句。 ? 也可直接使用下面的語句直接建立與數(shù)據(jù)庫的鏈接： 110 %Set = ″DNS=數(shù)據(jù)源名稱 。 ? 第 3行是采用 Command對(duì)象的 ActiveConnection屬性來設(shè)定 Command對(duì)象與 Connection通道的連接關(guān)系，當(dāng)然，你要先用 Connection對(duì)象建立與數(shù)據(jù)庫的連接通道，如例 926中的語句： “ ″q1。 ? 說明： ? 第 1行和最后一行為 asp語句開始和結(jié)束的標(biāo)志。從這個(gè)例子可總結(jié)出使用 Command對(duì)象的方法如下。 % Set cm= (″″) Set = (″″) ″ql。這時(shí)你再打開表 S2可看到頁面上填寫的題目已經(jīng)填寫到題庫里面了。 input type=″submit″ value=″提交 ″ input type=″reset″ value=″重置 ″ /p /form /body /html 103 ? 。 100 % Language=″VBScript″ % html body bgColor=darkseagreenfont color=darkred size=5 style=″BackGround Color: 8fbc8f″ 為管理信息系統(tǒng)課程準(zhǔn)備題庫 /font form method=″post″ ACTION=″″ 年份 input size=4 name=″nf″ value=″2022″ 題型 select size=″1″ name=″tx″ option selected value=″1″ /option 101 option value=″2″ /option option value=″3″ /option option value=″4″ /option option value=″5″ /option option value=″6″ /option option value=″7″ /option /select題號(hào) input size=4 name=″th″ value=″1″ br 題目?jī)?nèi)容 textarea rows=″2″ name=″nr″ cols=″20″/textarea p 標(biāo)準(zhǔn)答案 textarea rows=″2″ name=″dan″ cols=″20″/textarea 102 /p p 學(xué)生解答 textarea rows=″1″ name=″jd″ cols=″20″目前無 /textareabr amp。下面還是通過例子來說明。這種方式的編譯查詢的優(yōu)點(diǎn)是，可以最大程度地減少向現(xiàn)有查詢重復(fù)發(fā)出修改的請(qǐng)求所需的時(shí)間。 % Language=″VBScript″ % html headtitle輸入和查詢的總頁面 /title/head body bgColor=CCFFFF pimg border=″0″ src=″人 .gif″ font color=navy size=5 這是 ″好朋友 ″網(wǎng)站，歡迎你光臨！ /font/p p 如果你想成為 ″好朋友 ″中的一員， a href=″″ 96 請(qǐng)到這里填寫資料。 ″ ′ ? 編寫一個(gè)頁面，將可以進(jìn)行的輸入和查詢列在一個(gè)頁面上，如下例。 ″ and 地址 = ′ ″amp。 ? 在例子中使用了 SQL Where選項(xiàng)中的條件表達(dá)式， 年齡 = ″amp。Request(″dz″) amp。Request(″nl″)amp。 89 圖 90 [例 923]按年齡和地址進(jìn)行組合查詢，本程序文件名為 。單擊“查詢”按鈕后，即可看到所有姓張的人的記錄，如圖 示。 Request(″name″) amp。 [例 922]按姓名進(jìn)行模糊查詢。 amp。 Request(″name″) amp。該例子顯示了數(shù)據(jù)庫表 S1中地址為“廣州”的所有記錄。 ″′″ call q(sql) 84 % ! include virtual=″/asp/″ /font/font /body /html ? 在圖 如“廣州”，單擊“查詢”按鈕后，即可看到查詢的結(jié)果，如圖 。 HTML body bgColor=pink form method=″post″ action=″″ p地址： input name=″name″ /p 83 pinput type=″submit″ value=″查詢 ″ name=″B1″ input type=″reset″ value=″復(fù)原 ″ name=″B2″/p /form font color=orangeredfont size=4strong 按地址查詢的結(jié)果 /strong % sql=″Select * From S1 Where 地址 = ′″amp。 ? 其中， ；rstemp(i).name為查詢的字段名稱； rstemp(i)為相應(yīng)字段的值。 [例 920]以下是建立 q過程的代碼，將其保存為 件，并置于虛擬目錄 asp下： % sub q(inputquery) set =(″″) 79 ″DSN=ql。這時(shí)你再打開表 S1， 可看到頁面上填寫的數(shù)據(jù)已經(jīng)填寫到里面了，如圖，可以讓用戶在瀏覽網(wǎng)頁的過程中填寫記錄了。 sz amp。 (″rq″) amp。 (″dz″) amp。 (″dh″) amp。 (″gz″) amp。 (″nl″) amp。 (″xm″) amp。 74 圖 75 [例 919]編寫向數(shù)據(jù)庫插入從輸入頁面接收到的數(shù)據(jù)文件，文件名為 。 72 在客戶端瀏覽器向數(shù)據(jù)庫添加數(shù)據(jù) [例 918]先建立一個(gè)輸入頁面。利用這兩個(gè)命令你不用知道數(shù)據(jù)庫表中的結(jié)構(gòu)，即可對(duì)數(shù)據(jù)庫進(jìn)行查詢了。 ? 第三部分建立 Recordset對(duì)象實(shí)例 rs1和 rs2， 并進(jìn)行查詢，然后調(diào)用過程 t(rs)用表格輸出查詢結(jié)果。 70 圖 71 ? 這個(gè)例子中的程序命令可分為三部分： ? 第一部分建立了過程 t(rs)， 該過程可以傳入以Recordset對(duì)象實(shí)例為參數(shù)、并以表格輸出該Recordset對(duì)象內(nèi)的所有字段的數(shù)據(jù)。 % sub t(rs) (″table border=1″) for i=0 to 1 (″td″ +rs(i).name+″/td″) next while not (″tr″) 67 for i=0 to 1 v=rs(i) if isnull(v) then v=″″ (″td valign=top″ +CStr(v)+″/td″) next wend (″/table″) end sub % %′====================================% 68 %Set = (″″)