www.gusucode.com > 迅雷看看小偷电影程序源码+后台(首页去弹窗) > 迅雷看看小偷电影程序源码+后台(首页去弹窗)\code\movie.asp
<!--#include file="sql.asp"--><%
%><!--#include file="Config.asp"--><!--#include file="Cache.asp"--><%
page=(Request.QueryString)
if InStr(page,"tv")>0 then
mytitle="电视剧频道"
urls="http://movie.xunlei.com/tv/"
elseif InStr(page,"zy")>0 then
mytitle="综艺频道"
urls="http://movie.xunlei.com/zy/"
elseif InStr(page,"dm")>0 then
mytitle="动漫频道"
urls="http://anime.xunlei.com/"
else
mytitle="电影频道"
urls="http://movie.xunlei.com/"
end if
dim content,myCache
Set myCache = new cls_Cache
myCache.name="movieasp"&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
Re.Pattern=" onmouseover([^>])*>"
sContent=Re.Replace(sContent,">")
Re.Pattern=" title([^>])*>"
sContent=Re.Replace(sContent,">")
Re.Pattern="<script>([^>])*</script>"
sContent=Re.Replace(sContent,"")
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,"")
sContent=Replace(sContent,"style=""position:absolute","style=""display:none")
sContent=Replace(sContent,"<div class=""inmedia"" id=""inmedia_pos""></div>","")
sContent=Replace(sContent,"<iframe id=""iframe_proxy"" name=""iframe_proxy"" scrolling=""no"" frameborder=""0"" style=""margin:0"" height=""0"" width=""0"" src=""http://movie.xunlei.com/proxy.html"" ></iframe>","")
sContent=Replace(sContent,"<a href=""javascript:_GC()"" target=""_self"" class=""box-moreA"">清空历史>></a>","")
sContent=Replace(sContent,"我看过的","热点")
sContent=Replace(sContent,"<div id=""view_history"" class=""view_history""></div>","")
sContent=Replace(sContent,"<h4>猜你会喜欢</h4>","<div align=""center""><script src=""gg/right.js""></script></div>")
sContent=Replace(sContent,"<div class=""banner-middle"" id=""top1""></div>","<div align=""center""><script src=""gg/1.js""></script></div><div style=""margin-top:8px;""></div>")
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=urls
wstr=getHTTPPage(url)
start=Newstring(wstr,"<div class=""box rbgx"">")
over=Newstring(wstr,"<div class=""box yingping"">")
body=mid(wstr,start,over-start)
content=NoHref(body)
if content = "" then
tms="1"
else
tms="180"
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" />
<title><%=mytitle%> - <%=title%></title>
<link href="http://misc.web.xunlei.com/www_5_3/css/basekk_movie.css" rel="stylesheet" type="text/css" media="all" />
<link href="http://misc.web.xunlei.com/www_5_3/css/detailkk_movie.css" rel="stylesheet" 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>
<base target="_blank">
</head>
<body class="kk-catalog">
<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="gg/otop.js"></script></div>
</div>
<div class="channel-nav">
<ul>
<li><a href="." target="_self">首页</a></li>
<li><a href="movie.asp" target="_self">电影频道</a></li>
<li><a href="movie.asp?tv" target="_self">电视剧频道</a></li>
<li><a href="movie.asp?zy" target="_self">综艺频道</a></li>
<li><a href="movie.asp?dm" target="_self">动漫频道</a></li>
<li><a href="hd.asp" target="_self">高清频道</a></li>
<li><a href="javascript://" target="_self" onmouseover="showMoreLinks('NavMoreLinks');" onmouseout="hideMoreLinks('NavMoreLinks');">分类</a></li>
<li><a href="list.asp?new,movie" target="_self">新片</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>
<div class="container">
<div class="main"><%
if content = "" then
Response.Write "<h3>数据读取失败~~可能是XMLHTTP组件问题或是服务器所用的DNS解析问题,请联系空间商解决或换个空间测试一下~~~</h3>"
else
Response.Write content
end if
%></div></div>
<!--#include file="bottom.asp"-->
</body>
</html><script src="gg/piao.js"></script>