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

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

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

3、 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 other v

4、isits could read it and find some good ideas. 目錄 一ASP的簡單認(rèn)識 二網(wǎng)上作文欄目實現(xiàn)的目標(biāo) 三網(wǎng)上作文欄目自動化管理實現(xiàn)的幾個ASP文件簡介 四數(shù)據(jù)庫的搭建 五ASP文件實現(xiàn)自動化管理過程的細(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ù)實現(xiàn)網(wǎng)上作文的自動化

5、管理的過程為例，講解怎樣在學(xué)校網(wǎng)站應(yīng)用現(xiàn)代網(wǎng)絡(luò)技術(shù)實現(xiàn)網(wǎng)絡(luò)自動化管理。 一ASP的簡單認(rèn)識 ASP的全稱是：Active Server Pages，是在服務(wù)器端腳本編譯環(huán)境，使用它可以創(chuà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)的動態(tài)網(wǎng)頁是非常適合的。 以下羅列了 Active Server Pages 所獨具的一些特點： 1. 使用 VBScript ，JScript 等簡

6、單易用的腳本語言，結(jié)合 HTML 代碼，即可快速地完成網(wǎng)站的應(yīng)用程序的編寫。 2. 無須編譯，容易編寫，調(diào)試方便可在服務(wù)器端直接執(zhí)行。 3. 使用普通的文本編輯器，如 Windows 的記事本，或在FRONTPAGE等流行軟件中都可進(jìn)行編輯設(shè)計。 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è)計外，還通過 plug-in 的方式，使用由第三方所提供的其他腳本語言，如：REXX 、 Perl 、 Tcl 等。腳本引擎是處理腳本程序的 COM(Component Object Model) 物件。 6.Active Server Pages 的源程序，不會被傳到客戶瀏覽器，因而可以避免所寫的源程序被他人直接剽竊，提高了程序的安全性。 7. 可使用服務(wù)器端的腳本來控制產(chǎn)生客戶端的腳本。 8.ActiveX Server Components(ActiveX 服務(wù)器元件 ) 具有無限可擴(kuò)充性?？梢允褂?Visual Basic 、 J

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

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

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

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

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

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

14、oration:none; A:hover color:red;text-decoration:none; A:visited OpenWin()網(wǎng)上投稿 作文查詢 題目bt size=8 KK1 value=1 作者zz size=8 KK2 value=2 年級lj 一年級 二年級 三年級 四年級 五年級 六年級 KK3 value=4 類別type 寫人 記事 狀物 說明文 議論文 詩歌 散文 KK4 value=8 pd B1 B2 function OpenWin() window.open(articleupload.asp,scrollbars=no,width=250,heig

15、ht=400); % dim ymh,sql,jls,zys,tmp,i ymh 頁面號：對記錄進(jìn)行分頁后的每一頁的頁碼號 sql 查詢語句變量：用于存儲查詢語句的臨時變量 jls 記錄數(shù)：數(shù)據(jù)庫中的作文數(shù)量 zyx 總頁數(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 use

16、r,user,user sql=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() response.write(共有 & jls & 篇文章 ) for i=1 to zys if i=ymh then Response.Write(第 &

17、i & 頁 ) else Response.Write(第 & i &頁 ) end if next response.write() response.write() response.write() rec.AbsolutePage=ymh j=0 題目 作者 上傳時間 年級 類別 點擊數(shù) 評論條數(shù) % do while not rec.EOF and jrec.PageSize j=j+1 Response.Write() Response.Write( & rec.fields(題目).value & ) Response.Write( & rec.fields(發(fā)表者).value

18、& ) Response.Write( & ShowDatePart(rec.fields(發(fā)表時間).value) & ) Response.Write( & rec.fields(年級).value & ) Response.Write( & rec.fields(類別).value & ) Response.Write( & rec.fields(點擊次數(shù)).value & ) Response.Write( & rec.fields(評論條數(shù)).value & ) Response.Write() rec.MoveNext loop Response.Write() response.

19、write() rec.Close set rec=nothing con.Close set con=nothing % 查詢作文。瀏覽者在表單中填入查詢標(biāo)準(zhǔn)，并在右方的選框中確認(rèn)后，可點擊確定進(jìn)行作文查詢。查詢的執(zhí)行由search.ASP文件來執(zhí)行。其代碼及分析如下： A:link color:blue;text-decoration:none; A:hover color:red;text-decoration:none; A:visited % on error resume next dim bt,zz,lj,lx,add_result,sql if request.form(pd)

20、=true then 從首頁傳過來的 add_result=cint(request.form(kk1)+cint(request.form(kk2)+cint(request.form(kk3)+cint(request.form(kk4) if add_result=0 then Response.Write(對不起,請至少選擇一個查詢項目!) Response.End end if bt=trim(request.form(bt)標(biāo)題 zz=trim(request.form(zz)作者(別名) lj=request.form(lj)年級 lx=request.form(type)類型

21、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 *對輸入的語句進(jìn)行處理* if instr(bt,) then Response.Write(對不起,非法查詢字符!) Response.End end if if instr(bt,&) then Response.Write(對不起,非法查詢字符&!) Response

22、.End end if if instr(zz,) then Response.Write(對不起,非法查詢字符!) Response.End end if if instr(zz,&) then Response.Write(對不起,非法查詢字符&!) Response.End end if * set con=server.CreateObject(ADODB.Connection) set rec=server.CreateObject(ADODB.recordset) con.Open user,user,user select case add_result case 1 if bt

23、= then Response.Write(對不起,請輸入你要查找的標(biāo)題關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 題目 like % & bt & % order by 發(fā)表時間 desc case 2 if zz= then Response.Write(對不起,請輸入你要查找的作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 發(fā)表者 like % & zz & % order by 發(fā)表時間 desc case 3 sql=select *

24、 from zwtd_info where 發(fā)表者 like % & zz & _ % and 題目 like % & bt & % order by 發(fā)表時間 desc case 4 sql=select * from zwtd_info where 年級= & lj & order by 發(fā)表時間 desc case 5 if bt= then Response.Write(對不起,請輸入你要查找的標(biāo)題關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 題目 like % & bt & % and 年級= & lj & o

25、rder by 發(fā)表時間 desc case 6 if zz= then Response.Write(對不起,請輸入你要查找的作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 發(fā)表者 like % & zz & % and 年級= & lj & order by 發(fā)表時間 desc case 7 if bt= or zz= then Response.Write(對不起,請輸入你要查找的標(biāo)題或作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 發(fā)表

26、者 like % & zz & % and 年級= & lj & _ and 題目 like % & bt & % order by 發(fā)表時間 desc case 8 sql=select * from zwtd_info where 類別= & lx & order by 發(fā)表時間 desc case 9 if bt= then Response.Write(對不起,請輸入你要查找的標(biāo)題關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 題目 like % & bt & % and 類別= & lx & order by 發(fā)

27、表時間 desc case 10 if zz= then Response.Write(對不起,請輸入你要查找的作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 發(fā)表者 like % & zz & % and 類別= & lx & order by 發(fā)表時間 desc case 11題目,作者,類別 if bt= or zz= then Response.Write(對不起,請輸入你要查找的標(biāo)題或作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 發(fā)

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

29、年級,類別 sql=select * from zwtd_info where 年級= & lj & and 類別= & lx & _ and 發(fā)表者 like % & zz & % order by 發(fā)表時間 desc case 15 if bt= or zz= then Response.Write(對不起,請輸入你要查找的標(biāo)題或作者關(guān)鍵字!) Response.End end if sql=select * from zwtd_info where 年級= & lj & and 類別= & lx & _ and 發(fā)表者 like % & zz & % and 題目 like % & bt

30、 & % order by 發(fā)表時間 desc end select * 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(對不起,非法訪問!) Response.End end if if bs and bsnext then Response.Write(對不起,

31、非法訪問!) Response.End end if if bsy and not isnumeric(bsy) then Response.Write(對不起,非法訪問!) 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(對不起,沒有相關(guān)記錄!) Response.End end if * rec.PageSize=20一頁顯示記錄條數(shù) jls=rec.recordcount zys=rec.pagecount if zysymh then Response.Write(對不起,非法訪問!) Response.End end if if zysbsy then Response.Write(對不起,非法訪問!) Response.End end if response.write() * response.write(共有 & jls & 篇文章) response.write() if bs= then for i=1