La poderosa aplicación de ASP no está en PHP. Ayer, mi amigo se quejó de que su sitio web de talento tardó en leer, así que lo ayudé a usar la parte de la aplicación del ASP para leer la parte más oportuna del ASP.
La función GetCache establecerá automáticamente el caché requerido.
Function getCache (FunName, IsReset, Isarr, TimeInfo))
'FunSname -En necesito almacenar contenido, aquí hay un fanático que debe ingresarse.
'ISRESET -FETERS para actualizar [Valor: 0 (basado en el tiempo o el juicio Cache para actualizar automáticamente cuando está vacío), 1 (actualización activa)]]
'ISARR: si el contenido del caché es un datos [0 es una cadena, 1 es una matriz]
'TimeInfo-Cache Tiempo de actualización, la unidad es segunda, cuando el valor es 0, solo se actualiza cuando el caché está vacío
Dim dominio = cnzhaopin.com.cn
Dim temp_getConfig
Dim re_getcache: re_getcache = false
Dim temp_isaray_type: temp_isArray_type = false
Dim AppFunsName: AppFunsName = reemplazar (reemplazar (reemplazar (FunSname, (,),),) ,,,,,,,,,
If isarr = 1 entonces temp_isArray_type = true
If isreset = 1 el re_getCache = true
Si isreset = 2 entonces
Ejecutar (temp_getConfig = & Funsname)
getCache = temp_getConfig
Función de salida
Final si
Si la aplicación (Domain & _ & AppFunsname & _Time) = y TimeInfo <> 0 entonces re_getCache = true
Si no es re_getcache entonces
Si temp_isarray_type entonces
Si no isArray (aplicación (dominio & _ & appfunsname)) entonces re_getcache = true
Demás
Si la aplicación (Domain & _ & AppFunsName) = entonces re_getCache = true
Final si
Final si
Si no es re_getCache y TimeInfo <> 0, entonces
Si int (Datingiff (S, Application (Domain & _ & AppFunsname & _Time), ahora ())> TimeInfo luego re_getCache = true
Final si
Si re_getCache entonces
Ejecutar (temp_getConfig = & Funsname)
Application.lock
Aplicación (Domain & _ & AppFunsName) = TEMP_GETCONFIG
Aplicación (Domain & _ & AppFunsname & _Time) = ahora ()
Aplicación
Demás
Temp_getConfig = Application (Domain & _ & AppFunsname)
Final si
getCache = temp_getConfig
Función final
Cuando se usa:
Salida de la función3
salida3 =
Establecer newrs = const.execute (seleccione Top 60 CompanyName, ComID, VipData, IsHot de Company Where ISOK = 1 y VIPQX> 60 y VIPQX <300 y VIP = 1 y Comp That Comid de trabajos donde ZT <> 1) Ordene por Newid ())
haz aunque no sea nuevo
Output3 = output3 & ............
newrs.movenext
bucle
newrs.close
Establecer noticias = nada
Función final
Response.Write GetCache (salida3 ″, 0,0,3600)