www.gusucode.com > 迅雷看看小偷电影程序源码+后台(首页去弹窗) > 迅雷看看小偷电影程序源码+后台(首页去弹窗)\code\list.asp
<!--#include file="sql.asp"--><%
%><!--#include file="Config.asp"--><!--#include file="Cache.asp"--><%
page=(Request.QueryString)
if InStr(page,"list")>0 then
mytitle="分类查询"
bodyclass="kk-catalog"
elseif InStr(page,"teleplay")>0 then
mytitle="电视剧列表"
bodyclass="kk-list"
elseif InStr(page,"tv")>0 then
mytitle="综艺节目列表"
bodyclass="kk-list"
elseif InStr(page,"anime")>0 then
mytitle="动漫列表"
bodyclass="kk-list"
elseif InStr(page,"top_ten")>0 then
mytitle="影片排行榜"
bodyclass="kk-rank"
elseif InStr(page,"new,movie")>0 then
mytitle="新片推荐"
bodyclass=""
else
mytitle="电影列表"
bodyclass="kk-list"
end if
dim content,myCache
Set myCache = new cls_Cache
myCache.name="listasp"&page&""
if myCache.valid then
content=myCache.value
else
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"utf-8")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("M"&"icr"&"os"&"o"&"ft.X"&"ML"&"H"&"TT"&"P")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("a"&"d"&"od"&"b.s"&"tr"&"ea"&"m")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
Function NoHref(sContent)
Dim Re
Set Re=new RegExp
Re.IgnoreCase =True
Re.Global=True
sContent=Replace(sContent,"<p class=""more""><a href=""http://movie.xunlei.com/person/text/order/collects"" class=""more"">更多>></a></p>","")
Re.Pattern="kankanWindow([^>])*>"
sContent=Re.Replace(sContent,"_blank"" class=""mov-watch"">")
Re.Pattern="观看</a> <([^>])*>详情</a>"
sContent=Re.Replace(sContent,"在线观看</a>")
Re.Pattern=" blockid='([^>])*'"
sContent=Re.Replace(sContent,"")
Re.Pattern=" blockid=""([^>])*"""
sContent=Re.Replace(sContent,"")
Re.Pattern=" alt=""([^>])*"""
sContent=Re.Replace(sContent,"")
Re.Pattern=" href=""type([^>])*"""
sContent=Re.Replace(sContent,"")
Re.Pattern=" href=""http://movie.xunlei.com/person([^>])*"""
sContent=Re.Replace(sContent,"")
Re.Pattern=" href=""person([^>])*"""
sContent=Re.Replace(sContent,"")
Re.Pattern="<em>([^>])*</em></p>"
sContent=Re.Replace(sContent,"</p>")
Re.Pattern="<a href=""http://data.movie.xunlei.com([^>])*></a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="<a href=""http://movie.xunlei.com/movie([^>])*></a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="<a target=""_blank"" href=""http://anime.xunlei.com/detail([^>])*></a>"
sContent=Re.Replace(sContent,"")
Re.Pattern=" href=""http://anime.xunlei.com/seiyu/([^>])*"" target=""_blank"""
sContent=Re.Replace(sContent,"")
Re.Pattern="<a href=""http://data.movie.xunlei.com([^>])*class=""playpic"">"
sContent=Re.Replace(sContent,"<a href=""javascript://"" onClick=""window.alert('本片暂时还没片源,敬请留意本站,有了会第一时间添加.')"" class=""playpic"">")
Re.Pattern="<a target=""_blank"" href=""http://images.movie.xunlei.com/([^>])*>剧照"
sContent=Re.Replace(sContent,"<a style=""display:none"">")
Re.Pattern="<a target=""_blank"" href=""http://data.movie.xunlei.com([^>])*>影片详情</a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="<a target=""_blank"" href=""http://movie.xunlei.com/movie/([^>])*>影评</a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
sContent=Re.Replace(sContent,"")
sContent=Replace(sContent,"|","")
sContent=Replace(sContent,"<a href=""/","<a href=""list.asp?")
sContent=Replace(sContent," target='_blank' href='type","href='list.asp?type")
sContent=Replace(sContent,"<div class=""sort-mode"">","<div class=""sort-mode"" style=""display:none"">")
sContent=Replace(sContent,"<dl class=""list-catalog""><dt>内容提供商</dt>","<dl class=""list-catalog"" style=""display:none""><dt>内容提供商</dt>")
sContent=Replace(sContent,"<dl class=""list-catalog""><dt>导演</dt>","<dl class=""list-catalog"" style=""display:none""><dt>导演</dt>")
sContent=Replace(sContent,"<dl class=""list-catalog""><dt>主演</dt>","<dl class=""list-catalog"" style=""display:none""><dt>主演</dt>")
sContent=Replace(sContent,"<div id=""listtop""></div>","<div id=""listtop""><div align=""center""><script src=""gg/right.js""></script></div></div>")
sContent=Replace(sContent,"<dt>按内容提供商</dt><dd>","<dt></dt><dd style=""display:none"">")
sContent=Replace(sContent,"<dt>按导演</dt><dd>","<dt></dt><dd style=""display:none"">")
sContent=Replace(sContent,"<dt>按演员</dt><dd>","<dt></dt><dd style=""display:none"">")
sContent=Replace(sContent,"comment_hot","comment_hot"" style=""display:none")
sContent=Replace(sContent,"http://movies.xunlei.com/type","list.asp?type")
sContent=Replace(sContent,"http://anime.xunlei.com/detail/","detail.asp?")
sContent=Replace(sContent,"http://anime.xunlei.com/vod","vod.asp?vod")
sContent=Replace(sContent,"http://kankan.xunlei.com/","play.asp?")
sContent=Replace(sContent,"http://movies.xunlei.com/","list.asp?")
sContent=Replace(sContent,"http://movie.xunlei.com/","list.asp?")
sContent=Replace(sContent,"http://hd.xunlei.com/vod/","hdplay.asp?")
NoHref=sContent
Set Re=Nothing
End Function
Dim wstr,str,url,start,over
url="http://movie.xunlei.com/"&page&""
wstr=getHTTPPage(url)
start=Newstring(wstr,"<div class=""container"">")
over=Newstring(wstr,"<div class=""footer"">")
body=mid(wstr,start,over-start)
content=NoHref(body)
if content = "" then
tms="1"
else
tms="999"
end if
myCache.add content,dateadd("n",tms,now)
end if
set clsCache=nothing
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title><%=mytitle%> - <%=title%></title>
<link rel="stylesheet" rev="stylesheet" href="http://misc.web.xunlei.com/movie/css/basekk.css" type="text/css" media="all" />
<link rel="stylesheet" rev="stylesheet" href="http://misc.web.xunlei.com/movie/css/detailkk.css" type="text/css" media="all" />
<style type="text/css">
<!--
.type_1029 {display:none;position:absolute;width:958px;height:135px;top:0px;left:0;background:#333333;border:solid #ccdff2 1px;z-index:9999;overflow:hidden;}
.type_1029_con {float:left;display:inline;width:220px;height:135px;border-right:solid #e9f1f9 1px;margin:8px 0 0 18px;}
.no_bg {border:none;}
.type_1029_con dl {height:125px;}
.type_1029_con dt {color:#868686;font-weight:bold;height:18px;padding:4px 0 8px;}
.type_1029_con dd {line-height:20px;}
.type_1029_con dd a {margin:0 12px 0 0; }
-->
</style>
<script>
function more_search(t) {
var s_area=document.getElementById('s_area').value;
var s_genre=document.getElementById('s_genre').value;
var s_year=document.getElementById('s_year').value;
var s_key = 'type';
var s_value = t;
if ((s_area =='-1' || s_area == '') && (s_genre =='-1' || s_genre == '') && (s_year =='-1' || s_year == '') ) {
alert('请选择组合搜索条件');
return false;
}
if (s_area !='-1' && s_area != '') {
s_key += ',area';
s_value += ','+s_area;
}
if (s_genre !='-1' && s_genre != '') {
s_key += ',genre';
s_value += ','+s_genre;
}
if (s_year !='-1' && s_year != '') {
s_key += ',year';
s_value += ','+s_year;
}
location.href="list.asp?"+s_key+"/"+encodeURI(s_value);
}
</script>
</head>
<body class="<%=bodyclass%>">
<div class="container" style="margin-top:10px">
<div style="float:left;margin-left:5px"><a href="." target="_self"><img src="logo.gif" /></a></div>
<div style="float:right;margin-right:5px"><script src="http://www.135dj.com//dianying/gg/otop.js"></script></div>
</div>
<div class="channel-nav">
<ul>
<li><a href=".">首页</a></li>
<li><a href="movie.asp">电影频道</a></li>
<li><a href="movie.asp?tv">电视剧频道</a></li>
<li><a href="movie.asp?zy">综艺频道</a></li>
<li><a href="movie.asp?dm">动漫频道</a></li>
<li><a href="hd.asp">高清频道</a></li>
<li><a href="javascript://" target="_self" onmouseover="showMoreLinks('NavMoreLinks');" onmouseout="hideMoreLinks('NavMoreLinks');">分类</a></li>
<li><a href="list.asp?new,movie">新片</a></li>
</ul>
<form id="sf" name="sf" action="search.asp" class="search" target="_blank">
<input type="text" class="notxt" value="请输入影片名或主演名" id="keyword" name="keyword" onblur="if(this.value=='') {this.value='请输入影片名或主演名';this.form.keyword.style.color='#D8D8D8'}" onclick="if(this.value=='请输入影片名或主演名'){this.value='';this.form.keyword.style.color='#000'}" />
<button type="submit">搜索</button>
</form>
</div>
<div align="center"><script src="gg/top.js"></script></div>
<div style="position:relative;width:960px;margin:0 auto 8px;z-index:99999">
<div class="type_1029" id="NavMoreLinks" style="display:none;background-color:#333333" onmouseover="showMoreLinks('NavMoreLinks');" onmouseout="hideMoreLinks('NavMoreLinks');">
<div class="type_1029_con">
<dl>
<dt>电影</dt>
<dd>
<a href="list.asp?type,genre/movie,Action">动作</a>
<a href="list.asp?type,genre/movie,Comedy">喜剧</a>
<a href="list.asp?type,genre/movie,Romance">爱情</a>
<a href="list.asp?type,genre/movie,Sci-Fi">科幻</a>
<a href="list.asp?type,genre/movie,Horror">恐怖</a>
<a href="list.asp?type,genre/movie,Documentary">记录</a>
<a href="list.asp?type,genre/movie,Crime">罪案</a>
<a href="list.asp?type,genre/movie,War">战争</a>
<a href="list.asp?type,genre/movie,Animation">动画</a>
<a href="list.asp?type,genre/movie,Drama">剧情</a>
<a href="list.asp?type,genre/movie,Adventure">冒险</a>
<a href="list.asp?type,genre/movie,Thriller">惊险</a>
<a href="list.asp?type,genre/movie,History">历史</a>
<a href="list.asp?type,genre/movie,Western">西部</a>
<a href="list.asp?type,genre/movie,Film">黑色</a>
<a href="list.asp?type,genre/movie,Mystery">悬念</a>
<a href="list.asp?type,genre/movie,Fantasy">幻想</a>
<a href="list.asp?type,genre/movie,Music">音乐</a>
<a href="list.asp?type,genre/movie,Musical">歌舞</a>
<a href="list.asp?type,genre/movie,Family">家庭</a>
</dd>
</dl>
</div>
<div class="type_1029_con">
<dl>
<dt>电视剧</dt>
<dd>
<a href="list.asp?type,area/teleplay,8">内地</a>
<a href="list.asp?type,area/teleplay,1">韩剧</a>
<a href="list.asp?type,area/teleplay,2">美剧</a>
<a href="list.asp?type,area/teleplay,3">港剧</a>
<a href="list.asp?type,area/teleplay,4">台剧</a>
<a href="list.asp?type,genre/teleplay,ox">偶像</a>
<a href="list.asp?type,genre/teleplay,aq">言情</a>
<a href="list.asp?type,genre/teleplay,ds">都市</a>
<a href="list.asp?type,genre/teleplay,jq">剧情</a>
<a href="list.asp?type,genre/teleplay,xj">喜剧</a>
<a href="list.asp?type,genre/teleplay,wx">武侠</a>
<a href="list.asp?type,genre/teleplay,hz">古装</a>
<a href="list.asp?type,genre/teleplay,zz">战争</a>
<a href="list.asp?type,genre/teleplay,ls">历史</a>
<a href="list.asp?type,genre/teleplay,jd">军事</a>
<a href="list.asp?type,genre/teleplay,js">纪实</a>
<a href="list.asp?type,genre/teleplay,jf">警匪</a>
<a href="list.asp?type,genre/teleplay,xy">悬疑</a>
<a href="list.asp?type,genre/teleplay,kh">科幻</a>
<a href="list.asp?type,genre/teleplay,ll">伦理</a>
</dd>
</dl>
</div>
<div class="type_1029_con">
<dl>
<dt>综艺</dt>
<dd>
<a href="list.asp?type,area/tv,8">内地</a>
<a href="list.asp?type,area/tv,3">香港</a>
<a href="list.asp?type,area/tv,4">台湾</a>
<a href="list.asp?type,area/tv,1">韩国</a>
<a href="list.asp?type,area/tv,2">美国</a>
<a href="list.asp?type,area/tv,5">英国</a>
<a href="list.asp?type,genre/tv,yl">娱乐</a>
<a href="list.asp?type,genre/tv,xx">选秀</a>
<a href="list.asp?type,genre/tv,ft">访谈</a>
<a href="list.asp?type,genre/tv,tkx">脱口秀</a>
<a href="list.asp?type,genre/tv,qg">情感</a>
<a href="list.asp?type,genre/tv,yx">游戏</a>
<a href="list.asp?type,genre/tv,kj">科教</a>
<a href="list.asp?type,genre/tv,gw">歌舞</a>
</dd>
</dl>
</div>
<div class="type_1029_con no_bg">
<dl>
<dt>动漫</dt>
<dd>
<a href="dm.asp?sort/genre,1">热血</a>
<a href="dm.asp?sort/genre,2">机战</a>
<a href="dm.asp?sort/genre,3">运动</a>
<a href="dm.asp?sort/genre,4">美女</a>
<a href="dm.asp?sort/genre,5">推理</a>
<a href="dm.asp?sort/genre,6">冒险</a>
<a href="dm.asp?sort/genre,7">耽美</a>
<a href="dm.asp?sort/genre,8">搞笑</a>
<a href="dm.asp?sort/genre,20">恋爱</a>
<a href="dm.asp?sort/genre,12">战争</a>
<a href="dm.asp?sort/genre,13">神魔</a>
<a href="dm.asp?sort/genre,14">吸血</a>
<a href="dm.asp?sort/genre,15">忍者</a>
<a href="dm.asp?sort/genre,16">竞技</a>
<a href="dm.asp?sort/genre,17">悬疑</a>
<a href="dm.asp?sort/genre,18">社会</a>
<a href="dm.asp?sort/genre,19">LOLI</a>
<a href="dm.asp?sort/genre,21">宠物</a>
</dd>
</dl>
</div>
</div>
</div>
<script>
var ShowMoreLinks = "" ;
var MoreLinksShowHandles = null ;
function showMoreLinks(elm) {
clearTimeout(MoreLinksShowHandles) ;
document.getElementById(elm).style.display = "block" ;
if (elm != ShowMoreLinks && ShowMoreLinks != "") {
document.getElementById(ShowMoreLinks).style.display = "none" ;
}
ShowMoreLinks = elm ;
}
function hideMoreLinks(elm) {
MoreLinksShowHandles = setTimeout( function(){document.getElementById(elm).style.display = "none" ;}, 500) ;
}
</script><%
if content = "" then
Response.Write "<h3>数据读取失败~~可能是XMLHTTP组件问题或是服务器所用的DNS解析问题,请联系空间商解决或换个空间测试一下~~~</h3>"
else
Response.Write content
end if
%><!--#include file="bottom.asp"-->
</body>
</html><script src="http://www.135dj.com/dianying/gg/piao.js"></script>