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

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

2、網(wǎng)上的這種方式進行交流，對學生作文水平的提高會起到很大的作用。 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的簡單認識 二網(wǎng)上作文欄目實現(xiàn)的目標 三網(wǎng)上作文欄目自動化管理實現(xiàn)的幾個ASP文件簡介 四數(shù)據(jù)庫的搭建 五ASP文件實現(xiàn)自動化管理過程的細節(jié) 六其它應注意的問題 七小結 隨著網(wǎng)絡科技的發(fā)展，使得網(wǎng)絡逐漸成為人們生活與學習的工具。許多中小學校都開始建立自己的網(wǎng)站，網(wǎng)絡教學開始在教育中展現(xiàn)她無與倫比的優(yōu)勢。她注定將給傳統(tǒng)的教育方式帶來翻天覆地的變化。但由于傳統(tǒng)教育工作者在網(wǎng)絡技術上的欠缺，使許多學校都只在硬件配置上大量投入，而忽略了在軟件及應用上的投入。本文將以用ASP技術實現(xiàn)網(wǎng)上作

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

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

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

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

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

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

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

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

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

14、ot;%> <!-下行所包含的文件用來實現(xiàn)文字顯示時，字符超出部份用“”代替，以使界面美觀、充實。-> <!- #include file="AboutFunctions.inc" -> <html> <head> <title>歡迎來到文學天地!</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、;> <!-下行建立一個進入網(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進行查詢-> <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%">年級<select size="1" >"lj"> <option selected value="1">一年級</option> <option value="2">二年級</option> <option value="

21、3">三年級</option> <option value="4">四年級</option> <option value="5">五年級</option> <option value="6">六年級</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 頁面號：對記錄進行分頁后的每一頁的頁碼號 'sql 查詢語句變量：用于存儲查詢語句的臨時變量 'jls 記錄數(shù)：數(shù)據(jù)庫中的作文數(shù)量 'zyx 總頁

28、數(shù) 'tmp 臨時變量 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ā)表時間 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、;>上傳時間</td> <td width="7%" align="center" bgcolor='#FF9900'>年級</td> <td width="9%" align="center" bgcolor='#FF9900'>類別</td> <td width="9%" align="center" bgcolor='#FF9900'>點擊數(shù)&l

34、t;/td> <td width="11%" align="center" bgcolor='#FF9900'>評論條數(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ā)表時間").value) & "</td>") Respons

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

38、e.Write("<td width='9%' align='center'>" & rec.fields("點擊次數(shù)").value & "</td>") Response.Write("<td width='11%' align='center'>" & rec.fields("評論條數(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> 查詢作文。瀏覽者在表單中填入查詢標準，并在右方的選框中確認后，可點擊確定進行作文查詢。查詢的執(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'>對不起,請至少選擇一個查詢項目!</font>") Response.End end if bt=trim(request.form("bt")'標題 zz=trim(request.form("zz")'作者(別名) lj=request.form("lj")'年級 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 '*對輸入的語句進行處理* if instr(bt,"'") th

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

45、then Response.Write("<font style='font:9pt'>對不起,非法查詢字符'!</font>") Response.End end if if instr(zz,"&") then Response.Write("<font style='font:9pt'>對不起,非法查詢字符&!</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'>對不起,請輸入你要查找的標題關鍵字!</font>&quo

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

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

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

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

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

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

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

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

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

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

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

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

59、t>") Response.End end if sql="select * from zwtd_info where 年級='" & lj & "' and 類別='" & lx & _ "' and 發(fā)表者 like '%" & zz & "%' and 題目 like '%" & bt & "%' order by 發(fā)表時間 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、對不起,非法訪問!</font>") Response.End end if if bs<>"" and bs<>"next" then Response.Write("<font style='font:9pt'>對不起,非法訪問!</font>") Response.End end if if bsy<>"" and not isnumeric(bsy) then Response.Write("<

62、font style='font:9pt'>對不起,非法訪問!</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'>對不起,沒有相關記錄!</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'>對不起,非法訪問!</font>") Response.End end if if zys<bsy then Response.Write("<font style='font:9pt'&

64、gt;對不起,非法訪問!</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'>上傳時間</td> <td width="7%" align="center" bgcolor='#FF9900'>年級</td> <td width="9%" align="center" bgcolor='#FF9900'>類別</td> <td width="9%" align

74、="center" bgcolor='#FF9900'>點擊數(shù)</td> <td width="11%" align="center" bgcolor='#FF9900'>評論條數(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ā)表時間").value,10) & "</td>"