日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
分享ASP網(wǎng)頁(yè)開(kāi)發(fā)過(guò)程中的小技巧

ASP是Microsoft公司推出的一種用以取代通用網(wǎng)關(guān)接口的技術(shù)，英文全稱Active Server Pages。它是一個(gè)Web服務(wù)器端的運(yùn)行環(huán)境。ASP本身包含了VBScript和javascript引擎，使得腳本可以直接嵌入HTML中?，F(xiàn)將我們?cè)贏SP運(yùn)用過(guò)程中的幾個(gè)小技巧與大家分享。

創(chuàng)新互聯(lián)建站專注于沙坪壩網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供沙坪壩營(yíng)銷(xiāo)型網(wǎng)站建設(shè)，沙坪壩網(wǎng)站制作、沙坪壩網(wǎng)頁(yè)設(shè)計(jì)、沙坪壩網(wǎng)站官網(wǎng)定制、小程序定制開(kāi)發(fā)服務(wù)，打造沙坪壩網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供沙坪壩網(wǎng)站排名全網(wǎng)營(yíng)銷(xiāo)落地服務(wù)。

一、新聞欄

大多數(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)容：

 
 
 
      
  
  
  1. <%   
    2.   
  
  
  2. Dim fs, f, f1, fc, filenum  
    3.   
  
  
  3. dim count  
    4.   
  
  
  4. dim i,j,t1,t2  
    5.   
  
  
  5. dim file(100)  
    6.   
  
  
  6. dim mystr(100) '標(biāo)志文件中日期的字符串  
    7.   
  
  
  7. count=0  
    8.   
  
  
  8. Set fs = CreateObject("Scripting.FileSystemObject")  
    9.   
  
  
  9. Set f = fs.GetFolder("D:/ASP/news ")  
    10.   
  
  
  10. Set fc = f.Files  
    11.   
  
  
  11. for each f1 in fc  
    12.   
  
  
  12. count=count+1 '計(jì)文件個(gè)數(shù)  
    13.   
  
  
  13. file(count)=fs.getbasename(f1) '標(biāo)記文件基名  
    14.   
  
  
  14. mypos=InStr(1, file(count), "(") ')在文件基名中的位置  
    15.   
  
  
  15. '文件基名中的日期字符串   
    16.   
  
  
  16. mystr(count) = Mid(file(count), mypos + 1, Len(file(count)) - (mypos + 1))  
    17.   
  
  
  17. next  
    18.   
  
  
  18. for i=1 to count  
    19.   
  
  
  19. for j=1 to count-i  
    20.   
  
  
  20. if mystr(j)  
  
  
  21. t1=file(j)  
    22.   
  
  
  22. file(j)=file(j+1  
    23.   
  
  
  23. file(j+1)=t1  
    24.   
  
  
  24. t2=mystr(j)  
    25.   
  
  
  25. mystr(j)=mystr(j+1)  
    26.   
  
  
  26. mystr(j+1)=t2  
    27.   
  
  
  27. end if  
    28.   
  
  
  28. next  
    29.   
  
  
  29. next  
    30.   
  
  
  30. j=1   
    31.   
  
  
  31. if count<10 then '新聞欄中共顯示10條新聞  
    32.   
  
  
  32. temcount=count  
    33.   
  
  
  33. else  
    34.   
  
  
  34. temcount=10  
    35.   
  
  
  35. end if  
    36.   
  
  
  36. do while j<=temcount%>  
    37.   
  
  
  37. .htm" target="new_window"><%=file(j)%>   
    38.   
  
  
  38. <%  
    39.   
  
  
  39. j=j+1  
    40.   
  
  
  40. loop  
    41.   
  
  
  41. %>  
    42.

4．新聞欄內(nèi)容更新

只要養(yǎng)成良好的書(shū)寫(xiě)習(xí)慣，使得新聞的名稱遵照1的要求，再把寫(xiě)好的文件存入news文件夾，新聞欄就會(huì)自動(dòng)顯示出最新的10條新聞了。

二、公告欄

除了新聞欄之外，較常用的就是公告欄了，公告欄主要用來(lái)顯示一些重要的通知。當(dāng)然這些通知是要經(jīng)常變化的。讓用戶每次更改公告內(nèi)容時(shí)都到源程序里去修改嗎？當(dāng)然不行，我們必須提供一個(gè)維護(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

主要功能是讓用戶輸入欲顯示的公告，檢驗(yàn)輸入內(nèi)容是否為空，若不為空，則提交給”公告.asp”程序處理。

以下為引用的內(nèi)容：

 
 
 
      
  
  
  1.   
    2.   
  
  
  2.   
    3.   
  
  
  3.   
    4.   
  
  
  4.   
    5.   
  
  
  5.   
    6.   
  
  
  6. 更新公告欄內(nèi)容  
    7.   
  
  
  7.   
    8.   
  
  
  8.   
    9.   
  
  
  9.   
    10.   
  
  
  10. ①  
    11.   
  
  
  11.   
    12.   
  
  
  12.   
    13.   
  
  
  13.    
    14.   
  
  
  14.   
    15.   
  
  
  15.   
    16.   
  
  
  16.  
    17.

語(yǔ)句①中的action="公告.asp"部分，指出了在form提交后要啟動(dòng)的程序?yàn)椤肮?asp”。

2）公告.asp

通過(guò)FileSystemObject對(duì)象和TextScream對(duì)象對(duì)"維護(hù)文本.txt"文件進(jìn)行讀寫(xiě)操作，使得此文件最上面5行的內(nèi)容為要在公告欄里顯示的公告。

以下為引用的內(nèi)容：

 
 
 
      
  
  
  1. <%  
    2.   
  
  
  2. dim str  
    3.   
  
  
  3. str=request.form(t1)  
    4.   
  
  
  4. dim s(5)  
    5.   
  
  
  5. const forreading=1,forwriting=2  
    6.   
  
  
  6. dim fso,myfile  
    7.   
  
  
  7. set fso=server.createobject("scripting.FileSystemObject")  
    8.   
  
  
  8. set myfile=fso.opentextfile("維護(hù)文本.txt",forreading)'以Reading模式打開(kāi)文件  
    9.   
  
  
  9. for i=1 to 5 '公告欄共顯示5條公告  
    10.   
  
  
  10. s(i)=myfile.readline'讀取文件內(nèi)容  
    11.   
  
  
  11. next  
    12.   
  
  
  12. myfile.close  
    13.   
  
  
  13. set myfile=fso.opentextfile("維護(hù)文本.txt",forwriting,true) '以writing模式打開(kāi)文件  
    14.   
  
  
  14. myfile.writeline str  
    15.   
  
  
  15. for i=1 to 4  
    16.   
  
  
  16. myfile.writeline s(i) '將數(shù)據(jù)寫(xiě)回文件  
    17.   
  
  
  17. next  
    18.   
  
  
  18. myfile.close  
    19.   
  
  
  19. %> 
    20.

3）維護(hù)文本.txt

此文件開(kāi)始為空，從”更新.asp”顯示的界面輸入公告后，此文件內(nèi)容被自動(dòng)寫(xiě)入。

4．在主頁(yè)文件（通常是default.asp）欲顯示公告位置的代碼段中加入如下代碼，即可顯示出更新后的公告。

以下為引用的內(nèi)容：

 
 
 
      
  
  
  1.   
  
  
  2. height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">'公告欄上下滾動(dòng)  
    3.   
  
  
  3. <%   
    4.   
  
  
  4. Dim s(20)   
    5.   
  
  
  5. Dim fso, MyFile   
    6.   
  
  
  6. Set fso = CreateObject("Scripting.FileSystemObject")   
    7.   
  
  
  7. Set MyFile = fso.OpenTextFile("D:/ASP/maintain/維護(hù)文本.txt",1,true)   
    8.   
  
  
  8. for i=1 to 5   
    9.   
  
  
  9. ReadLineTextFile=MyFile.ReadLine   
    10.   
  
  
  10. s(i)=ReadLineTextFile   
    11.   
  
  
  11. response.write "　" & s(i)   
    12.   
  
  
  12. response.write "
    "   
    13.   
  
  
  13. next   
    14.   
  
  
  14. %>  
    15.   
  
  
  15.  
    16.

上述兩個(gè)小技巧舉一反三，可以解決很多此類問(wèn)題。網(wǎng)頁(yè)設(shè)計(jì)愛(ài)好者們不妨一試。

【編輯推薦】

  1. 詳述Asp.net的加密解密技巧
  2. ASP.NET站點(diǎn) 應(yīng)該從哪些方面優(yōu)化
  3. 簡(jiǎn)單介紹Asp.net網(wǎng)站的性能優(yōu)化
  4. ASP.NET網(wǎng)站性能優(yōu)化 需要考慮哪些方面
  5. asp.net開(kāi)源CMS匯總

本文題目：分享ASP網(wǎng)頁(yè)開(kāi)發(fā)過(guò)程中的小技巧
本文鏈接：http://www.5511xx.com/article/cdegehh.html