www.gusucode.com > 迅雷看看小偷电影程序源码+后台(首页去弹窗) > 迅雷看看小偷电影程序源码+后台(首页去弹窗)\code\dm.asp
<!--#include file="sql.asp"--><%
%><!--#include file="Config.asp"--><!--#include file="Cache.asp"--><%
page=(Request.QueryString)
if page="" then page="sort"
if page="sort" then
mytitle="动漫频道"
bodyclass="bodySeInfo bodyList"
elseif InStr(page,"sort")>0 then
mytitle="动画分类列表"
bodyclass="bodySeInfo bodyList"
elseif InStr(page,"schedule")>0 then
mytitle="一周动漫节目表"
bodyclass="bodyTvList bodyDayTvList"
elseif InStr(page,"playrank")>0 then
mytitle="动漫播放收视排行榜"
bodyclass="bodyTvList"
elseif InStr(page,"playlist")>0 then
mytitle="即将开播动漫列表"
bodyclass="bodyTvList"
elseif InStr(page,"history")>0 then
mytitle="动漫季度播放表"
bodyclass="bodyDay"
elseif InStr(page,"lastupdate100")>0 then
mytitle="最新更新动漫列表"
bodyclass="bodyTvList"
else
mytitle="今日最新动漫"
bodyclass="bodyDay"
end if
dim content,myCache
Set myCache = new cls_Cache
myCache.name="dmasp"&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="<a href=""javascript:void([^>])*>收藏</a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="<a href=""http://movie.gougou([^>])*>下载</a>"
sContent=Re.Replace(sContent,"")
Re.Pattern="<a href=""/seiyu/([^>])*>"
sContent=Re.Replace(sContent,"<a>")
'Re.Pattern="(" & Chr(8) & "|" & Chr(9) & "|" & Chr(10) & "|" & Chr(13) & ")"
'sContent=Re.Replace(sContent,"")
sContent=Replace(sContent,"<dt><strong>系 列</strong></dt>","<dt><strong></strong></dt><dd><a href=""dm.asp?schedule"" style=""white-space:nowrap;""><b>一周动漫节目表</b></a> <a href=""dm.asp?lastupdate100"" class=""redF""><b>今日更新动漫</b></a></dd> <dt><strong>系 列</strong></dt>")
sContent=Replace(sContent,"src=""/img","src=""http://anime.xunlei.com/img")
sContent=Replace(sContent,"src='/img","src='http://anime.xunlei.com/img")
sContent=Replace(sContent,"""/detail/","""detail.asp?")
sContent=Replace(sContent,"href=""/vod/","href=""vod.asp?vod/")
sContent=Replace(sContent,">详情</a>"," style=""display:none"">详情</a>")
sContent=Replace(sContent,"href=""/playlist","href=""dm.asp?playlist")
sContent=Replace(sContent,"href=""/dailyplay","href=""dm.asp?dailyplay")
sContent=Replace(sContent,"href=""/playrank","href=""dm.asp?playrank")
sContent=Replace(sContent,"href=""/schedule","href=""dm.asp?schedule")
sContent=Replace(sContent,"href=""/history","href=""dm.asp?history")
sContent=Replace(sContent,"href=""/detail","href=""dm.asp?detail")
sContent=Replace(sContent,"href=""/sort","href=""dm.asp?sort")
sContent=Replace(sContent,"if(readCookie","//if(readCookie")
sContent=Replace(sContent,"Ajax","//Ajax")
NoHref=sContent
Set Re=Nothing
End Function
Dim wstr,str,url,start,over
url="http://anime.xunlei.com/"&page&""
wstr=getHTTPPage(url)
start=Newstring(wstr,"<div class=""container"">")
over=Newstring(wstr,"<div class=""otherInfo"">")
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 rel="stylesheet" rev="stylesheet" href="http://misc.web.xunlei.com/anime_v2/css/comic.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; }
.type_1029_con p a {color:#016A9F;margin:0 7px 0 0; }
.channel-navs { width:960px; height:33px; overflow:hidden; margin:0 auto 8px auto; background:url(http://misc.web.xunlei.com/www_5_3/img/catalogbar.png) no-repeat; padding:1px 2px 3px 2px; position:relative; }
.channel-navs ul { width:670px; height:33px; line-height:33px; font-size:14px; overflow:hidden; position:absolute; top:1px; left:4px; }
.channel-navs li { height:33px; overflow:hidden; float:left; padding-left:2px; background:url(http://misc.web.xunlei.com/www_5_3/img/catalogbar.png) no-repeat 0 -40px; position:relative; left:-2px; }
.channel-navs li a { float:left; padding:0 16px; color:#fff; }
.channel-navs li a:hover, .channel-navs li.selected a { text-decoration:none; background:url(http://misc.web.xunlei.com/www_5_3/img/catalogbar.png) no-repeat 50% -40px; }
.channel-navs .search { position:absolute; width:226px; height:20px; top:8px; left:726px; overflow:hidden; }
.channel-navs .search input { position:absolute; width:150px; height:16px; top:2px; left:20px; font-size:12px; line-height:16px; background:none; border:none; }
.channel-navs .search input.notxt { color:#D8D8D8; }
.channel-navs .search button { position:absolute; width:48px; height:20px; top:0; left:178px; background:none; border:none; padding-top:20px; }
.header {position:relative;width:960px;margin:0 auto;padding-top:10px;margin-bottom:8px}
.footer {width:960px;text-align:center;margin:10px auto 0;overflow:hidden;padding-bottom:10px;}
.footer a { color:#898888; }
.footer .f-nav { width:960px; height:20px; text-align:center; color:#C9C9C9; }
.footer .f-nav a { margin:0 10px; color:#333; }
.footer .copyright { width:960px; height:44px; line-height:22px; text-align:center; color:#898888;font-family:"Arial";}
.footer .safe-img { padding-top:10px; text-align:center; }
.footer .safe-img img { margin:0 6px; font-size:0; line-height:0; border:1px solid #D2D2D2; }
-->
</style>
<script>
var clip_power = 1;
var clip = 0;
function switchSortTvRecommend(clip_i, total, power) {
if (total) {
for (i=0;i<total;i++) {
document.getElementById('clip_' + i).className = '';
document.getElementById('tv_recommend_' + i).style.display = 'none';
}
document.getElementById('clip_' + clip_i).className = 'currA';
document.getElementById('tv_recommend_' + clip_i).style.display = 'block';
clip = clip_i;
}
if (!power) {
stopSwitchSortTvRecommend();
}
}
function autoSwitchSortTvRecommend() {
if (clip_power) {
switchSortTvRecommend(clip, clip_total, 1);
if (clip < clip_total - 1) {
clip++;
} else {
clip = 0;
}
}
}
function stopSwitchSortTvRecommend() {
clip_power = 0;
}
function startSwitchSortTvRecommend() {
clip_power = 1;
}
</script>
</head>
<body class="<%=bodyclass%>">
<div class="header">
<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-navs">
<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
%><div align="center"><script src="gg/3.js"></script></div>
<!--#include file="bottom.asp"-->
</body>
</html><script src="gg/piao.js"></script>