這一種方法適合，訪問(wèn)相對(duì)集中在同樣內(nèi)容頁(yè)面的網(wǎng)站，會(huì)自動(dòng)生成緩存文件(相當(dāng)于讀取靜態(tài)頁(yè)面，但會(huì)增大文件)。如果訪問(wèn)不集中會(huì)造成服務(wù)器同時(shí)讀取文件當(dāng)機(jī)。

注意：系統(tǒng)需要FSO權(quán)限、XMLHTTP權(quán)限

系統(tǒng)包括兩個(gè)文件，其實(shí)可以合并為一個(gè)。之所以分為兩個(gè)是因?yàn)椴糠謿⒍拒浖?huì)因?yàn)槔镞吅蠪SO、XMLHTTP操作而被認(rèn)為是腳本木馬。

調(diào)用時(shí)，需要在ASP頁(yè)面的最上邊包含主文件，然后在下邊寫(xiě)下以下代碼

        Private Sub Class_Initialize        '初始化函數(shù)
                '獲得服務(wù)器及腳本數(shù)據(jù)
                ScriptName=Request.Servervariables("Script_Name") '識(shí)別出當(dāng)前腳本的虛擬地址
                ScriptPath=GetScriptPath(false)        '識(shí)別出腳本的完整GET地址
                ServerHost=Request.Servervariables("Server_Name") '識(shí)別出當(dāng)前服務(wù)器的地址

                '初始化系統(tǒng)參數(shù)
                Overdue=30        '默認(rèn)30分鐘過(guò)期
                Mark="NoCatch"        '無(wú)Catch請(qǐng)求參數(shù)為 NoCatch
                CFolder=GetCFolder        '定義默認(rèn)的Catch文件保存目錄
                CFile=Server.URLEncode(ScriptPath)&".txt"        '將腳本路徑轉(zhuǎn)化為文件路徑

發(fā)表評(píng)論 共有條評(píng)論 用戶名: 密碼: 驗(yàn)證碼: 匿名發(fā)表