index.asp

495K 源码语言：简体中文 授权方式：免费版 源码类别：ASP源码 / OA办公 运行环境：ASP环境/ 源码更新：2007-4-5 13:30:10 页面刷新：200

<!--#include file="function.asp" -->
<!--#include file="head.asp" -->
<%
Dim Url,Html
Url="http://www.7kkt.com/"
Html= getHTTPPage(Url)

str1=instr(Html,"index_bottom.gif")-120
str2=instr(Html,"reserved")+15
cur1=mid(Html,str1,str2-str1)
Html=Replace(Html,cur1,"")

str3=instr(Html,"top.htm")-11
str4=instr(Html,"top.htm")+32
cur2=mid(Html,str3,str4-str3)
Html=Replace(Html,cur2,"")

str5=instr(Html,"lj.htm")-132
str6=instr(Html,"皖ICP备06012501号")+56
cur3=mid(Html,str5,str6-str5)
Html=Replace(Html,cur3,"")

Html=Replace(Html,"http://s73.cnzz.com/stat.php?id=276018&web_id=276018&show=pic","")
Html=Replace(Html,"../","")
Html=Replace(Html,"<script src=http://7kkt.com/goodad.js></script>","")
Html=Replace(Html,"[去看卡通www.7kkt.com]",Mysay&"")
Html=Replace(Html,"去看卡通",Plsay&"")
Html=Replace(Html,"top.htm","")
Html=Replace(Html,"soft/","html/")
Html=Replace(Html,"download/BoBo_ActiveX_V3(站长提供给用户下载安装控件).exe","../gg/jjanplay.exe")
Html=Replace(Html,"http://www.7kkt.com/","")
Html=Replace(Html,"http://x828.com/ssoftimg/","pic1.asp?id=")
Html=Replace(Html,"http://www.x828.com/softimg/","pic2.asp?id=")
Html=Replace(Html,"softimg/","pic.asp?id=")
Html=Replace(Html,"ad/ads8","gg/285")
Html=Replace(Html,"http://www.x828.com/v/","images/")
Html=Replace(Html,"http://www.vodone.com/ownerjs/5416_9003_p4_.js","")
Html=Replace(Html,".htm",".html")
response.write Html
%>
<!--#include file="foot.asp" -->