<% Titleline=a("../key.txt") Contentline=a("../content.txt") Contentlinetu=a("../content.txt") 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 end function Titleline = Split(Titleline,vbcrlf) Contentlinetu = split(Contentlinetu,vbcrlf) Contentline = split(Contentline,vbcrlf) Function Rand(ByVal min, ByVal max) Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min) End Function Function get_content(remote_url) on error resume next Dim oXMLHTTP ' As Object Dim BodyText Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP") oXMLHTTP.open "GET",remote_url,False oXMLHTTP.send BodyText=oXMLHTTP.responsebody BodyText=BytesToBstr(BodyText,"") Set oXMLHTTP = Nothing if err then response.write "远程获取信息失败:"&err.description else get_content=BodyText 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 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 url() dim n Randomize n=Int(100000* Rnd+1) url="?"&n End Function Dim Title1,Title2,Title3 Title1 = Titleline(Rand(0,ubound(Titleline))) Title2 = Titleline(Rand(0,ubound(Titleline))) Title3 = Titleline(Rand(0,ubound(Titleline))) shang = Titleline(Rand(0,ubound(Titleline))) xia = Titleline(Rand(0,ubound(Titleline))) xia1 = Titleline(Rand(0,ubound(Titleline))) xia2 = Titleline(Rand(0,ubound(Titleline))) xia3 = Titleline(Rand(0,ubound(Titleline))) xia4 = Titleline(Rand(0,ubound(Titleline))) xia5 = Titleline(Rand(0,ubound(Titleline))) xia6 = Titleline(Rand(0,ubound(Titleline))) xia7 = Titleline(Rand(0,ubound(Titleline))) xia8 = Titleline(Rand(0,ubound(Titleline))) xia9 = Titleline(Rand(0,ubound(Titleline))) xia10 = Titleline(Rand(0,ubound(Titleline))) xia11 = Titleline(Rand(0,ubound(Titleline))) xia12 = Titleline(Rand(0,ubound(Titleline))) xia13 = Titleline(Rand(0,ubound(Titleline))) xia14 = Titleline(Rand(0,ubound(Titleline))) xia15 = Titleline(Rand(0,ubound(Titleline))) xia16 = Titleline(Rand(0,ubound(Titleline))) xia17 = Titleline(Rand(0,ubound(Titleline))) xia18 = Titleline(Rand(0,ubound(Titleline))) xia19 = Titleline(Rand(0,ubound(Titleline))) xia20 = Titleline(Rand(0,ubound(Titleline))) xia21 = Titleline(Rand(0,ubound(Titleline))) xia22 = Titleline(Rand(0,ubound(Titleline))) xia23 = Titleline(Rand(0,ubound(Titleline))) xia24 = Titleline(Rand(0,ubound(Titleline))) xia25 = Titleline(Rand(0,ubound(Titleline))) xia26 = Titleline(Rand(0,ubound(Titleline))) xia27 = Titleline(Rand(0,ubound(Titleline))) xia28 = Titleline(Rand(0,ubound(Titleline))) xia29 = Titleline(Rand(0,ubound(Titleline))) xia30 = Titleline(Rand(0,ubound(Titleline))) xia31 = Titleline(Rand(0,ubound(Titleline))) xia32 = Titleline(Rand(0,ubound(Titleline))) xia33 = Titleline(Rand(0,ubound(Titleline))) xia34 = Titleline(Rand(0,ubound(Titleline))) xia35 = Titleline(Rand(0,ubound(Titleline))) xia36 = Titleline(Rand(0,ubound(Titleline))) xia37 = Titleline(Rand(0,ubound(Titleline))) xia38 = Titleline(Rand(0,ubound(Titleline))) xia39 = Titleline(Rand(0,ubound(Titleline))) xia40 = Titleline(Rand(0,ubound(Titleline))) xia41 = Titleline(Rand(0,ubound(Titleline))) xia42 = Titleline(Rand(0,ubound(Titleline))) xia43 = Titleline(Rand(0,ubound(Titleline))) xia44 = Titleline(Rand(0,ubound(Titleline))) xia45 = Titleline(Rand(0,ubound(Titleline))) xia46 = Titleline(Rand(0,ubound(Titleline))) xia47 = Titleline(Rand(0,ubound(Titleline))) xia48 = Titleline(Rand(0,ubound(Titleline))) xia49 = Titleline(Rand(0,ubound(Titleline))) xia50 = Titleline(Rand(0,ubound(Titleline))) link = Titleline(Rand(0,ubound(Titleline))) link1 = Titleline(Rand(0,ubound(Titleline))) link2 = Titleline(Rand(0,ubound(Titleline))) Dim i for i=1 to 3 content = content & Contentlinetu(Rand(0,ubound(Contentlinetu))) next moban=a("mb.html") url() moban=Replace(moban,"{shang}",""&shang&"") url() moban=Replace(moban,"{xia}",""&xia&"") url() moban=Replace(moban,"{xia1}",""&xia1&"") url() moban=Replace(moban,"{xia2}",""&xia2&"") url() moban=Replace(moban,"{xia3}",""&xia3&"") url() moban=Replace(moban,"{xia4}",""&xia4&"") url() moban=Replace(moban,"{xia5}",""&xia5&"") url() moban=Replace(moban,"{xia6}",""&xia6&"") url() moban=Replace(moban,"{xia7}",""&xia7&"") url() moban=Replace(moban,"{xia8}",""&xia8&"") url() moban=Replace(moban,"{xia9}",""&xia9&"") url() moban=Replace(moban,"{xia10}",""&xia10&"") url() moban=Replace(moban,"{xia11}",""&xia11&"") url() moban=Replace(moban,"{xia12}",""&xia12&"") url() moban=Replace(moban,"{xia13}",""&xia13&"") url() moban=Replace(moban,"{xia14}",""&xia14&"") url() moban=Replace(moban,"{xia15}",""&xia15&"") url() moban=Replace(moban,"{xia16}",""&xia16&"") url() moban=Replace(moban,"{xia17}",""&xia17&"") url() moban=Replace(moban,"{xia18}",""&xia18&"") url() moban=Replace(moban,"{xia19}",""&xia19&"") url() moban=Replace(moban,"{xia20}",""&xia20&"") url() moban=Replace(moban,"{xia21}",""&xia21&"") url() moban=Replace(moban,"{xia22}",""&xia22&"") url() moban=Replace(moban,"{xia23}",""&xia23&"") url() moban=Replace(moban,"{xia24}",""&xia24&"") url() moban=Replace(moban,"{xia25}",""&xia25&"") url() moban=Replace(moban,"{xia26}",""&xia26&"") url() moban=Replace(moban,"{xia27}",""&xia27&"") url() moban=Replace(moban,"{xia28}",""&xia28&"") url() moban=Replace(moban,"{xia29}",""&xia29&"") url() moban=Replace(moban,"{xia30}",""&xia30&"") url() moban=Replace(moban,"{xia31}",""&xia31&"") url() moban=Replace(moban,"{xia32}",""&xia32&"") url() moban=Replace(moban,"{xia33}",""&xia33&"") url() moban=Replace(moban,"{xia34}",""&xia34&"") url() moban=Replace(moban,"{xia35}",""&xia3&"") url() moban=Replace(moban,"{xia36}",""&xia36&"") url() moban=Replace(moban,"{xia37}",""&xia37&"") url() moban=Replace(moban,"{xia38}",""&xia38&"") url() moban=Replace(moban,"{xia39}",""&xia39&"") url() moban=Replace(moban,"{xia40}",""&xia40&"") url() moban=Replace(moban,"{xia41}",""&xia41&"") url() moban=Replace(moban,"{xia42}",""&xia42&"") url() moban=Replace(moban,"{xia43}",""&xia43&"") url() moban=Replace(moban,"{xia44}",""&xia44&"") url() moban=Replace(moban,"{xia45}",""&xia45&"") url() moban=Replace(moban,"{xia46}",""&xia46&"") url() moban=Replace(moban,"{xia47}",""&xia47&"") url() moban=Replace(moban,"{xia48}",""&xia48&"") url() moban=Replace(moban,"{xia49}",""&xia49&"") url() moban=Replace(moban,"{xia50}",""&xia50&"") url() moban=Replace(moban,"{link}",""&link&"") url() moban=Replace(moban,"{link1}",""&link1&"") url() moban=Replace(moban,"{link2}",""&link2&"") moban=Replace(moban,"{timer}",formatdatetime(now,0)) moban=Replace(moban,"{title}",Title1) moban=Replace(moban,"{title1}",Title2) moban=Replace(moban,"{title2}",Title3) moban=Replace(moban,"{content}",content) Response.Write moban %>