Die leistungsstarke Anwendung von ASP ist nicht in PHP. Gestern hat sich mein Freund beklagt, dass seine Talent -Website nur langsam gelesen wurde, und ich half ihm, den Antragsteil des ASP zu nutzen, um den aktuelleren Teil des ASP zu lesen.
Funktion GetCache legt automatisch den erforderlichen Cache fest.
Funktion getCache (Funname, IsReset, Isarr, TimeInfo))
'FunsName -Ich muss Inhalt zwischenspeichern. Hier ist ein Fan, der eingegeben werden muss.
'isReset -ob aktualisiert [Wert: 0 (basierend auf dem Beurteilungs -Cache, um automatisch zu aktualisieren, wenn es leer ist), 1 (aktive Aktualisierung)]]
'ISarr-ob der Inhalt des Cache eine Daten ist [0 ist eine Zeichenfolge, 1 ist ein Array]
'TimeInfo-Cache-Update-Zeit, das Gerät ist zweiter Stelle, wenn der Wert 0 ist, wird es nur aktualisiert, wenn der Cache leer ist
Dim Domain = cnzhaopin.com.cn
Dim temp_getConfig
Dim re_getCache: re_getCache = false
Dim temp_isaray_type: temp_isarray_type = false
Dim AppFunsName: Appfunsname = Ersetzen (ersetzen (ersetzen (FunsName, (,)),) ,,,,,,,,,,
Wenn isarr = 1 dann temp_isarray_type = true
Wenn isReset = 1 the re_getCache = true
Wenn isReset = 2 dann
Execute (temp_getconfig = & funsname)
getCache = temp_getConfig
Ausgangsfunktion
Ende wenn
Wenn Anwendung (Domain & _ & appfunsname & _time) = und TimeInfo <> 0, dann re_getCache = true
Wenn nicht re_getCache, dann dann
Wenn temp_isarray_type dann
Wenn nicht ISArray (Anwendung (Domain & _ & AppfunsName))), dann re_getCache = true
Anders
Wenn Anwendung (Domain & _ & appfunsName) = dann re_getCache = true
Ende wenn
Ende wenn
Wenn nicht re_getCache und TimeInfo <> 0, dann dann
Wenn int (Datingiff (s, Anwendung (Domain & _ & appfunsname & _Time)), jetzt ())> TimeInfo dann re_getCache = true
Ende wenn
Wenn re_getCache dann
Execute (temp_getconfig = & funsname)
Application.lock
Anwendung (Domain & _ & AppfunsName) = temp_getConfig
Anwendung (Domain & _ & appfunsname & _time) = Now ())
Application.unlock
Anders
Temp_getConfig = application (Domain & _ & appfunsname)
Ende wenn
getCache = temp_getConfig
Endfunktion
Bei Verwendung:
Funktionsausgabe3
output3 =
Setzen Sie Newrs = const.execute (Select Top 60 CompanyName, Comid, Vipdata, ISHOT aus der Firma, wobei ISOK = 1 und VIPQX> 60 und VIPQX <300 und VIP = 1 und comp, die sich aus Jobs vereinen, wo zt <> 1) mit Newid bestellen. ())
tun, während nicht Newrs.eof
Output3 = output3 & ............
Newrs.Movenext
Schleife
newrs.close
Nachrichten setzen = nichts
Endfunktion
Antwort.Write getCache (output3 ″, 0,0,3600)