分享ASP網(wǎng)頁(yè)開(kāi)發(fā)過(guò)程中的小技巧
ASP是Microsoft公司推出的一種用以取代通用網(wǎng)關(guān)接口的技術(shù)，英文全稱(chēng)Active Server Pages。它是一個(gè)Web服務(wù)器端的運(yùn)行環(huán)境。ASP本身包含了VBScript和javascript引擎，使得腳本可以直接嵌入HTML中?，F(xiàn)將我們?cè)贏SP運(yùn)用過(guò)程中的幾個(gè)小技巧與大家分享。
一、新聞欄
大多數(shù)網(wǎng)頁(yè)上有新聞欄，用以顯示最近新聞的主題，點(diǎn)擊此主題即可查看詳細(xì)報(bào)道。倘若每天都一條條寫(xiě)在網(wǎng)頁(yè)上，再依次建立鏈接太過(guò)麻煩。如何讓其可以根據(jù)文件自動(dòng)更新呢？
1．預(yù)備工作
1）建一個(gè)文件夾，起名為"news"，假設(shè)存于D:/ASP/目錄下；
2）把每條新聞的詳細(xì)內(nèi)容寫(xiě)入文件，且此文件的命名形式為：x (newstime).htm。其中x為此條新聞的主題，newstime為此條新聞發(fā)布的時(shí)間（按年-月-日順序?qū)懀?。為什么要這樣寫(xiě)呢？看了下面的算法思想和源程序就知道了。
2．算法思想
對(duì)于news文件夾中的文件，依據(jù)它們文件名中新聞發(fā)布的時(shí)間（即括號(hào)內(nèi)的內(nèi) 容），從大到小排序。這樣一來(lái)，最新的新聞排在最上面，只要在網(wǎng)頁(yè)相應(yīng)位置顯示 news文件夾中最上面的若干個(gè)文件名，因?yàn)槲募拿绞饺?中所述，就可以在新聞欄中顯示最新新聞了。
3．源程序段(用VBScript編寫(xiě)的)
以下為引用的內(nèi)容：
- <%
- Dim fs, f, f1, fc, filenum
- dim count
- dim i,j,t1,t2
- dim file(100)
- dim mystr(100) '標(biāo)志文件中日期的字符串
- count=0
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set f = fs.GetFolder("D:/ASP/news ")
- Set fc = f.Files
- for each f1 in fc
- count=count+1 '計(jì)文件個(gè)數(shù)
- file(count)=fs.getbasename(f1) '標(biāo)記文件基名
- mypos=InStr(1, file(count), "(") ')在文件基名中的位置
- '文件基名中的日期字符串
- mystr(count) = Mid(file(count), mypos + 1, Len(file(count)) - (mypos + 1))
- next
- for i=1 to count
- for j=1 to count-i
- if mystr(j)<mystr(j+1) then
- t1=file(j)
- file(j)=file(j+1
- file(j+1)=t1
- t2=mystr(j)
- mystr(j)=mystr(j+1)
- mystr(j+1)=t2
- end if
- next
- next
- j=1
- if count<10 then '新聞欄中共顯示10條新聞
- temcount=count
- else
- temcount=10
- end if
- do while j<=temcount%>
- <a href="file:///D:/ASP/news/<%=file(j)%>.htm" target="new_window"><%=file(j)%> </a>
- <%
- j=j+1
- loop
- %>
4．新聞欄內(nèi)容更新
只要養(yǎng)成良好的書(shū)寫(xiě)習(xí)慣，使得新聞的名稱(chēng)遵照1的要求，再把寫(xiě)好的文件存入news文件夾，新聞欄就會(huì)自動(dòng)顯示出最新的10條新聞了。
二、公告欄
除了新聞欄之外，較常用的就是公告欄了，公告欄主要用來(lái)顯示一些重要的通知。當(dāng)然這些通知是要經(jīng)常變化的。讓用戶(hù)每次更改公告內(nèi)容時(shí)都到源程序里去修改嗎？當(dāng)然不行，我們必須提供一個(gè)維護(hù)的界面給用戶(hù)，使得用戶(hù)只要輸入通知，網(wǎng)頁(yè)上的公告欄里自然就會(huì)顯示通知內(nèi)容了。
1.解決這一問(wèn)題的關(guān)鍵在于靈活應(yīng)用FileSystemObject對(duì)象和TextStream對(duì)象。
在實(shí)際應(yīng)用中，你無(wú)需自行建立TextStream對(duì)象，因?yàn)橹灰肍ileSystemObject對(duì)象打開(kāi)了文件，系統(tǒng)便自動(dòng)建立TextStream對(duì)象。也就是說(shuō)，一旦調(diào)用OpenTextFile或CreateTextFile方法，便會(huì)傳回TextStream對(duì)象。
2.所需相關(guān)文件有三個(gè)
更新.asp、公告.asp、維護(hù)文本.txt，把它們存入d:/ASP/maintain目錄下。
3．三個(gè)文件的主要功能和源程序段：
1）更新.asp
主要功能是讓用戶(hù)輸入欲顯示的公告，檢驗(yàn)輸入內(nèi)容是否為空，若不為空，則提交給”公告.asp”程序處理。
以下為引用的內(nèi)容：
- <html>
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
- <meta name="ProgId" content="FrontPage.Editor.Document">
- <title>更新公告欄內(nèi)容</title>
- </head>
- <body>
- <script language=vbscript>
- function datacheck()
- dim msg,errflag
- errflag=true
- if len(trim(maintain.t1.value))=0 then
- focusto(0)
- errflag=false
- msg="請(qǐng)輸入需提交的公告內(nèi)容"
- end if
- if (errflag=false) then
- msgbox msg,64,"oh no!"
- exit function
- end if
- datacheck=errflag
- maintain.submit
- end function
- sub focusto(x)
- document.maintain.elements(x).focus()
- end sub
- </script>
- ①<form method="POST" action="公告.asp" name="maintain">
- <p><input type="text" name="t1" size="84"><input type="reset" value="重寫(xiě)" name="B2">
- <input type="button" value="提交" name="B1" onclick="datacheck()"></p>
- <hr color=#FF99FF size=1>
- </form>
- </body>
- </html>
語(yǔ)句①中的action="公告.asp"部分，指出了在form提交后要啟動(dòng)的程序?yàn)?ldquo;公告.asp”。
2）公告.asp
通過(guò)FileSystemObject對(duì)象和TextScream對(duì)象對(duì)"維護(hù)文本.txt"文件進(jìn)行讀寫(xiě)操作，使得此文件最上面5行的內(nèi)容為要在公告欄里顯示的公告。
以下為引用的內(nèi)容：
- <%
- dim str
- str=request.form(t1)
- dim s(5)
- const forreading=1,forwriting=2
- dim fso,myfile
- set fso=server.createobject("scripting.FileSystemObject")
- set myfile=fso.opentextfile("維護(hù)文本.txt",forreading)'以Reading模式打開(kāi)文件
- for i=1 to 5 '公告欄共顯示5條公告
- s(i)=myfile.readline'讀取文件內(nèi)容
- next
- myfile.close
- set myfile=fso.opentextfile("維護(hù)文本.txt",forwriting,true) '以writing模式打開(kāi)文件
- myfile.writeline str
- for i=1 to 4
- myfile.writeline s(i) '將數(shù)據(jù)寫(xiě)回文件
- next
- myfile.close
- %>
3）維護(hù)文本.txt
此文件開(kāi)始為空，從”更新.asp”顯示的界面輸入公告后，此文件內(nèi)容被自動(dòng)寫(xiě)入。
4．在主頁(yè)文件（通常是default.asp）欲顯示公告位置的代碼段中加入如下代碼，即可顯示出更新后的公告。
以下為引用的內(nèi)容：
- <marquee scrollamount="2" scrolldelay="50" direction="up" width="223"
- height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">'公告欄上下滾動(dòng)
- <%
- Dim s(20)
- Dim fso, MyFile
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set MyFile = fso.OpenTextFile("D:/ASP/maintain/維護(hù)文本.txt",1,true)
- for i=1 to 5
- ReadLineTextFile=MyFile.ReadLine
- s(i)=ReadLineTextFile
- response.write "★ " & s(i)
- response.write "<br>"
- next
- %>
- </marquee>
上述兩個(gè)小技巧舉一反三，可以解決很多此類(lèi)問(wèn)題。網(wǎng)頁(yè)設(shè)計(jì)愛(ài)好者們不妨一試。
【編輯推薦】
