%
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
%>