1、ASP網頁設計小技巧摘要：本文介紹了用ASP進展網頁設計過程中的幾個小技巧，包括新聞欄的創立和自動更新，以及公告欄的創立、使用和維護。指明理解決此類問題的大致方法。Abstrat:eintrdueseveraltrikshenusingAtiveServerPagestdesignhepages.Theseinludethereatinandautatiupdatingfnesluns,asellasthereatin,utilizatinandaintenanefbulletins.Thegeneralslutinsttheseprblesarepintedut.關鍵詞：ASP、新聞欄、公告

2、欄ASP是irsft公司推出的一種用以取代通用網關接口的技術，英文全稱AtiveServerPages。它是一個eb效勞器端的運行環境。ASP本身包含了VBSript和javasript引擎，使得腳本可以直接嵌入HTL中?，F將我們在ASP運用過程中的幾個小技巧與大家分享。一、新聞欄大多數網頁上有新聞欄，用以顯示最近新聞的主題，點擊此主題即可查看詳細報道。倘假設每天都一條條寫在網頁上，再依次建立鏈接太過費事。如何讓其可以根據文件自動更新呢？1預備工作：1建一個文件夾，起名為nes，假設存于D:/ASP/目錄下；2把每條新聞的詳細內容寫入文件，且此文件的命名形式為：x(nestie).ht。其中x

3、為此條新聞的主題，nestie為此條新聞發布的時間按年-月-日順序寫。為什么要這樣寫呢？看了下面的算法思想和源程序就知道了。2算法思想：對于nes文件夾中的文件，根據它們文件名中新聞發布的時間即括號內的內容，從大到小排序。這樣一來，最新的新聞排在最上面，只要在網頁相應位置顯示nes文件夾中最上面的假設干個文件名，因為文件名的命名方式如1中所述，就可以在新聞欄中顯示最新新聞了。3源程序段(用VBSript編寫的)%Difs,f,f1,f,filenudiuntdii,j,t1,t2difile(100)diystr(100)標志文件中日期的字符串unt=0Setfs=reatebjet(Srip

4、ting.FileSystebjet)Setf=fs.GetFlder(D:/ASP/nes)Setf=f.Filesfreahf1infunt=unt+1計文件個數file(unt)=fs.getbasenae(f1)標記文件基名yps=InStr(1,file(unt),()在文件基名中的位置文件基名中的日期字符串ystr(unt)=id(file(unt),yps+1,Len(file(unt)-(yps+1)nextfri=1tuntfrj=1tunt-iifystr(j)ystr(j+1)thent1=file(j)file(j)=file(j+1file(j+1)=t1t2=yst

5、r(j)ystr(j)=ystr(j+1)ystr(j+1)=t2endifnextnextj=1ifunt10then新聞欄中共顯示10條新聞teunt=untelseteunt=10endifdhilej=teunt%ahref=file:/D:/ASP/nes/%=file(j)%.httarget=ne_ind%=file(j)%/a%j=j+1lp%4新聞欄內容更新：只要養成良好的書寫習慣，使得新聞的名稱遵照1的要求，再把寫好的文件存入nes文件夾，新聞欄就會自動顯示出最新的10條新聞了。二、公告欄除了新聞欄之外，較常用的就是公告欄了，公告欄主要用來顯示一些重要的通知。當然這些通知是

6、要經常變化的。讓用戶每次更改公告內容時都到源程序里去修改嗎？當然不行，我們必須提供一個維護的界面給用戶，使得用戶只要輸入通知，網頁上的公告欄里自然就會顯示通知內容了。1.解決這一問題的關鍵在于靈敏應用FileSystebjet對象和TextStrea對象。在實際應用中，你無需自行建立TextStrea對象，因為只要利用FileSystebjet對象翻開了文件，系統便自動建立TextStrea對象。也就是說，一旦調用penTextFile或reateTextFile方法，便會傳回TextStrea對象。2.所需相關文件有三個：更新.asp、公告.asp、維護文本.txt，把它們存入d:/ASP/

7、aintain目錄下。3三個文件的主要功能和源程序段：1更新.asp主要功能是讓用戶輸入欲顯示的公告，檢驗輸入內容是否為空，假設不為空，那么提交給公告.asp程序處理。htlheadeta -equiv=ntent-Typentent=text/htl;harset=gb2312etanae=GENERATRntent=irsftFrntPage4.0etanae=PrgIdntent=FrntPage.Editr.Duenttitle更新公告欄內容/title/headbdysriptlanguage=vbsriptfuntindatahek()disg,errflagerrflag=tru

8、eiflen(tri(aintain.t1.value)=0thenfust(0)errflag=falsesg=請輸入需提交的公告內容endifif(errflag=false)thensgbxsg,64,hn!exitfuntinendifdatahek=errflagaintain.subitendfuntinsubfust(x)duent.aintain.eleents(x).fus()endsub/sriptfrethd=PSTatin=公告.aspnae=aintainpinputtype=textnae=t1size=84inputtype=resetvalue=重寫nae=B2

9、inputtype=buttnvalue=提交nae=B1nlik=datahek()/phrlr=#FF99FFsize=1/fr/bdy/htl語句中的atin=公告.asp局部，指出了在fr提交后要啟動的程序為“公告.asp。2公告.asp通過FileSystebjet對象和TextSrea對象對維護文本.txt文件進展讀寫操作，使得此文件最上面5行的內容為要在公告欄里顯示的公告。%distrstr=request.fr(t1)dis(5)nstfrreading=1,frriting=2difs,yfilesetfs=server.reatebjet(sripting.FileSyst

10、ebjet)setyfile=fs.pentextfile(維護文本.txt,frreading)以Reading形式翻開文件fri=1t5公告欄共顯示5條公告s(i)=yfile.readline讀取文件內容nextyfile.lsesetyfile=fs.pentextfile(維護文本.txt,frriting,true)以riting形式翻開文件yfile.ritelinestrfri=1t4yfile.ritelines(i)將數據寫回文件nextyfile.lse%3維護文本.txt此文件開場為空，從更新.asp顯示的界面輸入公告后，此文件內容被自動寫入。4在主頁文件通常是default.asp欲顯示公告位置的代碼段中參加如下代碼，即可顯示出更新后的公告。arqueesrllaunt=2srlldelay=50diretin=upidth=223hEight=133id=anusever=a.stp()nuseut=a.start()公告欄上下滾動%Dis(20)Difs,yFileSetfs=reatebjet(Sripting.FileSystebjet)SetyFile=fs.penTextFile(D:/ASP/aintain/維護文本.txt,1,true)fri=1t5ReadLineT