生活随笔
收集整理的這篇文章主要介紹了
简易ASP文件缓存技术
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
?注意：系統(tǒng)需要FSO權(quán)限、XMLHTTP權(quán)限
系統(tǒng)包括兩個文件，其實(shí)可以合并為一個。之所以分為兩個是因?yàn)椴糠謿⒍拒浖驗(yàn)槔镞吅蠪SO、XMLHTTP操作而被認(rèn)為是腳本木馬。
調(diào)用時(shí)，需要在ASP頁面的最上邊包含主文件，然后在下邊寫下以下代碼
Set MyCatch=new CatchFileMyCatch.Overdue=60*5? ? ? ? '修改過期時(shí)間設(shè)置為5個小時(shí)if MyCatch.CatchNow(Rev) then? ? ? ? response.write MyCatch.CatchData? ? ? ? response.endend ifset MyCatch=nothing 復(fù)制代碼
文件一：FileCatch.asp 的代碼
<!--#include file="FileCatch-Inc.asp"--><%'---- 本文件用于簽入原始文件，實(shí)現(xiàn)對頁面的文件Catch'---- 1、如果文件請求為POST方式，則取消此功能'---- 2、文件的請求不能包含系統(tǒng)的識別關(guān)鍵字'---- 3、作者 何直群 (www.wozhai.com)Class CatchFile? ? ? ? Public Overdue,Mark,CFolder,CFile '定義系統(tǒng)參數(shù)? ? ? ? Private ScriptName,ScriptPath,ServerHost '定義服務(wù)器/頁面參數(shù)變量? ? ? ? Public CatchData? ? ? ? '輸出的數(shù)據(jù)? ? ? ? Private Sub Class_Initialize? ? ? ? '初始化函數(shù)? ? ? ? ? ? ? ? '獲得服務(wù)器及腳本數(shù)據(jù)? ? ? ? ? ? ? ? ScriptName=Request.Servervariables("Script_Name") '識別出當(dāng)前腳本的虛擬地址? ? ? ? ? ? ? ? ScriptPath=GetScriptPath(false)? ? ? ? '識別出腳本的完整GET地址? ? ? ? ? ? ? ? ServerHost=Request.Servervariables("Server_Name") '識別出當(dāng)前服務(wù)器的地址? ? ? ? ? ? ? ? '初始化系統(tǒng)參數(shù)? ? ? ? ? ? ? ? Overdue=30? ? ? ? '默認(rèn)30分鐘過期? ? ? ? ? ? ? ? Mark="NoCatch"? ? ? ? '無Catch請求參數(shù)為 NoCatch? ? ? ? ? ? ? ? CFolder=GetCFolder? ? ? ? '定義默認(rèn)的Catch文件保存目錄? ? ? ? ? ? ? ? CFile=Server.URLEncode(ScriptPath)&".txt"? ? ? ? '將腳本路徑轉(zhuǎn)化為文件路徑? ? ? ? ? ? ? ? CatchData=""? ? ? ? end Sub? ? ? ? Private Function GetCFolder? ? ? ? ? ? ? ? dim FSO,CFolder? ? ? ? ? ? ? ? Set FSO=CreateObject("Scripting.FileSystemObject")? ? ? ? '設(shè)置FSO對象? ? ? ? ? ? ? ? CFolder=Server.MapPath("/")&"/FileCatch/"? ? ? ? ? ? ? ? if not FSO.FolderExists(CFolder) then? ? ? ? ? ? ? ? ? ? ? ? fso.CreateFolder(CFolder)? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? if Month(Now())<10 then? ? ? ? ? ? ? ? ? ? ? ? CFolder=CFolder&"/0"&Month(Now())? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? CFolder=CFolder&Month(Now())? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? if Day(Now())<10 then? ? ? ? ? ? ? ? ? ? ? ? CFolder=CFolder&"0"&Day(Now())? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? CFolder=CFolder&Day(Now())? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? CFolder=CFolder&"/"? ? ? ? ? ? ? ? if not FSO.FolderExists(CFolder) then? ? ? ? ? ? ? ? ? ? ? ? fso.CreateFolder(CFolder)? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? GetCFolder=CFolder? ? ? ? ? ? ? ? set fso=nothing? ? ? ? End Function? ? ? ? Private Function bytes2BSTR(vIn)? ? ? ? '轉(zhuǎn)換編碼的函數(shù)? ? ? ? ? ? ? ? dim StrReturn,ThisCharCode,i,NextCharCode? ? ? ? ? ? ? ? strReturn = ""? ? ? ? ? ? ? ? For i = 1 To LenB(vIn)? ? ? ? ? ? ? ? ? ? ? ? ThisCharCode = AscB(MidB(vIn,i,1))? ? ? ? ? ? ? ? ? ? ? ? If ThisCharCode < &H80 Then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? strReturn = strReturn & Chr(ThisCharCode)? ? ? ? ? ? ? ? ? ? ? ? Else? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? NextCharCode = AscB(MidB(vIn,i+1,1))? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? i = i + 1? ? ? ? ? ? ? ? ? ? ? ? End If? ? ? ? ? ? ? ? Next? ? ? ? ? ? ? ? bytes2BSTR = strReturn? ? ? ? End Function? ? ? ? Public Function CatchNow(Rev)? ? ? ? '用戶指定開始處理Catch操作? ? ? ? ? ? ? ? if UCase(request.Servervariables("Request_Method"))="POST" then? ? ? ? ? ? ? ? '當(dāng)是POST方法，不可使用文件Catch? ? ? ? ? ? ? ? ? ? ? ? Rev="使用POST方法請求頁面，不可以使用文件Catch功能"? ? ? ? ? ? ? ? ? ? ? ? CatchNow=false? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? if request.Querystring(Mark)<>"" then? ? ? ? ? ? ? ? ? ? ? ? '如果指定參數(shù)不為空，表示請求不可以使用Catch? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Rev="請求拒絕使用Catch功能"? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? CatchNow=false? ? ? ? ? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? CatchNow=GetCatchData(Rev)? ? ? ? ? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? end if? ? ? ? End Function? ? ? ? Private Function GetCatchData(Rev)? ? ? ? '讀取Catch數(shù)據(jù)? ? ? ? ? ? ? ? Dim FSO,IsBuildCatch? ? ? ? ? ? ? ? Set FSO=CreateObject("Scripting.FileSystemObject")? ? ? ? '設(shè)置FSO對象，訪問CatchFile? ? ? ? ? ? ? ? If FSO.FileExists(CFolder&CFile) Then? ? ? ? ? ? ? ? ? ? ? ? Dim File,LastCatch? ? ? ? ? ? ? ? ? ? ? ? Set File=FSO.GetFile(CFolder&CFile)? ? ? ? '定義CatchFile文件對象? ? ? ? ? ? ? ? ? ? ? ? LastCatch=CDate(File.DateLastModified)? ? ? ? ? ? ? ? ? ? ? ? if DateDiff("n",LastCatch,Now())>Overdue then? ? ? ? ? ? ? ? ? ? ? ? '如果超過了Catch時(shí)間? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? IsBuildCatch=true? ? ? ? ? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? IsBuildCatch=false? ? ? ? ? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? ? ? ? ? Set File=Nothing? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? IsBuildCatch=true? ? ? ? ? ? ? ? End if? ? ? ? ? ? ? ? If IsBuildCatch then? ? ? ? ? ? ? ? ? ? ? ? GetCatchData=BuildCatch(Rev)? ? ? ? '如果需要創(chuàng)建Catch,則創(chuàng)建Catch文件，同時(shí)設(shè)置Catch的數(shù)據(jù)? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? GetCatchData=ReadCatch(Rev)? ? ? ? '如果不需要創(chuàng)建Catch，則直接讀取Catch數(shù)據(jù)? ? ? ? ? ? ? ? End if? ? ? ? ? ? ? ? Set FSO=nothing? ? ? ? End Function? ? ? ? Private Function GetScriptPath(IsGet)? ? ? ? '創(chuàng)建一個包含所有請求數(shù)據(jù)的地址? ? ? ? ? ? ? ? dim Key,Fir? ? ? ? ? ? ? ? GetScriptPath=ScriptName? ? ? ? ? ? ? ? Fir=true? ? ? ? ? ? ? ? for Each key in Request.QueryString? ? ? ? ? ? ? ? ? ? ? ? If Fir then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&"?"? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Fir=false? ? ? ? ? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&"&"? ? ? ? ? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&Server.URLEncode(Key)&"="&Server.URLEncode(Request.QueryString(Key))? ? ? ? ? ? ? ? Next? ? ? ? ? ? ? ? if IsGet then? ? ? ? ? ? ? ? ? ? ? ? If Fir then? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&"?"? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Fir=false? ? ? ? ? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&"&"? ? ? ? ? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? ? ? ? ? GetScriptPath=GetScriptPath&Server.URLEncode(Mark)&"=yes"? ? ? ? ? ? ? ? end if? ? ? ? End Function? ? ? ? '創(chuàng)建Catch文件? ? ? ? Private Function BuildCatch(Rev)? ? ? ? ? ? ? ? Dim HTTP,Url,OutCome? ? ? ? ? ? ? ? Set HTTP=CreateObject("Microsoft.XMLHTTP")'? ? ? ? ? ? ? ? On Error Resume Next'? ? ? ? ? ? ? ? response.write ServerHost&GetScriptPath(true)? ? ? ? ? ? ? ? HTTP.Open "get","http://"&ServerHost&GetScriptPath(true),False? ? ? ? ? ? ? ? HTTP.Send? ? ? ? ? ? ? ? if Err.number=0 then? ? ? ? ? ? ? ? ? ? ? ? CatchData=bytes2BSTR(HTTP.responseBody)? ? ? ? ? ? ? ? ? ? ? ? BuildCatch=True? ? ? ? ? ? ? ? else? ? ? ? ? ? ? ? ? ? ? ? Rev="創(chuàng)建發(fā)生錯誤："&Err.Description? ? ? ? ? ? ? ? ? ? ? ? BuildCatch=False? ? ? ? ? ? ? ? ? ? ? ? Err.clear? ? ? ? ? ? ? ? end if? ? ? ? ? ? ? ? Call WriteCatch? ? ? ? ? ? ? ? set HTTP=nothing? ? ? ? End Function? ? ? ? Private Function ReadCatch(Rev)? ? ? ? ? ? ? ? ReadCatch=IReadCatch(CFolder&CFile,CatchData,Rev)? ? ? ? End Function? ? ? ? Private Sub WriteCatch? ? ? ? ? ? ? ? Dim FSO,TSO? ? ? ? ? ? ? ? Set FSO=CreateObject("Scripting.FileSystemObject")? ? ? ? '設(shè)置FSO對象，訪問CatchFile? ? ? ? ? ? ? ? set TSO=FSO.CreateTextFile(CFolder&CFile,true)? ? ? ? ? ? ? ? TSO.Write(CatchData)? ? ? ? ? ? ? ? Set TSO=Nothing? ? ? ? ? ? ? ? Set FSO=Nothing? ? ? ? End SubEnd Class%> 復(fù)制代碼
文件二:FileCatch-Inc.asp
<%Function IReadCatch(File,Data,Rev)? ? ? ? Dim FSO,TSO? ? ? ? Set FSO=CreateObject("Scripting.FileSystemObject")? ? ? ? '設(shè)置FSO對象，訪問CatchFile'? ? ? ? on error resume next? ? ? ? set TSO=FSO.OpenTextFile(File,1,false)? ? ? ? Data=TSO.ReadAll? ? ? ? if Err.number<>0 then? ? ? ? ? ? ? ? Rev="讀取發(fā)生錯誤："&Err.Description? ? ? ? ? ? ? ? ReadCatch=False? ? ? ? ? ? ? ? Err.clear? ? ? ? else? ? ? ? ? ? ? ? IReadCatch=True? ? ? ? end if? ? ? ? Set TSO=Nothing? ? ? ? Set FSO=NothingEnd Function%>
復(fù)制代碼
總結(jié)
以上是生活随笔為你收集整理的简易ASP文件缓存技术的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。
