Empfohlen: ASP verhindert, dass Webseiten Code erfrischen Reduzieren Sie die Serverbelastung, ASP verhindert Webseiten-Aktualisierungscode subpreventReFresh () dimrefreshtime, isRefreshReshtime = 10 verhindert die Aktualisierungszeit, Einheit (Sekunden) isRefresh = 1 Ob Sie Anti-Refresh-Funktion verwenden, 0 = Nein, 1 = yesRefresh = 1Then Isemty (nicht isumme) (Session (Session)).
So verwenden Sie es, fügen Sie den folgenden Code zu der Seite hinzu, auf der Sie den Datei -Cache verwenden müssen.
<!-#includeFile = fileCatch.asp->
<%
SetMyCatch = newCatchFile
MyCatch.Overdue = 10 'Die Ablaufzeit auf 10 Minuten ändern
ifMyCatch.catchnow (rev) dann
response.writeMyCatch.catchData
Antwort.end
Endif
setMyCatch = nichts
%>
Filecatch.asp
Kopieren Sie den Inhalt in Zwischenablage -Code:
<%
'Diese Datei wird verwendet, um die Originaldatei zu überprüfen und den Dateiangriff der Seite zu implementieren
'1. Wenn die Dateianforderung Post -Modus ist, stornieren Sie diese Funktion ab
'2. Dateianforderungen können keine Schlüsselwörter für Systemidentifikationen enthalten
Klasserkapitüre
PublicOverdue, Mark, CFOLDER, CFILE 'Systemparameter definieren
PrivateScriptName, scriptPath, serverhost 'Define Server/Page -Parametervariablen definieren
PublicCatchData 'Ausgabedaten
PrivateSubclass_initialize 'initialize function
'Holen Sie sich Server- und Skriptdaten
ScriptName = request.servervariables (script_name) 'Erkennen Sie die virtuelle Adresse des aktuellen Skripts
ScriptPath = getScriptPath (false) 'Identifizieren Sie die vollständige Get -Adresse des Skripts
Serverhost = request.servervariables (server_name) 'Identifizieren Sie die Adresse des aktuellen Servers
'Initialisieren Sie Systemparameter
Überfälliger = 30 'Standard 30 Minuten läuft ab
Mark = nocatch 'kein Catch -Anforderungsparameter ist Nocatch ist
CFOLDER = getCFolder 'Definieren Sie das Standard -Fang -Datei -Speicherverzeichnis
CFile = server.urlencode (scriptPath) &. TXT 'Konvertieren Sie den Skriptpfad zum Dateipfad
Catchdata =
Ende
PrivateFunctionGetCFolder
Dimfso, CFOLDER
SetfSo = createObject (scripting.filesSystemObject) 'Setzen Sie das FSO -Objekt fest
CFOLDER = Server.Mappath (/) &/Filecatch/
ifnotfso.FORDEREXISTS (CFOLDER) dann
FSO.CreateFolder (CFOLDER)
Endif
ifmonth (jetzt ()) <10Then
CFOLDER = CFOLDER &/0 & MONAT (jetzt ())
anders
CFOLDER = CFOLDER & MONAT (NOW ())
Endif
ifday (jetzt ()) <10Then
CFOLDER = CFOLDER & 0 & DAY (Now ())
CFOLDER = CFOLDER & DAY (NOW ())
Endif
CFOLDER = CFOLDER &/
ifnotfso.FORDEREXISTS (CFOLDER) dann
FSO.CreateFolder (CFOLDER)
Endif
GetCFolder = CFolder
setfso = nichts
Endfunktion
PrivateFunctionBytes2bstr (vin) 'konvertierte codierte Funktion
Dimstrreturn, thischarcode, i, NextCharcode
Streturn =
Fei = 1tolenb (vin)
Thischarcode = ascb (Midb (vin, i, 1))
IFTHISCHARCODE <& H80Then
Streturn = Streturn & chrt (thisharcode)
Anders
NextCharcode = ASCB (Midb (Vin, I+1,1))
Streturn = Streturn & chrt (clng (thischarcode)*& h100+cint (NextCharCode))
i = i+1
Endif
Nächste
bytes2bstr = Streturn
Endfunktion
PublicFunctionCatchnow (rev) 'Der Benutzer gibt an, den Catch -Betrieb zu verarbeiten
ifucase (request.servervariables (request_method)) = posthen
„Wenn es sich um eine Post -Methode handelt, kann der Dateifang nicht verwendet werden
REV = Anforderungsseite Mit der Post -Methode kann die Funktion "Datei Catch" nicht verwendet werden
Catchnow = false
anders
iFRequest.queryString (mark) <> Dann
„Wenn der angegebene Parameter nicht leer ist, bedeutet dies, dass die Anforderung keinen Catch verwenden kann
Catchnow = false
anders
Catchnow = getCatchData (rev)
Endif
Endif
Endfunktion
PrivateFunctionGetCatchData (rev) 'Read Catch Data
Dimfso, IsBuildcatch
Setfso = createObject (scripting.filesystemObject) 'setzen Sie das FSO -Objekt und greifen Sie auf die CatchFile zu
IFFSO.FILEExists (CFolder & CFILE) dann
DimFile, Lastcatch
SetFile = fso.getFile (CFolder & CFILE) 'Definieren Sie das CatchFile -Dateiobjekt
LastCatch = CDate (Datei.DatelastModified)
ifdatediff (n, lastcatch, now ())> Überwirtschaftliche
'Wenn die Fangzeit überschritten wird
Isbuildcatch = true
anders
Isbuildcatch = false
Endif
Setfile = nichts
anders
Isbuildcatch = true
Endif
Ifisbuildcatchhen
GetCatchData = http: //www.code-123.com/html/buildcatch (rev) '' Wenn Sie eine Catch erstellen, eine Fangdatei erstellen und gleichzeitig die Fangdaten festlegen müssen
anders
GetCatchData = http: //www.code-123.com/html/readcatch (rev) '' Wenn Sie keinen Catch erstellen müssen, lesen Sie die Fangdaten direkt durch
Endif
Setfso = nichts
PrivateFunctiongetScriptPath (ISGET) 'Erstellen Sie eine Adresse, die alle angeforderten Daten enthält
Dimkey, Tanne
GetScriptPath = scriptName
Fir = true
foreachKeyInRequest.queryString
Iffirthen
GetScriptPath = GetScriptPath &?
Fir = falsch
anders
GetScriptPath = getScriptPath &&
Endif
GetScriptPath = getScriptPath & server.urlencode (Schlüssel) & = & server.urlencode (Request.queryString (Schlüssel))
Nächste
Ifisgethen
Iffirthen
GetScriptPath = GetScriptPath &?
Fir = falsch
anders
GetScriptPath = getScriptPath &&
Endif
GetScriptPath = getScriptPath & server.urlencode (Mark) & = Ja
Endif
Endfunktion
'Erstellen Sie eine Fangdatei
PrivateFunctionBuildcatch (rev)
Dimhttp, URL, Ergebnis
Sethttp = createObject (microsoft.xmlhttp)
'OnErrorresumenext
'response.writeServerHost & getScriptPath (true)
Http.openget, http: // & serverhost & getScriptPath (true), false
Http.send
ifer.number = 0Then
Catchdata = http: //www.code-123.com/html/bytes2bstr (http.ResponseBody)
anders
Rev = fehler bei der Erstellung aufgetreten: & err.description
BuildCatch = false
Err.clear
Endif
Callwritecatch
sethttp = nichts
Endfunktion
PrivateFunctionReadcatch (rev)
ReadCatch = iReadCatch (CFOLDER & CFILE, Catchdata, Rev)
Endfunktion
PrivateSubwritecatch
Dimfso, TSO
Setfso = createObject (scripting.filesystemObject) 'setzen Sie das FSO -Objekt und greifen Sie auf die CatchFile zu
SettSO = fso.createTextfile (CFOLDER & CFILE, TRUE)
Tso.write (catchdata)
Settso = nichts
Setfso = nichts
Ende
Endschicht
FORMITILIGE CATCH CATCH (Datei, Daten, rev)
Dimfso, TSO
Setfso = createObject (scripting.filesystemObject) 'setzen Sie das FSO -Objekt und greifen Sie auf die CatchFile zu
'onErrorresumenext
Settso = fso.opentextfile (Datei 1, falsch)
Data = http: //www.code-123.com/html/tso.readall
Ifr.number <> 0Then
Rev = Fehler in Lesen aufgetreten: & err.deskription
ReadCatch = false
Err.clear
anders
Ireadcatch = true
Endif
Settso = nichts
Setfso = nichts
Endfunktion
%>
Share: ASP Anrufe C# Compiled COM -Komponenten Beispiel 1 Erstellen Sie eine neue Klassenbibliothek myTestDll 2 Klicken Sie mit der rechten Maustaste auf das Projekt myTestDll-》 Attribut-》 generieren-》 Ticken Sie als COM Interoperability Registrierung 3 Offene AssemblyInfo.CS-Dateimodifikation [Assembly: comvisible (true)] 4 Öffnen Sie das Eingabeaufforderungsinstrument für Visualsutdio2008 ein.