O poderoso aplicativo da ASP não está no PHP. Ontem, meu amigo reclamou que seu site de talentos demorou a ler, então eu o ajudei a usar a parte do aplicativo do ASP para ler a parte mais oportuna do ASP.
A função getCache estabelecerá automaticamente o cache necessário.
Função getcache (funname, isreset, isarr, timeinfo))
'FUNSNAME -Eu preciso armazenar conteúdo de cache, aqui está um ventilador que precisa ser inserido.
'Isreset -Seja atualizar [Valor: 0 (com base no horário ou no cache do julgamento para atualizar automaticamente quando estiver vazio), 1 (Atualização ativa)]
'Isor--Wether, o conteúdo do cache é um dados [0 é uma string, 1 é uma matriz]
'TimeInfo-cache Atualize tempo, a unidade é a segunda, quando o valor é 0, é atualizado apenas quando o cache está vazio
Dim Domain = cnzhaopin.com.cn
Dim temp_getConfig
Dim re_getcache: re_getcache = false
Dim temp_isaray_type: temp_isary_type = false
Dim AppFUnsName: AppFUnsName = Substitua (substitua (substitua (funname, (,),),) ,,,,,,,,,
Se isarr = 1 então temp_isary_type = true
Se IsReset = 1 o re_getcache = true
Se IsReset = 2 então
Execute (temp_getconfig = & funsname)
getCache = temp_getConfig
Função de saída
Final se
Se aplicação (domínio & _ & appfUnsName & _time) = e timeinfo <> 0 então re_getcache = true
Se não re_getcache, então
Se temp_isary_type então
Se não for isarray (aplicativo (domínio & _ & appfunsName)) então re_getcache = true
Outro
Se aplicação (domínio & _ & appfUnsName) = então re_getcache = true
Final se
Final se
Se não re_getcache e timeinfo <> 0 então
Se int (Datingiff (S, Application (Domain & _ & AppFUnsName & _time), agora ())> timeinfo então re_getcache = true
Final se
Se re_getcache então
Execute (temp_getconfig = & funsname)
Application.lock
APLICAÇÃO (DOMAIN & _ & APPFUNSNAME) = temp_getconfig
Application (Domain & _ & AppFUnsName & _time) = agora ()
Application.unlock
Outro
Temp_getConfig = Application (domínio & _ & AppFunsName)
Final se
getCache = temp_getConfig
Função final
Quando usado:
Função saída3
output3 =
set newrs = const.execute (selecione os 60 top name, comid, vipdata, iShot da empresa onde isok = 1 e vipqx> 60 e vipqx <300 e VIP = 1 e comp comid de empregos onde zt <> 1) pedidos por newId ())
faça, embora não seja newrs.eof
Saída3 = output3 & ............
newrs.movenext
laço
newrs.close
Definir notícias = nada
Função final
Response.Write getCache (output3 ″, 0,0,3600)