Мощное применение ASP не в PHP. Вчера мой друг жаловался на то, что его веб -сайт талантов медленно прочитал, поэтому я помог ему использовать часть приложения ASP, чтобы прочитать более своевременную часть ASP.
Функция getCache автоматически установит необходимый кэш.
Функция getCache (Funname, Isreset, Isarr, TimeInfo))
'Funsname -i нужно кэшировать контент, вот поклонник, который необходимо ввести.
'ISRESET -Будь то обновление [значение: 0 (на основе времени или кэша суждений, чтобы автоматически обновляться, когда оно пусто), 1 (активное обновление)]]
'ISARR---
'TimeInfo-Cache Время обновления, блок второй, когда значение равно 0, оно обновляется только тогда, когда кеш пуст
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 = reply (reply (reply (funsname, (,),),) ,,,,,,,,,
Если isarr = 1, то temp_isarray_type = true
If isreset = 1 re_getcache = true
Если isreset = 2, тогда
Execute (temp_getConfig = & funsname)
getCache = temp_getConfig
Выходная функция
Конец, если
Если Application (Domain & _ & AppfunSname & _time) = и TimeInfo <> 0, тогда RE_GETCACHE = true
Если не re_getcache, тогда
Если temp_isarray_type тогда
Если нет isarray (приложение (домен и _ & appfunsname)), то re_getcache = true
Еще
Если Application (Domain & _ & AppfunSname) = Then re_getCache = true
Конец, если
Конец, если
Если не re_getcache и timeinfo <> 0, тогда
Если int (datingiff (s, application (domain & _ & appfunsname & _time), теперь ())> TimeInfo, то RE_GETCACHE = true
Конец, если
Если re_getcache, тогда
Execute (temp_getConfig = & funsname)
Application.lock
Application (Domain & _ & AppfunSname) = temp_getConfig
Приложение (Domain & _ & AppfunSname & _time) = теперь ()
Application.unlock
Еще
Temp_getConfig = Application (Domain & _ & AppfunSname)
Конец, если
getCache = temp_getConfig
Конечная функция
При использовании:
Функция вывода3
вывод3 =
Установите newrs = const.execute (выберите Top 60 CompanyName, Comid, Vipdata, Ishot из компании, где isok = 1 и vipqx> 60 и vipqx <300 и vip = 1 и comp, которые составляют с заданий, где zt <> 1) порядок по новым ())
делать, пока не новичны.
Output3 = output3 & ............
Newrs.movenext
петля
Newrs.close
установить новости = ничего
Конечная функция
Response.write getCache (выход3 ″, 0,0,3600)