script LANGUAGE="VBScript" RUNAT="Server">
SUB Session-OnStart
...
Application.Lock
Application("visitors")=Application("visitors") + 1
' 增加訪問計(jì)數(shù)
t-visitors = Application("visitors")
Application.UnLock
Session("VisitorID")=t-visitors
If t-visitors MOD 15 = 0 Then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile-(Application
("VisitorCountFilename"),trUE,FALSE)
' 周期性地保存到文件中
Application.Lock
Out.Write(t-visitors)
Application.UnLock
End If
...
END SUB
/script>
標(biāo)簽:中山 襄陽(yáng) 朔州 柳州 威海 雞西 邯鄲 遵義
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《如何將訪問者數(shù)目周期性地保存?》,本文關(guān)鍵詞 如何,將,訪問者,數(shù)目,周期,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。