<% 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))) 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,"{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 %>