這兩天有好幾個老的ASP網(wǎng)站要改，其中有要求加記數(shù)器，為圖簡單，就用文本文件的形式存儲記數(shù)。以前用ifream的形式嵌入，不能很好的控制記數(shù)器顯示的風格，現(xiàn)在改進了一下，可以很好的與嵌入板塊風格結(jié)合了。把做的分享一下：

一、需要有三個文件：

1、Global.asa      全局應(yīng)用程序文件，執(zhí)行Application_Start、Session_Start事件

2、GetCount.asp      讀取當前記錄

3、Count.txt      存儲訪問數(shù)

二、代碼：

1、Global.asa

 1<SCRIPT LANGUAGE=VBScript RUNAT=Server>
 2SUB Application_OnStart
 3On Error Resume Next
 4SFilePath=Server.MapPath("Count.txt")  '假設(shè)計數(shù)器文件在根目錄下的Count目錄中，文件名為Count.txt
 5Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
 6IF not oFSO.FileExists(sFilePath) THEN
 7    oFile=oFSO.CreateTextFile(sFilePath,true)  '如果文件不存在，則創(chuàng)建一個文件
 8    oFile.Write("1")
 9    oFile.close
10     Application("TotalCount")=1
11ELSE
12    Set oFile = oFSO.OpenTextFile(sFilePath) 
13    NCount=OFile.ReadLine
14    Application("TotalCount")=Clng(nCount)+1
15    oFile.close
16    Set oFile=oFSO.OpenTextFile(sFilePath,2)
17    oFile.Write(Application("TotalCount"))
18    oFile.close
19End IF
20err.clear
21END SUB
22</SCRIPT>
23
24<SCRIPT LANGUAGE=VBScript RUNAT=Server>
25SUB Application_OnEnd
26END SUB
27</SCRIPT>
28
29<SCRIPT LANGUAGE=VBScript RUNAT=Server>
30SUB Session_OnStart
31On Error Resume Next
32SFilePath=Server.MapPath("Count.txt")  '假設(shè)計數(shù)器文件在根目錄下的Count目錄中，文件名為Count.txt
33Set oFSO=Server.CreateObject("Scripting.FileSystemObject")
34IF  Application("TotalCount")=0 or Application("TotalCount")="" THEN
35'如果第一次運行網(wǎng)站，比如重啟后，我們就需要從文件中讀取出以前的計數(shù)值
36    IF not oFSO.FileExists(sFilePath) THEN
37        oFile=oFSO.CreateTextFile(sFilePath,true)  '如果文件不存在，則創(chuàng)建一個文件
38        oFile.Write("1")
39        oFile.close
40         Application("TotalCount")=1
41    ELSE
42        Set oFile = oFSO.OpenTextFile(sFilePath) 
43        NCount=OFile.ReadLine
44        Application("TotalCount")=Clng(nCount)+1
45        oFile.close
46        Set oFile=oFSO.OpenTextFile(sFilePath,2)
47        oFile.Write(Application("TotalCount"))
48        oFile.close
49    End IF
50ELSE
51    Application("TotalCount")= Application("TotalCount")+1
52    IF not oFSO.FileExists(sFilePath) THEN
53        oFile=oFSO.CreateTextFile(sFilePath,true)  '如果文件不存在，則創(chuàng)建一個文件
54        oFile.Write(Application("TotalCount"))
55        oFile.close
56    ELSE
57        Set oFile=oFSO.OpenTextFile(sFilePath,2)
58        oFile.Write(Application("TotalCount"))
59        oFile.close
60    End IF
61End IF
62err.clear
63End Sub
64</SCRIPT>
65
66<SCRIPT LANGUAGE=VBScript RUNAT=Server>
67SUB Session_OnEnd
68END SUB
69</SCRIPT>

2、GetCount.asp

1<%="document.write('" & Application("TotalCount") & "')"%>

3、需要顯示計數(shù)器的地方加入，HTML也可以：

1<script type="text/javascript" src="../GetCount.asp"></script>

• asp