夜大 用ASP技術(shù)實(shí)現(xiàn)網(wǎng)上作文的自動(dòng)化管理

1、夜大 用ASP技術(shù)實(shí)現(xiàn)網(wǎng)上作文的自動(dòng)化管理摘 要 本文將介紹如何使用ASP (Active Server Pages)技術(shù)進(jìn)行編程來組建學(xué)校作文網(wǎng)站，使網(wǎng)站做到自動(dòng)化管理。由此實(shí)現(xiàn)以下幾種功能： 1作文的信息共享。學(xué)生的作文發(fā)在網(wǎng)上可以讓全班、全校、全世界的人來欣賞。使用者可以通過多種方式（題目，發(fā)表年級(jí)，文章類型，作者）的查詢，查看自己需要的文章。 2自由發(fā)表。不同地域的學(xué)生通過各種途徑不擇地點(diǎn)、不擇時(shí)間地自主上傳自己的優(yōu)秀作文（不合要求的作文可以由管理員及時(shí)清除）。 3網(wǎng)上發(fā)表評(píng)論。其他學(xué)生和老師在看了作文之后可以直接在網(wǎng)上發(fā)表自己的評(píng)論，對(duì)作文中寫的好的方面和存在問題發(fā)表自己的看法。通過

2、網(wǎng)上的這種方式進(jìn)行交流，對(duì)學(xué)生作文水平的提高會(huì)起到很大的作用。 Abstract The main work of this paper is introduce how to use ASP (Active Server Pages) programming a composition's site, so the site can manage itself. Therefore the site has several functions: 1. Compositions sharing on the net. Students can show their compositio

3、ns to whole school, even to all over the world. The visits can query the compositions by several means. 2. Appearing free. The visits can upload their compositions by net, and view their compositions in time. 3. Appear criticism. All of visits can show their attitude on the net. So the author and ot

4、her visits could read it and find some good ideas. 目錄 一ASP的簡單認(rèn)識(shí) 二網(wǎng)上作文欄目實(shí)現(xiàn)的目標(biāo) 三網(wǎng)上作文欄目自動(dòng)化管理實(shí)現(xiàn)的幾個(gè)ASP文件簡介 四數(shù)據(jù)庫的搭建 五ASP文件實(shí)現(xiàn)自動(dòng)化管理過程的細(xì)節(jié) 六其它應(yīng)注意的問題 七小結(jié) 隨著網(wǎng)絡(luò)科技的發(fā)展，使得網(wǎng)絡(luò)逐漸成為人們生活與學(xué)習(xí)的工具。許多中小學(xué)校都開始建立自己的網(wǎng)站，網(wǎng)絡(luò)教學(xué)開始在教育中展現(xiàn)她無與倫比的優(yōu)勢。她注定將給傳統(tǒng)的教育方式帶來翻天覆地的變化。但由于傳統(tǒng)教育工作者在網(wǎng)絡(luò)技術(shù)上的欠缺，使許多學(xué)校都只在硬件配置上大量投入，而忽略了在軟件及應(yīng)用上的投入。本文將以用ASP技術(shù)實(shí)現(xiàn)網(wǎng)上作

5、文的自動(dòng)化管理的過程為例，講解怎樣在學(xué)校網(wǎng)站應(yīng)用現(xiàn)代網(wǎng)絡(luò)技術(shù)實(shí)現(xiàn)網(wǎng)絡(luò)自動(dòng)化管理。 一ASP的簡單認(rèn)識(shí) ASP的全稱是：Active Server Pages，是在服務(wù)器端腳本編譯環(huán)境，使用它可以創(chuàng)建和運(yùn)行動(dòng)態(tài)、交互的Web服務(wù)器應(yīng)用程序。ASP可以與HTML頁、腳本命令和ActiveX組件組合創(chuàng)建交互的Web頁和基于Web的功能強(qiáng)大的應(yīng)用程序。ASP應(yīng)用程序很容易開發(fā)和修改。所以筆者推薦廣大教育工作者在教學(xué)工作繁忙的情況，使用ASP來制作適應(yīng)教學(xué)的交互性強(qiáng)的動(dòng)態(tài)網(wǎng)頁是非常適合的。 以下羅列了 Active Server Pages 所獨(dú)具的一些特點(diǎn)： 1. 使用 VBScript ，JScri

6、pt 等簡單易用的腳本語言，結(jié)合 HTML 代碼，即可快速地完成網(wǎng)站的應(yīng)用程序的編寫。 2. 無須編譯，容易編寫，調(diào)試方便可在服務(wù)器端直接執(zhí)行。 3. 使用普通的文本編輯器，如 Windows 的記事本，或在FRONTPAGE等流行軟件中都可進(jìn)行編輯設(shè)計(jì)。 4. 與瀏覽器無關(guān) (Browser Independence)。用戶端只要使用可執(zhí)行 HTML 碼的瀏覽器，即可瀏覽 ASP 網(wǎng)頁的內(nèi)容。 ASP所使用的腳本語言 (VBScript 、 Jscript) 均在 WEB 服務(wù)器端執(zhí)行，用戶端的瀏覽器不要求能夠執(zhí)行這些腳本語言。 5. ASP 能與任何 ActiveX scripting 語

7、言相容。除了可使用 VBScript 或 JScript 語言來設(shè)計(jì)外，還通過 plug-in 的方式，使用由第三方所提供的其他腳本語言，如：REXX 、 Perl 、 Tcl 等。腳本引擎是處理腳本程序的 COM(Component Object Model) 物件。 6.Active Server Pages 的源程序，不會(huì)被傳到客戶瀏覽器，因而可以避免所寫的源程序被他人直接剽竊，提高了程序的安全性。 7. 可使用服務(wù)器端的腳本來控制產(chǎn)生客戶端的腳本。 8.ActiveX Server Components(ActiveX 服務(wù)器元件 ) 具有無限可擴(kuò)充性?？梢允褂?Visual Basi

8、c 、 Java 、 Visual C+ 、 COBOL 等編程語言來編寫你所需要的 ActiveX Server Component 。 由此可見，將ASP技術(shù)用于教育任務(wù)繁重的教師建設(shè)網(wǎng)站是最適合的。 由于筆者本文主題是講解用ASP技術(shù)實(shí)現(xiàn)網(wǎng)上作文的自動(dòng)化管理的過，其目的在于由一件具體事例的完成過程來拋磚引玉，使更多的教師懂得怎樣在學(xué)校網(wǎng)站應(yīng)用現(xiàn)代網(wǎng)絡(luò)技術(shù)實(shí)現(xiàn)網(wǎng)絡(luò)自動(dòng)化管理。所以對(duì)于網(wǎng)絡(luò)的一些基礎(chǔ)知識(shí)不作過多鋪墊，下僅列出本文所需基礎(chǔ)知識(shí)： 1 懂得基本的HTML語言。 2 懂得基本的VBScript 或JScript語言。 3 有數(shù)據(jù)庫操作基礎(chǔ)，最少會(huì)一種數(shù)據(jù)庫（如最簡單的Microso

9、ft Access） 二網(wǎng)上作文欄目實(shí)現(xiàn)的目標(biāo) 網(wǎng)絡(luò)以資源共享和信息傳輸?shù)确矫娴奶攸c(diǎn)，使得教育可以跨越時(shí)間和空間。我們利用這一優(yōu)勢來為語文的作文教學(xué)服務(wù)可以起到非常大的作用。筆者認(rèn)為建立一個(gè)好的網(wǎng)上作文欄目可以用如下目標(biāo)。 1 實(shí)現(xiàn)作文的信息共享。學(xué)生的作文發(fā)在網(wǎng)上可以讓全班、全校、全世界的人來欣賞。使用者可以通過多種方式（題目，發(fā)表年級(jí)，文章類型，作者）的查詢，查看自己需要的文章。 2 自由發(fā)表。不同地域的學(xué)生通過各種途徑不擇地點(diǎn)、不擇時(shí)間地自主上傳自己的優(yōu)秀作文（不合要求的作文可以由管理員及時(shí)清除）。 3 發(fā)表評(píng)論。其他學(xué)生和老師在看了作文之后可以直接在網(wǎng)上發(fā)表自己的評(píng)論，對(duì)作文中寫的好的

10、方面和存在問題發(fā)表自己的看法。通過網(wǎng)上的這種方式進(jìn)行交流，對(duì)學(xué)生作文水平的提高會(huì)起到很大的作用。 4 資料的收集和管理。通過ASP技術(shù)對(duì)數(shù)據(jù)庫的操作可對(duì)網(wǎng)上的資料進(jìn)行不同方式的整理，便于使用者進(jìn)行查詢、分析。這樣資料會(huì)越積越多，越積越全，但管理起來卻非常輕松。 三網(wǎng)上作文欄目自動(dòng)化管理實(shí)現(xiàn)的幾個(gè)ASP文件簡介 從本節(jié)開始我們逐漸深入地探討如何用ASP技術(shù)實(shí)現(xiàn)以上目標(biāo)。實(shí)現(xiàn)網(wǎng)上作文的自動(dòng)化管理和bbs、在線論壇等的建立機(jī)制有許多相似的地方，但在數(shù)據(jù)庫的建立或管理方法方面卻有許多不同之處。以下筆者以范例的方式來分析利用ASP技術(shù)來實(shí)現(xiàn)的方法。整個(gè)自動(dòng)化管理機(jī)制大致可由如下幾個(gè)ASP文件和一個(gè)數(shù)據(jù)庫

11、文件來組成，它們的大至功能如下。 （1）index.asp 進(jìn)入本欄目后的第一顯示頁，可顯示剛上傳的作文，提供多種查詢方式的表單（題目、作者、發(fā)表年級(jí)、文章類別），以及其它管理控制信息。 （2）articleupload.asp顯示網(wǎng)上提交自己作文的空表單。 （3）tjzw.asp 將提交的合格的作文寫進(jìn)數(shù)據(jù)庫。 （4）clicktoread.asp點(diǎn)擊作文標(biāo)題，查看具體的某一篇作文。 （5）default.asp 顯示評(píng)論者填寫評(píng)論的空表單。 （6）writesth.asp將評(píng)論后的表單數(shù)據(jù)寫入數(shù)據(jù)庫。 （7）search.ASP按查詢表單傳來的數(shù)據(jù)對(duì)數(shù)據(jù)查詢，并列出查詢結(jié)果。 （8）use

12、r.mdb記錄本欄目的所有信息（在本例中需要將此數(shù)據(jù)庫在服務(wù)器上建立成ODBC數(shù)據(jù)源，數(shù)據(jù)源名稱為“USER“）。 四數(shù)據(jù)庫的搭建 數(shù)據(jù)只有用數(shù)據(jù)庫來管理才能有自動(dòng)化管理的可能。數(shù)據(jù)的結(jié)構(gòu)將影響整個(gè)管理機(jī)制的應(yīng)用，而且一但建立以后要修改常會(huì)出現(xiàn)麻煩。所以一開始就要仔細(xì)慎重地搭建一個(gè)完整而合理的結(jié)構(gòu)。對(duì)于教師用簡單易操作的Microsoft Access數(shù)據(jù)庫是比較適合的。我的范例中的數(shù)據(jù)庫文件就是Access類型的數(shù)據(jù)庫。數(shù)據(jù)庫中共有兩個(gè)數(shù)據(jù)表“zwtd_infoz”和“zwtd_talk”。表zwtd_infoz 是用存儲(chǔ)作文的具體內(nèi)容，共有12個(gè)字段。其中pid是作者的id號(hào)這與另外一欄目

13、學(xué)生注冊相聯(lián)系。（如圖一）。zwtd_talk用來存放對(duì)作文的評(píng)論信息。共有6個(gè)字段。 圖二（略） 圖一（略） 五ASP文件實(shí)現(xiàn)自動(dòng)化管理過程的細(xì)節(jié) 圖一（略） ASP技術(shù)以其簡單易操作，且功能較強(qiáng)大完全能夠完成以上所要求的各操作目標(biāo)。下面分操作及文件的組成來講解實(shí)現(xiàn)具體細(xì)節(jié)，其中又著重介紹用sript語句的操作。 訪問作文欄目。當(dāng)瀏覽者打開作文欄目首先執(zhí)行index.asp文件，他將看到以下形式的網(wǎng)頁： 本網(wǎng)頁主要提供了一個(gè)提交自己作文的超鏈接按鈕、一個(gè)查詢表單、一個(gè)顯示最新提交來的作文窗口。 具體實(shí)現(xiàn)方式在以下程序代碼中介紹。 <%language="vbscript&qu

14、ot;%> <!-下行所包含的文件用來實(shí)現(xiàn)文字顯示時(shí)，字符超出部份用“”代替，以使界面美觀、充實(shí)。-> <!- #include file="AboutFunctions.inc" -> <html> <head> <title>歡迎來到文學(xué)天地!</title> <style type="text/css" rel=stylesheet> A:link color:blue;text-decoration:none; A:hover color:red;text-

15、decoration:none; A:visited </style> </head> <body> <table border="0" width="100%" style="font:9pt"> <tr> <td width="18%" valign="top"> <table border="0" width="100%" style="font:9pt"

16、;> <!-下行建立一個(gè)進(jìn)入網(wǎng)上投稿頁面的超鏈接-> <tr><td width="100%"><a href=./././"#" target="_self" >"OpenWin()">網(wǎng)上投稿</a></td></tr> <!-以下是作文查詢表單-> <tr><td width="100%" align="center" bgcolor="

17、;#FF9900"><font size="2"><b>作文查詢</b></font></td></tr> <tr><td width="100%" bgcolor="#CCCCCC"> <form method="POST" action="search.ASP" style="font:9pt" target="_blank">

18、<!-上句指明查詢窗體將以POST方法，將數(shù)據(jù)傳遞給search.ASP進(jìn)行查詢-> <table border="0" width="100%" style="font:9pt"> <tr> <td width="82%">題目<input type="text" >"bt" size="8"></td> <td width="18%"><

19、input type="checkbox" >"KK1" value="1"></td> </tr> <tr> <td width="82%">作者<input type="text" >"zz" size="8"></td> <td width="18%"><input type="checkbox" >

20、;"KK2" value="2"></td> </tr> <tr> <td width="82%">年級(jí)<select size="1" >"lj"> <option selected value="1">一年級(jí)</option> <option value="2">二年級(jí)</option> <option value="

21、3">三年級(jí)</option> <option value="4">四年級(jí)</option> <option value="5">五年級(jí)</option> <option value="6">六年級(jí)</option> </select></td> <td width="18%"><input type="checkbox" >"KK3&qu

22、ot; value="4"></td> </tr> <tr> <td width="82%">類別<select size="1" >"type"> <option selected value="寫人">寫人</option> <option value="記事">記事</option> <option value="狀物">

23、;狀物</option> <option value="說明文">說明文</option> <option value="議論文">議論文</option> <option value="詩歌">詩歌</option> <option value="散文">散文</option> </select></td> <td width="18%"><in

24、put type="checkbox" >"KK4" value="8"></td> </tr> </table> <br> <input type="hidden" value="true" >"pd"> <input type="submit" value="提交" >"B1"> <input type=&quo

25、t;reset" value="重寫" >"B2"> </form> </td> </tr> <tr> <script language="JavaScript"> function OpenWin() window.open('articleupload.asp','','scrollbars=no,width=250,height=400'); </script> </tr> &

26、lt;/table> </td> <!- 提交作文信息區(qū) -> <td width="2%" valign="top"><img src=./././"./images/dot.gif" width="1" height="350"></td> <td width="80%" valign="top"> <table border="0" width=&

27、quot;100%" style="font:9pt"> <tr> <td width="100%"></td> </tr> <tr> <td width="100%"> <!- *-> <% dim ymh,sql,jls,zys,tmp,i 'ymh 頁面號(hào)：對(duì)記錄進(jìn)行分頁后的每一頁的頁碼號(hào) 'sql 查詢語句變量：用于存儲(chǔ)查詢語句的臨時(shí)變量 'jls 記錄數(shù)：數(shù)據(jù)庫中的作文數(shù)量 'zyx 總頁

28、數(shù) 'tmp 臨時(shí)變量 ymh=Request.QueryString("page") if ymh="" then ymh=1 else ymh=clng(ymh) end if set con=server.CreateObject("ADODB.Connection") set rec=server.CreateObject("ADODB.Recordset") con.Open "user","user","user" sql="

29、select * from zwtd_info order by 發(fā)表時(shí)間 desc" rec.ActiveConnection=con rec.Source=sql rec.CursorType=3 rec.LockType=2 rec.Open rec.PageSize=15 '一頁顯示記錄條數(shù) jls=rec.recordcount zys=rec.pagecount Response.Write("<table border='0' width='100%' style='font:9pt'>&qu

30、ot;) response.write("<tr><td width='100%'>共有" & jls & "篇文章 ") for i=1 to zys if i=ymh then Response.Write("第" & i & "頁 ") else Response.Write("第<a href=index.asp?page=" & i & ">" & i &am

31、p;"</a>頁 ") end if next response.write("</td></tr>") response.write("<tr><td width='100%'>") response.write("<table border='0' width='100%' style='font:9pt' cellpadding='2'>") rec.Abso

32、lutePage=ymh j=0 <tr> <td width="39%" align="center" bgcolor='#FF9900'>題目</td> <td width="11%" align="center" bgcolor='#FF9900'>作者</td> <td width="14%" align="center" bgcolor='#FF9900'

33、;>上傳時(shí)間</td> <td width="7%" align="center" bgcolor='#FF9900'>年級(jí)</td> <td width="9%" align="center" bgcolor='#FF9900'>類別</td> <td width="9%" align="center" bgcolor='#FF9900'>點(diǎn)擊數(shù)&l

34、t;/td> <td width="11%" align="center" bgcolor='#FF9900'>評(píng)論條數(shù)</td> </tr> <% do while not rec.EOF and j<rec.PageSize j=j+1 Response.Write("<tr>") Response.Write("<td width='39%' align='center'><a href=

35、'clicktoread.asp?id=" & _ rec.fields("id").value & "&pid=" & rec.fields("pid").value & _ "' target='_blank'>" & rec.fields("題目").value & "</a></td>") Response.Write("<t

36、d width='11%' align='center'>" & rec.fields("發(fā)表者").value & "</td>") Response.Write("<td width='14%' align='center'>" & ShowDatePart(rec.fields("發(fā)表時(shí)間").value) & "</td>") Respons

37、e.Write("<td width='7%' align='center'>" & rec.fields("年級(jí)").value & "</td>") Response.Write("<td width='9%' align='center'>" & rec.fields("類別").value & "</td>") Respons

38、e.Write("<td width='9%' align='center'>" & rec.fields("點(diǎn)擊次數(shù)").value & "</td>") Response.Write("<td width='11%' align='center'>" & rec.fields("評(píng)論條數(shù)").value & "</td>") Re

39、sponse.Write("</tr>") rec.MoveNext loop Response.Write("</table>") response.write("</td></tr></table>") rec.Close set rec=nothing con.Close set con=nothing %> <tr> <td width="100%"></td> </tr> </table

40、> </body> 查詢作文。瀏覽者在表單中填入查詢標(biāo)準(zhǔn)，并在右方的選框中確認(rèn)后，可點(diǎn)擊確定進(jìn)行作文查詢。查詢的執(zhí)行由search.ASP文件來執(zhí)行。其代碼及分析如下： <% Language=VBScript %> <!- #include file="AboutFunctions.inc" -> <style type="text/css" rel=stylesheet> A:link color:blue;text-decoration:none; A:hover color:red;text-

41、decoration:none; A:visited </style> <% on error resume next dim bt,zz,lj,lx,add_result,sql if request.form("pd")="true" then '從首頁傳過來的 add_result=cint(request.form("kk1")+cint(request.form("kk2")+cint(request.form("kk3")+cint(request.form

42、("kk4") if add_result=0 then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)至少選擇一個(gè)查詢項(xiàng)目!</font>") Response.End end if bt=trim(request.form("bt")'標(biāo)題 zz=trim(request.form("zz")'作者(別名) lj=request.form("lj")'年級(jí) lx=request.form

43、("type")'類型 else add_result=request.querystring("add_result") bt=request.querystring("bt") zz=request.querystring("zz") lj=request.querystring("lj") lx=request.querystring("lx") end if '*對(duì)輸入的語句進(jìn)行處理* if instr(bt,"'") th

44、en Response.Write("<font style='font:9pt'>對(duì)不起,非法查詢字符'!</font>") Response.End end if if instr(bt,"&") then Response.Write("<font style='font:9pt'>對(duì)不起,非法查詢字符&!</font>") Response.End end if if instr(zz,"'")

45、then Response.Write("<font style='font:9pt'>對(duì)不起,非法查詢字符'!</font>") Response.End end if if instr(zz,"&") then Response.Write("<font style='font:9pt'>對(duì)不起,非法查詢字符&!</font>") Response.End end if '* set con=server.CreateO

46、bject("ADODB.Connection") set rec=server.CreateObject("ADODB.recordset") con.Open "user","user","user" select case add_result case 1 if bt="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題關(guān)鍵字!</font>&quo

47、t;) Response.End end if sql="select * from zwtd_info where 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" case 2 if zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的作者關(guān)鍵字!</font>") Response.End end if sql="sele

48、ct * from zwtd_info where 發(fā)表者 like '%" & zz & "%' order by 發(fā)表時(shí)間 desc" case 3 sql="select * from zwtd_info where 發(fā)表者 like '%" & zz & _ "%' and 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" case 4 sql="selec

49、t * from zwtd_info where 年級(jí)='" & lj & "' order by 發(fā)表時(shí)間 desc" case 5 if bt="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題關(guān)鍵字!</font>") Response.End end if sql="select * from zwtd_info where 題目 like '%"

50、 & bt & "%' and 年級(jí)='" & lj & "' order by 發(fā)表時(shí)間 desc" case 6 if zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的作者關(guān)鍵字!</font>") Response.End end if sql="select * from zwtd_info where 發(fā)表者 like 

51、9;%" & zz & "%' and 年級(jí)='" & lj & "' order by 發(fā)表時(shí)間 desc" case 7 if bt="" or zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題或作者關(guān)鍵字!</font>") Response.End end if sql="select * fr

52、om zwtd_info where 發(fā)表者 like '%" & zz & "%' and 年級(jí)='" & lj & _ "' and 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" case 8 sql="select * from zwtd_info where 類別='" & lx & "' order by 發(fā)表時(shí)間 de

53、sc" case 9 if bt="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題關(guān)鍵字!</font>") Response.End end if sql="select * from zwtd_info where 題目 like '%" & bt & "%' and 類別='" & lx & "' order by

54、 發(fā)表時(shí)間 desc" case 10 if zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的作者關(guān)鍵字!</font>") Response.End end if sql="select * from zwtd_info where 發(fā)表者 like '%" & zz & "%' and 類別='" & lx & "'

55、; order by 發(fā)表時(shí)間 desc" case 11'題目,作者,類別 if bt="" or zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題或作者關(guān)鍵字!</font>") Response.End end if sql="select * from zwtd_info where 發(fā)表者 like '%" & zz & "%'

56、 and 類別='" & lx & _ "' and 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" case 12'年級(jí),類別 sql="select * from zwtd_info where 年級(jí)='" & lj & "' and 類別='" & lx & "' order by 發(fā)表時(shí)間 desc" ca

57、se 13''題目,年級(jí),類別 sql="select * from zwtd_info where 年級(jí)='" & lj & "' and 類別='" & lx & _ "' and 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" case 14'作者,年級(jí),類別 sql="select * from zwtd_info where 年級(jí)='

58、;" & lj & "' and 類別='" & lx & _ "' and 發(fā)表者 like '%" & zz & "%' order by 發(fā)表時(shí)間 desc" case 15 if bt="" or zz="" then Response.Write("<font style='font:9pt'>對(duì)不起,請(qǐng)輸入你要查找的標(biāo)題或作者關(guān)鍵字!</fon

59、t>") Response.End end if sql="select * from zwtd_info where 年級(jí)='" & lj & "' and 類別='" & lx & _ "' and 發(fā)表者 like '%" & zz & "%' and 題目 like '%" & bt & "%' order by 發(fā)表時(shí)間 desc" end s

60、elect '* dim ymh,jls,zys,tmp,i,bs,bsy tmp=0 ymh=Request.QueryString("page") bs=Request.QueryString("bs") bsy=Request.QueryString("bsy") '* if ymh="" then ymh=1 end if if not isnumeric(ymh) then Response.Write("<font style='font:9pt'>

61、對(duì)不起,非法訪問!</font>") Response.End end if if bs<>"" and bs<>"next" then Response.Write("<font style='font:9pt'>對(duì)不起,非法訪問!</font>") Response.End end if if bsy<>"" and not isnumeric(bsy) then Response.Write("<

62、font style='font:9pt'>對(duì)不起,非法訪問!</font>") Response.End end if '* ymh=clng(ymh) bsy=clng(bsy) rec.activeconnection=con rec.source=sql rec.cursortype=1 rec.locktype=1 rec.open if rec.eof then Response.Write("<font style='font:9pt'>對(duì)不起,沒有相關(guān)記錄!</font>&qu

63、ot;) Response.End end if '* rec.PageSize=20'一頁顯示記錄條數(shù) jls=rec.recordcount zys=rec.pagecount if zys<ymh then Response.Write("<font style='font:9pt'>對(duì)不起,非法訪問!</font>") Response.End end if if zys<bsy then Response.Write("<font style='font:9pt'&

64、gt;對(duì)不起,非法訪問!</font>") Response.End end if response.write("<table style='font:9pt' border='0' width='100%'>") '* response.write("<tr><td width='100%' colspan='7'>共有" & jls & "篇文章</td></t

65、r>") response.write("<tr><td width='100%' colspan='7'>") if bs="" then for i=1 to zys tmp=tmp+1 if tmp=11 then tmp=0 Response.Write("<a href=search.asp?page=" & i & "&bs=next&bsy=" & i & _ "&a

66、mp;add_result=" & add_result & "&bt=" & server.URLEncode(bt) & "&zz=" & server.htmlencode(zz) & _ "&lj=" & lj & "&lx=" & server.URLEncode(lx) & "> 下10頁>></a>") exit for else

67、if i=ymh then Response.Write("第" & i & "頁 ") else Response.Write("第<a href=search.asp?page=" & i & "&add_result=" & add_result & _ "&bt=" & server.htmlencode(bt) & "&zz=" & server.URLEncode

68、(zz) & _ "&lj=" & lj & "&lx=" & server.URLEncode(lx) & ">" & i &"</a>頁 ") end if end if next else for i=bsy to zys tmp=tmp+1 if tmp=11 then tmp=0 Response.Write("<a href=search.asp?page=" & i &

69、"&bs=next&bsy=" & i & _ "&add_result=" & add_result & "&bt=" & server.URLEncode(bt) & "&zz=" & server.htmlencode(zz) & _ "&lj=" & lj & "&lx=" & server.URLEncode(lx) &am

70、p; "> 下10頁>></a>") exit for else if i=ymh then Response.Write("第" & i & "頁 ") else Response.Write("第<a href=search.asp?page=" & i & "&bs=next&bsy=" & bsy & _ "&add_result=" & add_res

71、ult & "&bt=" & server.URLEncode(bt) & "&zz=" & server.htmlencode(zz) & _ "&lj=" & lj & "&lx=" & server.URLEncode(lx) & ">" & i &"</a>頁 ") end if end if next end if respons

72、e.write("</td></tr>") rec.AbsolutePage=ymh %> <tr> <td width="39%" align="center" bgcolor='#FF9900'>題目</td> <td width="11%" align="center" bgcolor='#FF9900'>作者</td> <td width="14%&q

73、uot; align="center" bgcolor='#FF9900'>上傳時(shí)間</td> <td width="7%" align="center" bgcolor='#FF9900'>年級(jí)</td> <td width="9%" align="center" bgcolor='#FF9900'>類別</td> <td width="9%" align

74、="center" bgcolor='#FF9900'>點(diǎn)擊數(shù)</td> <td width="11%" align="center" bgcolor='#FF9900'>評(píng)論條數(shù)</td> </tr> <% do while not rec.eof and j<rec.PageSize j=j+1 Response.Write("<tr>") Response.Write("<td wid

75、th='39%' align='center'><a href='clicktoread.asp?id=" & _ rec.fields("id").value & "'>" & rec.fields("題目").value & "</a></td>") Response.Write("<td width='11%' align='center'>" & rec.fields("發(fā)表者").value & "</td>") Response.Write("<td width='14%' align='center'>" & ShowTextPart(rec.fields("發(fā)表時(shí)間").value,10) & "</td>"