creta_film.asp

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

<!-- #include file="Config.asp" -->
<!-- #include file="function.asp" -->
<%
Dim Page,Url,MovieHtml,NPage '定义变量，加快系统运行速度
NPage=1

do while not NPage>Movie
Url="http://www.7kkt.com/soft/"&NPage&".htm"
MovieHtml = getHTTPPage(Url)
MovieHtml = Replace(MovieHtml,"http://s73.cnzz.com/stat.php?id=276018&web_id=276018&show=pic",""&Count&"")
MovieHtml = Replace(MovieHtml,"../","")
MovieHtml = Replace(MovieHtml,"<script src=http://7kkt.com/goodad.js></script>","")
MovieHtml = Replace(MovieHtml,"[去看卡通www.7kkt.com]",""&WebNmae&"")
MovieHtml = Replace(MovieHtml,"去看卡通",""&WebName&"")
MovieHtml = Replace(MovieHtml,"ad/468x60","../gg/468x60.asp")
MovieHtml = Replace(MovieHtml,"http://www.7kkt.com/","")
MovieHtml = Replace(MovieHtml,"http://x828.com/ssoftimg/","/..pic1.asp?id=")
MovieHtml = Replace(MovieHtml,"http://www.x828.com/softimg/","../pic2.asp?id=")
MovieHtml = Replace(MovieHtml,"softimg/","../pic.asp?id=")
MovieHtml = Replace(MovieHtml,"images/","../images/")
MovieHtml = Replace(MovieHtml,"http://www.7kkt.com",""&WebUrl&"")
MovieHtml = Replace(MovieHtml,"ad/yahoo","../gg/760.htm")
MovieHtml = Replace(MovieHtml,"ad/ad_300.htm","../gg/300.htm")
MovieHtml = Replace(MovieHtml,"count.htm","")
MovieHtml = Replace(MovieHtml,"ad/qihoo_","../gg/")
MovieHtml = Replace(MovieHtml,"ad/mop_","../gg/")
MovieHtml = Replace(MovieHtml,"top.htm","../top.htm")
MovieHtml = Replace(MovieHtml,"http://www.yomao.com",""&WebUrl&"")
MovieHtml = Replace(MovieHtml,"免费电影","极界动漫")
MovieHtml = Replace(MovieHtml,"play/",""&WebUrl&"/play/")
MovieHtml = Replace(MovieHtml,"http://www.qq115.com/",""&WebUrl&"")
MovieHtml = Replace(MovieHtml,"v/yomao.gif","../images/logo.gif")
MovieHtml = Replace(MovieHtml,"download/BoBo_ActiveX_V3(站长提供给用户下载安装控件).exe","../gg/jjanplay.exe")
MovieHtml = Replace(MovieHtml,"[e-mail]","")
MovieHtml = Replace(MovieHtml,"7kkt.com","")
MovieHtml = Replace(MovieHtml,"皖ICP备06012501号",""&Miibeian&"")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
HtmlFileName=Server.MapPath("../html/"&Npage&".html")	
Set fout = fso.CreateTextFile(HtmlFileName)
fout.WriteLine MovieHtml
fout.close:set fout = nothing
if Npage="" then NPage=1
NPage=NPage+1
loop
Response.Write ("所有影片工作已经完成")
%>