<!--#include file="../JaJa.Conn.asp" -->
<!--#include file="../JaJa.Cache/JaJa.Admin.asp" -->
<!--#include file="ExeCute.asp" -->
<%
'Response.Buffer=True
Dim t1,t3,content
Response.Charset="gb2312"		
Dim Classsid:Classsid=Request.QueryString("did")
if Classsid=""  Then
Response.Write "<div id=nod><img src='../Images/loading.gif' align='absmiddle'/>列表加载失败....<div>"
Response.end 
Else
Dim hh:hh="2"
'If HtmlId(0)="1" Then
If hh="1" Then
'===========判断更新缓存条件======
t1=time()
t3=dateadd("h",2,Application(jaja(1)&"time"))'缓存内容超过指定小时则更新数据

If Application(jaja(1)&"time")="" or Application(jaja(1)&"dataList"&Classsid)="" or t1>t3 or Application(jaja(1)&"date")<>date Then
'写入缓存
content=ListMovie(Classsid,1)
Application(jaja(1)&"time")=time
Application(jaja(1)&"date")=date
Application(jaja(1)&"dataList"&Classsid)=content
Response.Write content
Else
Response.Write(Application(jaja(1)&"dataList"&Classsid))
End if
Else'不开启缓存
'Response.Write "不开启缓存<BR>"
Response.Write ListMovie(Classsid,1)
End if
End if

%>