<% On Error Resume Next Server.ScriptTimeOut=999999999 dim id id=Request.QueryString("id") content = ReadTextFile(Server.MapPath(id),"gb2312")'获取本地文件 if len(content)=0 then if instr(id,"/video/yingchao/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://yingchao.qqzhibo.net/"&replace(id,"/video/yingchao/","video/")&"" elseif instr(id,"/video/f1/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://f1.qqzhibo.net/"&replace(id,"/video/f1/","video/")&"" elseif instr(id,"/video/sinuoke/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://sinuoke.qqzhibo.net/"&replace(id,"/video/sinuoke/","video/")&"" elseif instr(id,"/video/wangqiu/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://wangqiu.qqzhibo.net/"&replace(id,"/video/wangqiu/","video/")&"" elseif instr(id,"/down/yingchao/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://yingchao.qqzhibo.net/"&replace(id,"/down/yingchao/","down/")&"" elseif instr(id,"/down/f1/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://f1.qqzhibo.net/"&replace(id,"/down/f1/","down/")&"" elseif instr(id,"/down/sinuoke/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://sinuoke.qqzhibo.net/"&replace(id,"/down/sinuoke/","down/")&"" elseif instr(id,"/down/wangqiu/")>0 then uu="http://free.gdtiyu.com/qqurl.asp?id=http://wangqiu.qqzhibo.net/"&replace(id,"/down/wangqiu/","down/")&"" else uu="http://free.gdtiyu.com/qqzhibo.asp?id="&id&"" end if file = www_6ww6_net(uu) start=Instr(file,"")+7 over=Instr(file,"") name=mid(file,start,over-start) start=Instr(file,"") over=Instr(file,"<link") head=mid(file,start,over-start) start=Instr(file,"<h1 class=""pagenav"">") over=Instr(file,"<div id=""zc_foot"">") body=mid(file,start,over-start) body=replace(body,"http://www.qqzhibo.net/?c=play","/api/vplay.html?c=play") body=replace(body,"/?c=play","/api/vplay.html?c=play") body=ReplaceTest("<div class=""tip"" id=""ad_tvtip"">(.|\n)*?</div>","",body) body=ReplaceTest("<div class=""list"" id=""r_down""><ul><li>(.|\n)*?</li><script>","<div class=""list"" id=""r_down""><ul><script>",body) body=replace(body,"<div class=""play"">","<div class=""play""><p style=""margin-top:0px; margin-bottom:2px""><script>dw(playerad);</script></p>") body=replace(body,"http://widget.weibo.com/livestream/listlive.php?language=zh_cn&width=342&height=425&uid=1768635365&skin=2&refer=1&appkey=158001350&pic=0&titlebar=0&border=1&publish=1&atalk=1&recomm=0&at=0&atopic=QQ%E7%9B%B4%E6%92%AD%E7%BD%91%E6%AF%94%E8%B5%9B%E4%BA%92%E5%8A%A8&ptopic=QQ%E7%9B%B4%E6%92%AD%E7%BD%91%E6%AF%94%E8%B5%9B%E4%BA%92%E5%8A%A8&colordiy=0&dpc=1","http://show.v.t.qq.com/index.php?c=show&a=index&n=www5xzbcom&w=344&h=400&fl=1&l=4&o=29&co=0") body=replace(body,"http://weibo.com/qqzhibo","http://t.qq.com/www5xzbcom") body=replace(body,"http://www.qqzhibo.net/","/") body=replace(body,"http://yingchao.qqzhibo.net/","/") body=replace(body,"http://wangqiu.qqzhibo.net/","/") body=replace(body,"http://f1.qqzhibo.net/","/") body=replace(body,"http://sinuoke.qqzhibo.net/","/") body=replace(body,"<script>dw(ad_show_google(6403887253,300,250));</script>","<script>dw(show_baidu_ad('u16409'));</script>") '新的过滤方法 body=ReplaceTest("<a href=""/""\s*[^>]*>(.*?)</[a|A]></strong>","$1</strong>",body) body=ReplaceTest("<a href=""/live/\s*[^>]*>(.*?)</[a|A]>","$1",body) body=ReplaceTest("<a href=""/tag/\s*[^>]*>(.*?)</[a|A]>","$1",body) body=ReplaceTest("<span>标签(.|\n)*?</span>","",body) body=ReplaceTest("<div id=""zc_topic"">(.|\n)*?</div>","",body) '过滤直播信号 body=ReplaceTest("<div class=""con"">(.|\n)*?</div>","",body) body=replace(body,"QQ直播网","足球吧") body=replace(body,"视频集锦"," 全场视频 录像 集锦") body=replace(body,"全场录像回放"," 全场录像 完整 回放") body=replace(body,"全场录像"," 全场比赛录像下载") body=replace(body,"视频录像"," 全场录像 完整 回放") body=replace(body,"下载</a></li>"," 全场比赛录像下载</a></li>") head=replace(head,"QQ直播网","足球吧") head=replace(head,"视频集锦"," 全场视频 录像 集锦") head=replace(head,"全场录像回放"," 全场录像 完整 回放") head=replace(head,"全场录像"," 全场比赛录像下载") head=replace(head,"视频录像"," 全场录像 完整 回放") head=replace(head,"下载 -"," 全场比赛录像下载 -") name=replace(name,"QQ直播网","足球吧") name=replace(name,"视频集锦"," 全场视频 录像 集锦") name=replace(name,"全场录像回放"," 全场录像 完整 回放") name=replace(name,"全场录像"," 全场比赛录像下载") name=replace(name,"视频录像"," 全场录像 完整 回放") name=replace(name,"下载 -"," 全场比赛录像下载 -") %> <% D=timer() mbfile="../templates/shipin.html" pencat=LoadFile(mbfile) if instr(id,".html")>0 then if instr(id,"/video/yingchao/")>0 then Filename=replace(id,"/video/yingchao/","/video/") elseif instr(id,"/video/f1/")>0 then Filename=replace(id,"/video/f1/","/video/") elseif instr(id,"/video/wangqiu/")>0 then Filename=replace(id,"/video/wangqiu/","/video/") elseif instr(id,"/video/sinuoke/")>0 then Filename=replace(id,"/video/sinuoke/","/video/") elseif instr(id,"/down/yingchao/")>0 then Filename=replace(id,"/down/yingchao/","/down/") elseif instr(id,"/down/f1/")>0 then Filename=replace(id,"/down/f1/","/down/") elseif instr(id,"/down/wangqiu/")>0 then Filename=replace(id,"/down/wangqiu/","/down/") elseif instr(id,"/down/sinuoke/")>0 then Filename=replace(id,"/down/sinuoke/","/down/") else Filename=""&id&"" end if else Filename=""&id&"index.html" end if pencat=replace(pencat,"{name}",name) pencat=replace(pencat,"{head}",head) pencat=replace(pencat,"{body}",body) response.write pencat else response.Write content end if %>