L'application puissante d'ASP n'est pas en PHP. Hier, mon ami s'est plaint que son site Web de talent était lent à lire, alors je l'ai aidé à utiliser la partie de l'application de l'ASP à lire la partie la plus opportune de l'ASP.
Fonction GetCache établira automatiquement le cache requis.
Fonction getCache (funname, iSreset, iSarr, TimeInfo))
«FunSname -Je besoin de mettre en cache du contenu, voici un fan qui doit être entré.
'ISRESET -Si-Shetther à mettre à jour [Valeur: 0 (en fonction du cache de temps ou de jugement pour mettre à jour automatiquement lorsqu'il est vide), 1 (mise à jour actif)]
«ISARR-SWHETHTHE Le contenu du cache est une données [0 est une chaîne, 1 est un tableau]
'TimeInfo-Cache Time Time, l'unité est deuxième, lorsque la valeur est 0, elle n'est mise à jour que lorsque le cache est vide
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 = remplacer (remplacer (remplacer (funsname, (,),),) ,,,,,,,,,,
Si isarr = 1 alors temp_isarray_type = true
Si iSReset = 1 le re_getcache = true
Si iSreset = 2 alors
Exécuter (temp_getconfig = & funsName)
getCache = temp_getconfig
Fonction de sortie
Terminer si
Si application (domaine & _ & appfunsname & _time) = et timeInfo <> 0 alors re_getcache = true
Si ce n'est pas re_getcache alors
Si temp_isarray_type alors
Si pas IsArray (application (domaine & _ & appfunsName)) alors re_getcache = true
Autre
Si application (domaine & _ & appfunsName) = alors re_getcache = true
Terminer si
Terminer si
Si ce n'est pas re_getcache et timeinfo <> 0 alors
Si int (datich (s, application (domaine & _ & appfunsname & _time), maintenant ())> timeInfo alors re_getcache = true
Terminer si
Si re_getcache alors
Exécuter (temp_getconfig = & funsName)
Application.lock
Application (domaine & _ & appfunsname) = temp_getconfig
Application (domaine & _ & appfunsname & _time) = maintenant ()
Application.unlock
Autre
Temp_getconfig = application (domaine & _ & appfunsname)
Terminer si
getCache = temp_getconfig
Fonction finale
Lorsqu'il est utilisé:
Sortie de fonction3
sortie 3 =
Définissez newrs = const.execute (sélectionnez les 60 top 60 CompanyName, comid, vipdata, ishot de la société où isok = 1 et vipqx> 60 et vipqx <300 et vip = 1 et compte that comid à partir de travaux où zt <> 1) commande par NewId ())
faire tout en ne faisant pas
Output3 = output3 & ............
newrs.movènext
boucle
newrs.close
définir des nouvelles = rien
Fonction finale
Response.Write GetCache (Output3 ″, 0,0,3600)