creta_class.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 '定义变量，加快系统运行速度
ClassID=1

Sub CretaClass(ClassID)
NPage=1
do while not NPage>ClassPageMax
Url="http://www.7kkt.com/sort/"&ClassID&"_"&NPage&".htm"
MovieHtml = getHTTPPage(Url)
If Instr(MovieHtml,"无法找到该页") then exit do
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,"soft/","../html/")
MovieHtml = Replace(MovieHtml,"sort/","../list/")
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,"v/","../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,"v/yomao.gif","../images/logo.gif")
MovieHtml = Replace(MovieHtml,"[e-mail]","")
MovieHtml = Replace(MovieHtml,"7kkt.com","")
MovieHtml = Replace(MovieHtml,".htm",".html")
MovieHtml = Replace(MovieHtml,"皖ICP备06012501号",""&Miibeian&"")
MovieHtml = Replace(MovieHtml,"友情链接","")
MovieHtml = Replace(MovieHtml,"去减肥","")
MovieHtml = Replace(MovieHtml,"电脑基础知识","")
MovieHtml = Replace(MovieHtml,"QQ技巧大全","")
MovieHtml = Replace(MovieHtml,"游戏攻略","")
MovieHtml = Replace(MovieHtml,"明星娱乐新闻","")
MovieHtml = Replace(MovieHtml,"：","")
MovieHtml = Replace(MovieHtml,"|","")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
HtmlFileName=Server.MapPath("../list/"&ClassID&"_"&NPage&".html")	
Set fout = fso.CreateTextFile(HtmlFileName)
fout.WriteLine MovieHtml
fout.close:set fout = nothing
if Npage="" then NPage=1
NPage=NPage+1
loop
End Sub

do while not ClassID>MovieClass
 CretaClass(ClassID)
 ClassID=ClassID+1
loop

Response.Write ("分类列表工作已经完成")
%>