面向移動用戶的在線BLOG系統(tǒng)

1、面向挪動用戶的在線BLOG系統(tǒng)論文關鍵詞：挪動博客AP標準RSSXL論文摘要：目前，博客在互聯(lián)網中的應用極其普遍，隨著上網用戶數量的不斷上升，為了滿足挪動用戶對信息的便捷性、廣泛性、實時性、交互性的強烈需求，面向挪動用戶的在線BLG系統(tǒng)的課題研究非常必要。面向挪動用戶的在線BLG系統(tǒng)，是以為媒介、以個人信息為散發(fā)點的挪動用戶溝通平臺。本系統(tǒng)依托于“河南中醫(yī)學院記憶年輪系統(tǒng)，并增加在線BLG閱讀器的功能，為挪動用戶搭建一個“隨時隨地記錄心情、時時刻刻關注好友的友好效勞平臺。該系統(tǒng)按照ap2.0標準，采用RSS聚合、XL、數據庫等技術獲得數據載體，借助挪動開發(fā)相關技術通過挪動設備把內容展現給挪動用

2、戶。該課題完成后，挪動用戶就可以通過享受文字發(fā)布、閱覽、評論、收藏等挪動效勞，真正體驗到“永不掉線的感覺。1引言1.1課題的背景業(yè)界人士認為,與單一的挪動增值業(yè)務不同,挪動博客的出現開拓了網絡社區(qū)交流和信息傳播的新途徑。網絡社區(qū)形成的關鍵在于用戶的廣泛參與和互動。應當看到,時下流行的彩信和AP等挪動增值業(yè)務大都采用定制、下載的形式,用戶可以上傳和參與的業(yè)務應用非常有限,用戶間的互動性缺乏,而挪動博客給人們提供了一個實時交流并能實現互動的平臺。通過挪動博客,用戶在自我愉悅的同時,還可以吸引志同道合者參與其中,與自己一起分享;用戶也可以隨時隨地通過多種方式閱讀到其他博友的日志,進展實時溝通?？傊?

3、挪動博客使得每個人都可以成為信息和新聞的制造者,即使不會短信輸入的用戶也可以用照片、聲音、錄像等業(yè)務形式為挪動博客提供信息內容。挪動博客鼓勵個人對信息內容的創(chuàng)作和發(fā)布,鼓勵個人成為媒體中心,這將對“第五媒體的開展產生宏大的推動作用。1-51.2課題的目的旨在開發(fā)一個面向挪動用戶的在線BLG系統(tǒng)，其依托于“河南中醫(yī)學院記憶年輪系統(tǒng)，并增加在線BLG閱讀器的功能，為挪動用戶搭建一個“隨時隨地記錄心情、時時刻刻關注好友的友好效勞平臺。用戶可以通過支持上網的挪動設備訪問該系統(tǒng)，隨時隨地記錄心情、時時刻刻關注好友，還可以訂閱自己感興趣的博客。1.3課題的意義該課題充分表達了挪動互聯(lián)網的挪動性、用戶定制性

4、、隨時性。該課題的研究，可以滿足信息時代挪動用戶對信息的便捷性、廣泛性、強實時性、強交互性的強烈需求，進一步推動挪動互聯(lián)網的開展。隨著中國3G通信的啟動，多媒體業(yè)務所倡導的“娛樂無限內容將大行其道，如今，博客在互聯(lián)網上的內容已經占據了相當大的比例，不久的將來，挪動博客將作為“第二博客出現，更符合隨時隨地拍照、上傳照片、聲音等自由秀的特點，更能詮釋博客自由、個性化的一面。2系統(tǒng)分析2.1可行性分析挪動博客除了很好的繼承傳統(tǒng)博客的開放性、草根性、互動性、原創(chuàng)性、個人性等特點,還具備了自身更強的新特點：便捷性、廣泛性、強實時性、強交互性。這些優(yōu)勢使其具備了廣泛的、符合時代需要的應用前景。6-72.2

5、用戶需求分析根據用戶類型的不同，可以將挪動用戶分為個人用戶、企業(yè)用戶和媒體用戶，下面從這3類不同用戶的角度對挪動用戶需求進展分析：1個人用戶分析根據NNI的最新統(tǒng)計，我國網民數量已經到達了1.23億人，經常寫博客的人已經到達了2800萬。隨著用戶效勞要求的多樣性和個性化越來越明顯，一種隨時隨地寫博客的需求逐漸浮出水面，最合適的最方便的途徑就是挪動，挪動博客作為互聯(lián)網博客的一種拓展應用逐漸開展起來了。目前，在專業(yè)挪動博客網站139.上，挪動博客正以每天1萬名新增用戶的速度增加，其中有3000人是純用戶，這些挪動博客用戶正在為可以時時上傳自己的見聞而興奮不已。2企業(yè)用戶分析作為一種企業(yè)形象推廣的補

6、充手段，挪動博客的企業(yè)推廣效果的性價比相對較高。企業(yè)使用的挪動博客沉著量、穩(wěn)定性、速度、以及提供的個性化功能等各種參數來講要比個人挪動博客高出一個級別。為此挪動博客效勞提供商可以向企業(yè)收取效勞費用，企業(yè)也會很樂意支付相比照擬低的推廣費用。目前，挪動博客這一媒體還沒有得到國內企業(yè)的廣泛關注，這可能和挪動博客整體開展情況有關。3媒體用戶分析國外的許多主流媒體已經開場介入挪動博客這個新的領域。以紐約時報為例，他們就找了許多寫手，以博客的形式為他們做報道，有的人將他們稱作“商業(yè)博客。這種微內容在一定程度上得到商業(yè)媒體的認可，因為挪動博客讓他們看到了微內容的商業(yè)價值，而在微內容的豐富性方面，商業(yè)媒體有很

7、大的優(yōu)勢。8-112.3系統(tǒng)的主要技術分析該系統(tǒng)按照AP2.0標準，采用RSS聚合、XL、數據庫、API等技術獲得數據載體，借助挪動開發(fā)相關技術通過挪動設備把內容展現給挪動用戶。技術詳細分析如下：2.3.1AP2.0標準AP2.0主要采用的技術：=1*GB3XHTLP。采用XHTLP來擴展XHTL的根本用戶簡介，并可以按需要增加其他語言元素。=2*GB3TP/IP傳送協(xié)議挪動簡本。AP2.0將推動業(yè)界為無線鏈路開發(fā)TP挪動簡本。=3*GB3Internet上運行的通用TP互操作。=4*GB3挪動友好技術：包括XHTL的簡本;層疊款式表SS挪動簡本;用戶個性愛好和設備才能介紹等。與AP1.2相比

8、，AP2.0主要表達在：采用最新的Internet標準和協(xié)議，能優(yōu)化網絡帶寬的利用以及基于數據包的全球無線網絡的連接。能對已有的AP內容、應用和業(yè)務提供可管理的向后兼容性。AP2.0XHTLP，并支持AP1.x內容的L。這些標記語言在發(fā)揮其獨特優(yōu)點的同時，為挪動設備提供適宜的內容業(yè)務。支持對L1.0的完全向后兼容。L2.0在L1.0增加了向后兼容的詳細特性后對XHTLP的擴展，可實現從L1.0到XHTLP的名稱、屬性的轉換。支持的圖片格式有：GIF，JPEG，PNG，BP、BP等。按照AP2.0標準化組織提出的標準開發(fā)標準進展頁面開發(fā)，例如：支持XHTL的簡本，層疊款式表SS挪動簡本，多媒體信

9、息效勞S，APPush等。支持語言：支持內容標記語言、nsrtiu3以XLextensiblearkuplanguage為根底規(guī)定的兼容HTL的“XHTLBasi，和SSasadingstylesheets款式單。支持協(xié)議：因特網標準的TP/IP。2.3.2AP網站發(fā)布技術我所使用的效勞器軟件是微軟的IIS6.0，操作系統(tǒng)是irsftindsServer2022。在IIS平臺創(chuàng)立一個新的IE類型。先選擇AP站點的屬性，然后選擇“ 頭標簽。在“IE類型局部，點擊“IE類型并且新建以下信息：表2.1IE類型信息表擴展名IE類型ltext/vnd.ap.llappliatin/vnd.ap.lbpi

10、age/vnd.ap.bplsappliatin/vnd.ap.lsriptlstext/vnd.ap.lsriptsappliatin/vnd.ap/lsript2.3.3RSS聚合技術RSS是一種XL方言，用于連鎖eb內容和元數據RSS文件由一個hannel元素及其子元素組成除了頻道內容本身之外，hannel還以項的形式包含表示頻道元數據的元素，比方title、link和desriptin項通常是頻道的主要局部，包含經常變化的內容頻道一般有3個元素，提供關于頻道本身的信息：title：頻道或提要的名稱link：與該頻道關聯(lián)的eb站點或者站點區(qū)域的URLdesriptin：簡要介紹該頻道是做

11、什么的122.3.4XL數據存儲技術XL(eXtensiblearkupLanguage)是一種描繪型的標記語言，與HTL同為SGL(標準通用標記語言，IS-8879國際標準)的一種應用。由于XL在可擴展性、可移植性和構造性等方面的突出優(yōu)點它的應用范圍打破了HTL所到達的范圍。XL文檔由標記和內容組成。XL中有六種標記：元素(eleents)、屬性(attributes)、實體引用(entityreferenes)、注釋(ents)、處理指令(pressinginstrutins)和DATA段(DATAsetins)。XL與HTL最顯著的不同是XL文檔中引入了“文檔類型聲明(DuentType

12、Definitin)。DTD使文檔可以與分析器交流關于它的內容的元信息。DTD的出現，賦予了XL文檔可擴展性、構造性和可驗證性，使XL具備了類似于數據庫的一些性質，可以利用XL來組織和管理信息；又可以與HTL一樣在閱讀器中方便地表示，在Internet上高效地傳遞和交換。132.3.5數據庫技術在SQLSERVER中來開發(fā)數據庫，我們可以用它的企業(yè)管理工具來建立數據庫，也可以用它的SQL語言分析器(QUERYANAlYZER)來建數據庫，當建立好數據庫以后，需要創(chuàng)立一個數據源，將該數據庫作為一項效勞出版到INTERNET或INTRANET上，以便JSP、ASP等程序以通過JDBDB等技術訪問數

13、據庫。142.4系統(tǒng)的運行環(huán)境和開發(fā)工具計算機聯(lián)入互聯(lián)網系統(tǒng)要求：in2022+SQLserver2022+IIS6.0必需軟件：模擬器+AtiveSyn同步軟件3數據庫設計圖3.1ER圖3.1數據庫構造設計3.1.1概念構造設計3.1.2邏輯構造設計見附錄一。3.2數據庫構造實現見附錄二。3.3運用設計3.3.1平安保密設計數據的平安性是指保護數據以防止因不合法的使用而造成數據的泄露、更改和破壞。這就要采取一定的平安措施。在數據庫系統(tǒng)中，用檢查口令等手段來檢查用戶身份,合法的用戶才能進入數據庫系統(tǒng)；當用戶對數據庫操作時，系統(tǒng)自動檢查用戶是否有權限執(zhí)行這些操作。15為數據庫bileBlg建立一

14、個用戶“B。詳細操作步驟如下：=1*GB3將SQLServer的身份驗證形式設置為混合形式。以系統(tǒng)管理員身份登錄，右擊SQLServer效勞器圖標，出現快捷菜單，選擇菜單項“屬性，出現SQLServer效勞器屬性配置窗口，選擇“平安性選項卡，選擇身份驗證方式為“SQLServer和inds身份驗證，選擇“確定按鈕。如圖。=2*GB3新建SQLServer登錄帳號“B。翻開對象資源管理器目錄樹，選擇“平安性“登錄名“新建登錄名，在“常規(guī)選項中輸入登錄名“B及密碼。3.3.2數據庫完好性數據庫的完好性是指防止數據庫中存在不符合語義的數據，也就是防止數據庫中存在不正確的數據。本數據庫中的數據在插入前

15、都是經過程序驗證后正確的數據，在程序中實現詳細的完好性控制。154程序構造設計4.1總體設計4.1.1系統(tǒng)物理構造圖圖4.1系統(tǒng)物理構造圖圖4.2系統(tǒng)總體流程圖4.1.2系統(tǒng)總體流程圖4.2功能構造描繪功能主要包括隨意看看功能、好友功能、私信功能、消息功能、刪除標簽功能、添加標簽功能、文章收藏功能、文章推薦功能和博客訂閱功能，詳細流程見附錄三。4.3核心代碼見附錄四。4.4系統(tǒng)截圖見附錄五。5測試5.1測試的目的軟件測試是為了發(fā)現程序中的錯誤而執(zhí)行程序的過程。軟件測試的概念開展比擬迅速，正確認識軟件測試的定義是非常重要。目前，國際上已對軟件測試形成一個共識：軟件測試就是在軟件投入使用前，對軟件

16、的需求分析、設計規(guī)格說明和系統(tǒng)編碼的最終復審。由此可見，軟件測試的對象不僅僅是程序，需求規(guī)格說明、概要設計、詳細設計、源程序都是軟件測試的對象。175.2測試的方法與步驟由于該系統(tǒng)的用戶群是持有挪動設備的用戶，因此該系統(tǒng)的測試分為開發(fā)調試測試和真機測試兩個階段。1開發(fā)調試測試在開發(fā)調試階段，用真機進展測試不太現實。因此在開發(fā)用計算機上安裝挪動設備同步軟件和模擬器，通過模擬器中的閱讀器進展測試。詳細流程見附錄六。2真機測試開發(fā)調試完成后，可以將該系統(tǒng)進展正式部署試運行，用在閱讀器輸入網址，假如連入網絡的話，就可以訪問該網站，進展進一步的測試。6總結面向挪動用戶的在線BLG系統(tǒng)的開發(fā)，讓用戶通過就

17、可以實現文字發(fā)布、閱覽、評論、收藏、效勞管理。它將現有的互聯(lián)網和電信增值業(yè)務完美結合，將1.23億互聯(lián)網用戶和4.26億的用戶相結合，前景非常廣闊。挪動博客作為新惹事物，通過產業(yè)價值鏈各環(huán)節(jié)的共同努力，挪動博客的開展必將勢如破竹，擁有宏大的開展空間和良好的開展前景。參考文獻1挪動博客開拓社區(qū)交流新天地J.新應用,2022：32-33.2胡忠青.挪動博客的傳播優(yōu)勢與產業(yè)鏈商機J.東南傳播,2022：55-57.3陳瀟.挪動博客全新的娛樂J.互聯(lián)網天地,2022：20-20.4梁宏.專訪博客鄭云深挪動博客別樣視角J.多媒體世界,2022：102-104.5劉洪清.風生水起“第五媒體J.青年記者,2

18、022：13-14.6劉衡萍.挪動博客市場分析及盈利形式討論J.通信世界,2022：45-46.7陳錦花,馬凌.挪動博客創(chuàng)始全新體驗J.中國電信業(yè),2022：36-37.8徐海燕.淺談挪動博客特點及開展根底J.商業(yè)現代化,2022(529):125-126.9劉欣.挪動博客3G流媒體的重要載體J.數碼世界,2022(02)：11-12.10新PIA打造個人挪動博客J.每周電腦報,2022：4-5.11陳錦花,馬凌.如何點燃挪動博客市場J.中國新通信,2022：81-82.12高鵬.BLG中的RSS技術探究J,2022,25(2)：61-62.13何月梅,劉翠霞,溫炎耿.基于XL高校存儲數據信息

19、的研究J.商業(yè)現代化,2022,下旬刊(537)：12-13.14胡艷維.SQLSERVER數據庫系統(tǒng)應用討論J.萍鄉(xiāng)高等?？茖W校學報,2001(4)：67-68.15王珊,薩師煊.數據庫系統(tǒng)概論.北京市西城區(qū)德外大街4號：高等教育出版社，2022(5)：152-154.16劉好增,張坤.ASP動態(tài)網站開發(fā)理論教程.北京：清華大學出版社，2022.17胡琨,劉浩,劉濤.初議軟件測試，江西九江：241-242.18.3shl.n.19.pdx.n/.附錄一邏輯構造設計表3.1：博客信息表字段名稱字段類型主外鍵約束是否為空字段描繪BlgIDInt主鍵否博客編號BlgURLhar否博客網絡地址Blg

20、XLPathhar否博客XL相對存儲位置Subuntlng默認值為1否訂閱次數表3.2：用戶評論表字段名稱字段類型主外鍵約束是否為空字段描繪RevieIDInt主鍵否自動編號UserIDInt是用戶編號IteGuidInt否文章唯一標識BlgIDInt外鍵否文章所屬博客的編號RevieDeshar否評論內容RevieTieDate否評論時間表3.3：用戶收藏表字段名稱字段類型主外鍵約束是否為空字段描繪lletIDInt主鍵否自動編號UserIDInt否用戶編號BlgIDInt外鍵否文章所屬博客的編號IteGuidhar否文章唯一標識lletTypeInt否收藏類型lletTieDate否收藏時

21、間TagIDSethar是標簽編號集表3.4：用戶標簽表字段名稱字段類型主外鍵約束是否為空字段描繪UserIDInt主鍵否用戶編號TagIDInt外鍵否標簽編號UTUseduntInt默認值為1用戶使用該標簽的次數表3.5：用戶推薦表字段名稱字段類型主外鍵約束是否為空字段描繪ReIDInt主鍵否自動編號UserIDInt是用戶編號IteGuidInt否文章唯一標識BlgIDInt外鍵否文章所屬博客的編號ReTieDate否推薦時間表3.6：用戶訂閱表字段名稱字段類型主外鍵約束是否為空字段描繪UserIDInt主鍵否用戶編號BlgIDInt主鍵、外鍵否博客編號SubTieDate否訂閱時間表3.

22、7：“用戶目錄分類博客表字段名稱字段類型主外鍵約束是否為空字段描繪UBIDInt主鍵否自動編號UserIDInt聚集索引否用戶編號lassIDInt外鍵否分類編號BlgIDInt外鍵否博客編號LastIteGuidhar是上次閱讀的最新文章的標識表3.8：分類描繪表字段名稱字段類型主外鍵約束是否為空字段描繪lassIDInt主鍵否分類編號lassDeshar否分類描繪表3.9：標簽描繪表字段名稱字段類型主外鍵約束是否為空字段描繪TagIDInt主鍵否標簽編號TagDeshar否標簽描繪TUseduntInt默認值為1否被使用次數表3.10：閱讀統(tǒng)計表字段名稱字段類型主外鍵約束是否為空字段描繪B

23、lgIDInt主鍵外鍵否文章所屬博客的編號IteGuidhar主鍵否博文唯一標識ReaduntInt默認值為1否閱讀次數附錄二存儲過程的使用usebileBlg-1、用戶退訂IfExists(seletnaefrsysbjetsherenae=annelSubBlgPrandtype=p)drppredureannelSubBlgPrreatepredureannelSubBlgPr(useridint,blgidint)asbeginupdateBlgInfsetSubunt=Subunt-1hereBlgID=blgiddeletefrSubhereUserID=useridandBlgI

24、D=blgiddeletefrUBhereUserID=useridandBlgID=blgiddeletefrRehereUserID=useridandBlgID=blgidendexeannelSubBlgPr29,2-2、檢測用戶是推薦或收藏過某個博客的某篇文章IfExists(seletnaefrsysbjetsherenae=RellehekPrandtype=p)drppredureRellehekPrreatepredureRellehekPr(useridint,blgidint,iteidnvarhar(100)assetnuntnbeginselet*frRehereUs

25、erID=useridandBlgID=blgidandIteGuid=iteidIfrunt=0return0elsereturn1endexeRellehekPr29,1,hi.baidu./liingxian177/blg/ite/8754235d7e821790ef3934.htl-3、檢查TagDes是否存在，并獲得其TagIDIfExists(seletnaefrsysbjetsherenae=GetTagIDPrandtype=p)drppredureGetTagIDPrreatepredureGetTagIDPr(TagIDintutput,TagDesnvarhar(50)a

26、sbeginIfexists(seletTagIDfrTaghereTagDes=TagDes)beginupdateTagsetTUsedunt=TUsedunt+1hereTagDes=TagDesSeletTagID=TagIDfrTaghereTagDes=TagDesendelsebeginInsertIntTag(TagDes)Values(TagDes)SeletTagID=TagIDfrTaghereTagDes=TagDesendreturnTagIDend-4、判斷該用戶是否用過該標簽，假如用過的話，UTUsedunt加一，否那么向UserTag表中插入一條新記錄IfExi

27、sts(seletnaefrsysbjetsherenae=hekUserTagPrandtype=p)drppredurehekUserTagPrreatepredurehekUserTagPr(UserIDint,TagIDint)asbeginIfexists(selet*frUserTaghereUserID=UserIDandTagID=TagID)updateUserTagsetUTUsedunt=UTUsedunt+1hereUserID=UserIDandTagID=TagIDElseinsertintUserTag(UserID,TagID)values(UserID,Tag

28、ID)endexehekUserTagPr29,5-5、別離出TagID，更新Tag、UserTag表中的統(tǒng)計信息IfExists(seletnaefrsysbjetsherenae=UpdateTagPrandtype=p)drppredureUpdateTagPrreatepredureUpdateTagPr(UserIDint,TagIDint)asbeginupdateTagsetTUsedunt=TUsedunt-1hereTagID=TagIDupdateUserTagsetUTUsedunt=UTUsedunt-1hereUserID=UserIDandTagID=TagIDen

29、d-6、用戶刪除收藏的文章IfExists(seletnaefrsysbjetsherenae=anellletPrandtype=p)drppredureanellletPrreatepredureanellletPr(UIDint,BIDint,IIDnvarhar(100)asbegindelareStrnvarhar(50)delarePsintdelareNeedStrnvarhar(50)SeletStr=TagIDSetFrllethereUserID=UIDandBlgID=BIDandIteGuid=IIDseletPs=patindex(%,%,Str)hile(Ps0)B

30、eginSeletNeedStr=Left(Str,Ps-1)-PrintNeedStrexeUpdateTagPrUID,NeedStrSeletStr=Right(Str,Len(Str)-Ps)SeletPs=patindex(%,%,Str)EndSeletNeedStr=Str-PrintNeedStrexeUpdateTagPrUID,NeedStr-刪除llet表中的這條收藏記錄DeleteFrllethereUserID=UIDandBlgID=BIDandIteGuid=IIDendexeanellletPr29,3,anxun1987.blg.shu./98354302.h

31、tl18附錄三功能流程圖1隨意看看功能2好友功能3私信功能4消息功能5刪除標簽功能6添加標簽功能7文章收藏功能8文章推薦功能9博客訂閱功能附錄四核心代碼%FuntinGetSurEinf(url)dixl ,xlgetnerrrresuenextSetxl =reatebjet(irsft.XL )ithxl .penGET,url,False.Sendif.status200thenxlget=falseelsexlget=bin2str(.respnseBdy)endifEndithsetxl =nthingGetSureInf=xlgetEndFuntinFuntinbin2str(bi

32、nstr)nstadTypeBinary=1nstadTypeText=2DiBytesStrea,StringReturnSetBytesStrea=Server.reatebjet(ADDB.Strea)ithBytesStrea.Type=adTypeText.pen.riteTextbinstr.Psitin=0.harset=gb2312.Psitin=2StringReturn=.ReadText.lseEndithSetBytesStrea=Nthingbin2str=StringReturnEndFuntin19FuntinRexExpFun(pat,str)Dinu,tepA

33、rr,iSetregEx=NeRegExpregEx.Pattern=patregEx.Ignrease=TrueregEx.Glbal=TrueSetathes=regEx.Exeute(str)nu=athes.untIfnu=0ThenReDitepArr(1)tepArr(0)=0ElseReDitepArr(nu)i=0FrEahathinathestepArr(i)=ath.valuei=i+1NextEndIfRexExpFun=tepArrEndFuntinFuntinGetRssURL(pat,str)DilinkArr,b,hrefArr,hrefStrlinkArr=Re

34、xExpFun(pat,str)ReDihrefArr(Ubund(linkArr)frb=0tUbund(linkArr)-1iflinkArr(0)=0thenhrefArr(0)=0elsehrefStr=RexExpFun(href=qut.*?qut,linkArr(b)hrefArr(b)=id(hrefStr(0),12,Len(hrefStr(0)-16)endifnextGetRssURL=hrefArrEndFuntin20SubShhaDes(URL)Set =Server.reatebjet(irsft.XL ) .penGET,URL,False .sendSetxl

35、=Server.reatebjet(irsft.XLD)xl.Asyn=Falsexl.ValidatenParse=Falsexl.Lad( .RespnseXL)Settitle=xl.getEleentsByTagNae(title)Setdes=xl.getEleentsByTagNae(desriptin)Respnse.rite(標題：title.ite(0).textbr/描繪：des.ite(0).textbr/RSS地址：URL)EndSub獲得遠程文檔并保存到本地funtingetretefiles(retepath,lalpath,filenae)distrbdydifi

36、lepathnerrrresuenextstrbdy=getbdy(retepath)ifright(lalpath,1)thenlalpath=lalpathfilepath=lalpathfilenaeifsavetfile(strbdy,filepath)=trueanderr.nuber=0thengetretefiles=trueelsegetretefiles=falseendifendfuntin遠程獲取內容funtingetbdy(url)diretrievalsetretrieval=reatebjet(irsft.xl )ithretrieval.penget,url,fa

37、lse,.sendgetbdy=.respnsebdyendithsetretrieval=nthingendfuntin重組文檔名funtingetfilenae(retepath,filenae)diarrtpdistrfileextarrtp=split(retepath,.)strfileext=arrtp(ubund(arrtp)getfilenae=filenae.strfileextendfuntin將流內容保存為文檔funtinsavetfile(strea,filepath)dibjstreanerrrresuenextsetbjstrea=server.reatebjet(

38、addb.strea)bjstrea.type=1以二進制形式翻開bjstrea.penbjstrea.ritestreabjstrea.savetfilefilepath,2bjstrea.lse()setbjstrea=nthingiferr.nuber0thensavetfile=falseelsesavetfile=trueendifendfuntin重寫本地保存的RSS文檔SubverriteLalRssFile(retepath,lalpath)distrbdydifilepathfilepath=lalpathnerrrresuenextstrbdy=getbdy(retepat

39、h)allsavetfile1(strbdy,filepath)EndSubSubsavetfile1(strea,filepath)dibjstreanerrrresuenextsetbjstrea=server.reatebjet(addb.strea)bjstrea.type=1以二進制形式翻開bjstrea.penbjstrea.ritestreabjstrea.savetfilefilepath,2bjstrea.lse()setbjstrea=nthingendSub獲得博客標題FuntinGetBlgTitle(LalPath)SetXlbj=Server.reatebjet(i

40、rsft.XLD)Xlbj.ASYN=FalseXlbj.Lad(LalPath)SetTitle=Xlbj.GetEleentsByTagNae(title)GetBlgTitle=Title.Ite(0).TextEndFuntin對博客文章內容進展處理FuntinFratDes(Des)DiResultResult=Replae(Des,ahref=,)FratDes=ResultEndFuntin去掉所有的HTL標簽FuntinReplaeHTLTags(str)DiRe,ath,athes,RetStr,RepRep=RetStr=strSetRe=NeRegExpRe.Pattern=(*)Re.Ignrease=TrueRe.Glbal=TrueSetathes=Re.Exeute(RetStr)FrEahathinathesRetStr=replae(RetStr,ath.value,)NextReplaeHTLTags=RetStrEndFuntin測試是否有符合匹配FuntinRexExphek(pat,ntent)SetRe=NeRegExpRe.Pattern=patRe.Ignrease=TrueRe.