asp独自のメモリキャッシュアプリケーション

 
  
Function getcache(funsname,isreset,isarr,timeinfo) 
  
‘funsname ―        ,       function  
  
‘isreset �C    [ ：0(                )、１(    )] 
  
‘ isarr ―-              [0    ，1   ] 
  
‘ timeinfo ―-       ，    ,   0 ，        ，    
  
dim domain = “cnzhaopin.com.cn” 
  
Dim temp_getconfig 
  
Dim re_getcache : re_getcache = False 
  
Dim temp_isarray_type : temp_isarray_type = False 
  
Dim Appfunsname : Appfunsname = Replace(Replace(Replace(funsname,”(”,”"),”)”,”"),”,”,”.”) 
  
If isarr = 1 Then temp_isarray_type = True 
  
If isreset = 1 Then re_getcache = True 
  
If isreset = 2 Then 
  
execute(”temp_getconfig=”&funsname) 
  
getcache = temp_getconfig 
  
Exit Function 
  
End If 
  
If Application(domain&”_”&Appfunsname&”_time”) = “” And timeinfo<>0 Then re_getcache = True 
  
If Not re_getcache Then 
  
If temp_isarray_type Then 
  
If Not IsArray(Application(domain&”_”&Appfunsname)) Then re_getcache = True 
  
Else 
  
If Application(domain&”_”&Appfunsname) = “” Then re_getcache = True 
  
End If 
  
End If 
  
If Not re_getcache And timeinfo<>0 Then 
  
If Int(DateDiff(”s”,Application(domain&”_”&Appfunsname&”_time”),now()))>timeinfo Then re_getcache = True 
  
End If 
  
If re_getcache Then 
  
execute(”temp_getconfig=”&funsname) 
  
Application.Lock 
  
Application(domain&”_”&Appfunsname) = temp_getconfig 
  
Application(domain&”_”&Appfunsname&”_time”) = Now() 
  
Application.UnLock 
  
Else 
  
temp_getconfig=Application(domain&”_”&Appfunsname) 
  
End If 
  
getcache = temp_getconfig 
  
End Function 
  
 
 

 
  
Function output3 
  
output3=”" 
  
set newrs=conn.execute(”select TOP 60 companyname,comid,vipdata,ishot from company where isok=1 and vipqx>60 and vipqx<300 and vip=1 and comid in (select comid from jobs where zt<>1) order by newid()”) 
  
do while not newrs.eof 
  
output3=output3 & “……….” 
  
newrs.movenext 
  
loop 
  
newrs.close 
  
set newrs=nothing 
  
End function 
  
response.write getcache(”output3″,0,0,3600)