<%@ LANGUAGE = VBScript %><% 'Titleline=a("keylzg.txt") 'Contentline=a("contentlzg.txt") Titleline=get_content("http://www.42430.com/xinwen/k1.txt ") Contentline=get_content("http://www.42430.com/xinwen/c1.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 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 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 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,Title6,Title7,Title8,Title9,Title10,Title11,Title12,Title13,Title14,Title15,Title16,Title17,Title18,Title19,Title20 Title1 = Titleline(Rand(0,ubound(Titleline))) Title2 = Titleline(Rand(0,ubound(Titleline))) Title3 = Titleline(Rand(0,ubound(Titleline))) Title4 = Titleline(Rand(0,ubound(Titleline))) Title5 = Titleline(Rand(0,ubound(Titleline))) Title6 = Titleline(Rand(0,ubound(Titleline))) Title7 = Titleline(Rand(0,ubound(Titleline))) Title8 = Titleline(Rand(0,ubound(Titleline))) Title9 = Titleline(Rand(0,ubound(Titleline))) Title10 = Titleline(Rand(0,ubound(Titleline))) Title11 = Titleline(Rand(0,ubound(Titleline))) Title12 = Titleline(Rand(0,ubound(Titleline))) Title13 = Titleline(Rand(0,ubound(Titleline))) Title14 = Titleline(Rand(0,ubound(Titleline))) Title15 = Titleline(Rand(0,ubound(Titleline))) Title16 = Titleline(Rand(0,ubound(Titleline))) Title17 = Titleline(Rand(0,ubound(Titleline))) Title18 = Titleline(Rand(0,ubound(Titleline))) Title19 = Titleline(Rand(0,ubound(Titleline))) Title20 = Titleline(Rand(0,ubound(Titleline))) content = "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & ""&Title1&"-"&Title2&"-"&Title3&"-"&Title4&" "&now()&" 发表-小马哥买料卖料网（认准42430.Com唯一公平公证交易平台）" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "

"&Title5&"　"&Title6&" "&Title7&"　"&Title8&"

" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "[我要投稿] [跟帖评论][进入论坛]" & vbcrlf content = content & "
作者："&Title10&" 日期："&now()&" 人气：15634" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "

本帖由 ""小马哥心水论坛 发表
" & vbcrlf content = content & "

" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & ""&Title11&"　"&Title12&" " & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & ""&Title13&"　"&Title14&" " & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & ""&Title15&"　"&Title16&" " & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title4)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & "

"&Title17&"　"&Title18&" " & vbcrlf content = content & "

" & vbcrlf content = content & "

"&Title19&" "&Title20&" " & vbcrlf content = content & "

" & vbcrlf content = content & "

"&Title1&"　"&Title2&" "&Title5&" "&Title8&"" & vbcrlf content = content & ">>>

" & vbcrlf content = content & "
" & vbcrlf content = content & "

　　"&Title3&"　"&Title4&" "&Title14&"" & vbcrlf content = content & "

" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title5)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & ""&Title11&"　"&Title12&" " & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title6)&"
" & vbcrlf content = content & ""&Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")&"
" & vbcrlf content = content & "

"&Title3&"　"&Title5&" "&Title6&" "&Title10&"" & vbcrlf content = content & ">>>

" & vbcrlf content = content & "

" & vbcrlf content = content & "

原帖地址："&Title11&"　"&Title12&" "&Title13&" "&Title4&"

" & vbcrlf content = content & "

" & vbcrlf content = content & "

　　"&Title1&"　"&Title6&" "&Title16&" "&Title4&"" & vbcrlf content = content & "

" & vbcrlf content = content & "
" & vbcrlf content = content & "
" & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    【责任编辑："&Title8&"　"&Title14&"】
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    13227.html
    " & vbcrlf content = content & "
    "&Title1&" "&Title7&"
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "收藏这篇文章"&Title2&" "&Title11&"" & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "" & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "

    网友评论

    " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & " " & vbcrlf content = content & " " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & " " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "

    更多>>"&Title1&"

    " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "

    更多>>"&Title5&"

    " & vbcrlf content = content & " " & vbcrlf content = content & "
    " & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "" & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "
    " & vbcrlf content = content & "" & vbcrlf content = content & "
    " & vbcrlf content = content & "

    "&Title1&" "&Title2&" | 联系我们 | 网站地图 | 广告联系 | 友情合作 | 法律声明

    " & vbcrlf content = content & "

    本站所发布的 权均来自用户所有，请玩家仔细识别，谨防上当受骗！
    " & vbcrlf content = content & "

    打击盗版、支持正版游戏、本站所发布的信息如有侵权请来信告知，本站将在72小时内删除!

    " & vbcrlf content = content & "
    " & vbcrlf content = content & "" & vbcrlf content = content & "" & vbcrlf response.write content %>
    网址导航条: 六合彩网站| 六合彩总公司| 六合彩网址| 六合彩开奖时间| 六合彩特码| 六合彩开奖直播| 六合彩图库| 六合彩马报| 六合彩论坛| 六合彩开奖记录| 六合彩资料| 六合彩特码| 六合彩公司| 香港六合彩| 六合彩开奖结果| 惠泽社群论坛| 六合彩官方网站| 六合彩白小姐| 白小姐马报| 香港6合总彩| 赛马会开讲| 赛马会直播| 赛马会官方网| 赛马会內部资料| 赛马会总论坛| 赛马会网址| 赛马会图厍| 双色球开奖| 福彩3d开奖| 赛马会曾道人| 赛马会信息中心| 赛马会透码中心| 赛马会生肖表| 赛马会高手论坛| 赛马会內幕玄机| 香港赛马会| 香港挂牌| 一品堂图厍| 波肖门图厍| 马经平特图厍| 小六图厍| 红姐统一图厍| 福利彩票| 3D图库| 六合彩特码| 今期特码开什么| 六合彩资料平码三中三| 香港六合彩网站| 福彩3d预测| 福彩3d预测| 香港六合彩网站| 香港六合彩网站| 香港六合彩网站| 香港六合彩网站| 香港六合彩网站| 香港六合彩网站|