<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file=Dv_plus/xxhost/inc/xxhost_Function.asp-->
<!--#include file=Dv_plus/xxhost/inc/xxhost_Cache.asp-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'电影插件
'插件作者：某某主机评论网站
'使用本插件之前先到 http://www.xxhost.cn/common/ 注册获取您的帐号
'开发商地址：http://www.xxhost.cn
'版本 V 0.1
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dvbbs.stats="<font color='#FF0000'>电影</font>"
Dvbbs.LoadTemplates("")
Dvbbs.nav()
Dvbbs.Head_var 0,0,"娱乐插件","plus_xxhots.cn_movie.asp"
Main()
Dvbbs.ActiveOnline()
Dvbbs.Footer()
Dim HttpUrl,myCache,StarGet,tmp_content
sub main()
Dim t_username,t_password
t_username="joy01"   '如果您没有帐号 那么请到 http://www.xxhost.cn/common/ 注册获取您的帐号
t_password="joy01"   '如果您没有密码 那么请到 http://www.xxhost.cn/common/ 注册获取您的密码
Response.write "<table cellpadding=3 cellspacing=1 align=center class=tableborder1><tr><td valign=middle class=tablebody1 height=100><CENTER>"
HttpUrl="http://www.xxhost.cn/common/movie/default.asp?username="&t_username&"&password="&t_password
set myCache=new cache
    myCache.name="xxhostmovie"
if myCache.valid then
   StarGet = myCache.value
else
   StarGet = GetHttpPage(HttpUrl)	
   myCache.add StarGet,dateadd("h",3,Now)  '这里设置多少小时更新一次数据
end if
If Trim(Request("action"))="cache" then
   myCache.add StarGet,dateadd("s",0,Now)
   response.write"<SCRIPT LANGUAGE=JavaScript>window.clear;"
   response.write"window.location.href='plus_xxhots.cn_movie.asp';</SCRIPT>"
end if
tmp_content=GetBody(StarGet,"<!--列表开始-->","<!--列表结束-->",False,False)
response.write tmp_content
response.write "<table width=100% cellpadding=0 cellspacing=0 border=0><tr><td align=center><a href='plus_xxhots.cn_movie.asp?action=cache'>更新缓存</a></td></tr></table>"
response.write "</CENTER></td></tr></table>"
end sub
%>