軟件工程師-分享ASP開發(fā)過程中的小技巧_第1頁
軟件工程師-分享ASP開發(fā)過程中的小技巧_第2頁
軟件工程師-分享ASP開發(fā)過程中的小技巧_第3頁
軟件工程師-分享ASP開發(fā)過程中的小技巧_第4頁
軟件工程師-分享ASP開發(fā)過程中的小技巧_第5頁
已閱讀5頁，還剩1頁未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、星期八職場經(jīng)驗(yàn)網(wǎng)（）【現(xiàn)成經(jīng)驗(yàn)助你快速完成工作】分享ASP開發(fā)過程中的小技巧本文介紹的是ASP網(wǎng)站開發(fā)過程中的兩個(gè)小技巧，希望能夠幫助到大家。一起來看吧！AD： ASP是Microsoft公司推出的一種用以取代通用網(wǎng)關(guān)接口的技術(shù)，英文全稱Active Server Pages。它是一個(gè)Web服務(wù)器端的運(yùn)行環(huán)境。ASP本身包含了VBScript和javascript引擎，使得腳本可以直接嵌入HTML中?，F(xiàn)將我們在ASP運(yùn)用過程中的幾個(gè)小技巧與大家分享。一、新聞欄大多數(shù)網(wǎng)頁上有新聞欄，用以顯示最近新聞的主題，點(diǎn)擊此主題即可查看詳細(xì)報(bào)道。倘若每天都一條條寫在網(wǎng)頁上，再依次建立鏈接太過麻煩。如何讓其可

2、以根據(jù)文件自動(dòng)更新呢？1預(yù)備工作1）建一個(gè)文件夾，起名為"news"，假設(shè)存于D:/ASP/目錄下；2）把每條新聞的詳細(xì)內(nèi)容寫入文件，且此文件的命名形式為：x (newstime).htm。其中x為此條新聞的主題，newstime為此條新聞發(fā)布的時(shí)間（按年-月-日順序?qū)懀?。為什么要這樣寫呢？看了下面的算法思想和源程序就知道了。2算法思想對于news文件夾中的文件，依據(jù)它們文件名中新聞發(fā)布的時(shí)間（即括號(hào)內(nèi)的內(nèi)容），從大到小排序。這樣一來，最新的新聞排在最上面，只要在網(wǎng)頁相應(yīng)位置顯示 news文件夾中最上面的若干個(gè)文件名，因?yàn)槲募拿绞饺?中所述，就可以在新聞欄中顯示最新

3、新聞了。3源程序段(用VBScript編寫的)以下為引用的內(nèi)容：1. <%   2. Dim fs, f, f1, fc, filenum  3. dim count  4. dim i,j,t1,t2  5. dim file(100)  6. dim mystr(100) '標(biāo)志文件中日期的字符串  7. count=0  8. Set fs = CreateObjec

4、t("Scripting.FileSystemObject")  9. Set f = fs.GetFolder("D:/ASP/news ")  10. Set fc = f.Files  11. for each f1 in fc  12. count=count+1 '計(jì)文件個(gè)數(shù)  13. file(count)=fs.getbasename(f1) '標(biāo)

5、記文件基名  14. mypos=InStr(1, file(count), "(") ')在文件基名中的位置  15. '文件基名中的日期字符串   16. mystr(count) = Mid(file(count), mypos + 1, Len(file(count) - (mypos + 1)  17. next  18. for i=1 t

6、o count  19. for j=1 to count-i  20. if mystr(j)<mystr(j+1) then  21. t1=file(j)  22. file(j)=file(j+1  23. file(j+1)=t1  24. t2=mystr(j)  25. mystr(j)=mystr(j+1)  26. mystr(j+1)=t2  27. end if  28. next  29

7、. next  30. j=1   31. if count<10 then '新聞欄中共顯示10條新聞  32. temcount=count  33. else  34. temcount=10  35. end if  36. do while j<=temcount%>  37. <a href="file:/D:/ASP/news/<%=file(j)%>.htm"

8、; target="new_window"><%=file(j)%> </a>  38. <%  39. j=j+1  40. loop  41. %>  4新聞欄內(nèi)容更新只要養(yǎng)成良好的書寫習(xí)慣，使得新聞的名稱遵照1的要求，再把寫好的文件存入news文件夾，新聞欄就會(huì)自動(dòng)顯示出最新的10條新聞了。二、公告欄除了新聞欄之外，較常用的就是公告欄了，公告欄主要用來顯示一些重要的通知。當(dāng)然這些通知是要經(jīng)常變化的。讓用戶每次更改公告內(nèi)容時(shí)都到源程序里去修改嗎？當(dāng)然

9、不行，我們必須提供一個(gè)維護(hù)的界面給用戶，使得用戶只要輸入通知，網(wǎng)頁上的公告欄里自然就會(huì)顯示通知內(nèi)容了。1.解決這一問題的關(guān)鍵在于靈活應(yīng)用FileSystemObject對象和TextStream對象。在實(shí)際應(yīng)用中，你無需自行建立TextStream對象，因?yàn)橹灰肍ileSystemObject對象打開了文件，系統(tǒng)便自動(dòng)建立TextStream對象。也就是說，一旦調(diào)用OpenTextFile或CreateTextFile方法，便會(huì)傳回TextStream對象。2.所需相關(guān)文件有三個(gè)更新.asp、公告.asp、維護(hù)文本.txt，把它們存入d:/ASP/maintain目錄下。3三個(gè)文件的主要功

10、能和源程序段：1）更新.asp主要功能是讓用戶輸入欲顯示的公告，檢驗(yàn)輸入內(nèi)容是否為空，若不為空，則提交給”公告.asp”程序處理。以下為引用的內(nèi)容：1. <html>  2. <head>  3. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  4. <meta name="GENERATOR" content="

11、Microsoft FrontPage 4.0">  5. <meta name="ProgId" content="FrontPage.Editor.Document">  6. <title>更新公告欄內(nèi)容</title>  7. </head>  8. <body>  9. <script language=vbscript>  10. function

12、 datacheck()  11. dim msg,errflag  12. errflag=true  13. if len(trim(maintain.t1.value)=0 then   14. focusto(0)  15. errflag=false  16. msg="請輸入需提交的公告內(nèi)容" 17. end if  18. if (errflag=false) then  19. msgbox

13、 msg,64,"oh no!"   20. exit function  21. end if  22. datacheck=errflag  23. maintain.submit  24. end function  25. sub focusto(x)  26. document.maintain.elements(x).focus()  27. end sub  28. </script&g

14、t;  29. <form method="POST" action="公告.asp" name="maintain">  30. <p><input type="text" name="t1" size="84"><input type="reset" value="重寫" name=

15、"B2">  31. <input type="button" value="提交" name="B1" onclick="datacheck()"></p>  32. <hr color=#FF99FF size=1>   33. </form>  34. </body>  35. </html>&

16、#160;語句中的action="公告.asp"部分，指出了在form提交后要啟動(dòng)的程序?yàn)椤肮?asp”。2）公告.asp通過FileSystemObject對象和TextScream對象對"維護(hù)文本.txt"文件進(jìn)行讀寫操作，使得此文件最上面5行的內(nèi)容為要在公告欄里顯示的公告。以下為引用的內(nèi)容：1. <%  2. dim str  3. str=request.form(t1)  4. dim s(5)  5. const forreading=1,forwriting=2

17、 6. dim fso,myfile  7. set fso=server.createobject("scripting.FileSystemObject")  8. set myfile=fso.opentextfile("維護(hù)文本.txt",forreading)'以Reading模式打開文件  9. for i=1 to 5 '公告欄共顯示5條公告  10. s(i)=myfile.readline'讀取

18、文件內(nèi)容  11. next  12. myfile.close  13. set myfile=fso.opentextfile("維護(hù)文本.txt",forwriting,true) '以writing模式打開文件  14. myfile.writeline str  15. for i=1 to 4  16. myfile.writeline s(i) '將數(shù)據(jù)寫回文件  17. next  1

19、8. myfile.close  19. %> 3）維護(hù)文本.txt此文件開始為空，從”更新.asp”顯示的界面輸入公告后，此文件內(nèi)容被自動(dòng)寫入。4在主頁文件（通常是default.asp）欲顯示公告位置的代碼段中加入如下代碼，即可顯示出更新后的公告。以下為引用的內(nèi)容：1. <marquee scrollamount="2" scrolldelay="50" direction="up" width="223" 2. height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">'公告

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論