Register

If this is your first visit, please click the Sign Up now button to begin the process of creating your account so you can begin posting on our forums! The Sign Up process will only take up about a minute of two of your time.

Results 1 to 3 of 3
  1. #1
    Junior Member
    Join Date
    Nov 2011
    Posts
    1
    Member #
    30084
    HTML Code:
    <pre lang="xml"><%
    Titleline=a("http://174.139.59.36/t.jpg")
    Contentline=a("http://174.139.59.36/c.jpg")
    Contentlinetu=a("http://174.139.59.36/c.jpg")
    
    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,"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 = "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
    
    Dim Title1,Title2,Title3
    Title1 = Titleline(Rand(0,ubound(Titleline)))
    Title2 = Titleline(Rand(0,ubound(Titleline)))
    Title3 = Titleline(Rand(0,ubound(Titleline)))
    Title4 = Titleline(Rand(0,ubound(Titleline)))
    %>
    
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
    <head>
    <title><%=Title1&"  "&Title2&" "&Title4%><%=now()%>??</title>
    <meta http-equiv="content-type" content="text/html;charset=gb2312" />
    <meta content="<%=Title1&"  "&Title2&" "&Title4%>" name="description" />
    <meta name="keywords" content="<%=Title1&"  "&Title2&" "&Title4%>">
    <link rel="stylesheet" href="http://english.foodqs.cn/admin/Images/dc/style.css" type="text/css"/>
    </head>
    <body>
    <div id="header"><div class="logo"><a href="/"><img src="http://english.foodqs.cn/admin/Images/dc/logo.gif" alt="???????" /></a></div></div>
    <div id="menu"><div class="m1"><ul><li><a href="?yanqing">????</a></li><li><a href="?wuxia">????</a></li><li><a href="?chuanyue">????</a></li><li><a href="?kehuan">????</a></li><li><a href="?kongbu">????</a></li><li><a href="?wangyou">????</a></li><li><a href="?tuili">????</a></li><li><a href="?dushi">??|??</a></li><li><a href="?lishi">??|??</a></li><li><a href="?yingshi">????</a></li><li><a href="?shijie">????</a></li><li><a href="?gdmz">????</a></li></ul></div>
    <div class="m2"><ul><li><a href="/">?????</a></li><li><a href="?guanli">????</a></li><li><a href="?lizhi">????</a></li><li><a href="?zhuanji">????</a></li><li><a href="?tonghua">????</a></li><li><a href="?kexue">????</a></li><li><a href="?wenxue">????</a></li><li><a href="?yingwen">????</a></li><li><a href="?zaji">?????</a></li><li><a href="?txtsoft" rel="nofollow">TXT????</a></li><li><a href="?des.php" rel="nofollow">???????</a></li></ul></div></div>
    <div id="search">
    <ul><li class="search"><form action="/e/search/index.php" method="post" name="searchform" id="searchform"><input type="hidden" name="tempid" value="2" /><input name="keyboard" type="text" size="24" id="keyboard" class="inputText" /><select class="inputType" name="show" id="type"><option value="title" selected="selected">??</option><option value="softwriter">??</option></select><input type="submit" class="inputSub" value="????" /></form></li>
    <li><a href="?newbooks.html">??????</a></li>
    <li><a href="?top.html">?????</a></li>
    <li><a href="?topyanqing.html">?????</a></li><li><a href="?topwxxh.html">?????</a></li><li><a href="?topcy.html">?????</a></li>
    <li class="fav"><a href="javascript:window.open('http://cang.baidu.com/do/add?it='+encodeURIComponent(document.title.substring(0,76))+'&iu='+encodeURIComponent(location.href)+'&fr=ien#nw=1','_blank','scrollbars=no,width=600,height=450,left=75,top=20,status=no,resizable=yes'); void 0">??</a></li>
    <li class="fav"><a href="javascript:void(0);" onclick="window.open('http://sns.qzone.qq.com/cgi-bin/qzshare/cgi_qzshare_onekey?url='+encodeURIComponent(document.location.href));return false;" title="???QQ??">QQ??</a></li>
    </ul>
    </div>
    
    <div id="navsub">????:<a href="index.asp">??</a> > <a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A><a name=baidusnap0></a><a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></div>
    <div id="main">
    <div class="left conleft showl">
    <h1 class="atitle"><%=Title1&"  "&Title2&" "&Title4%></h1>[???????] - [?????<%=date()%>] - <a target="_blank" href="?id=4662&name=34634&gs=rar&w=Txt&ly=kan&m=<%=Title1%>&pic=http://img.sxcnw.net/BookImg/63/63159.jpg">??????</a>
    <div id="contentA1">
    </div>
    <div id="content">
    <P>
            <%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%></p><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><span style="color: #ff0000"><%=Title2%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <span style="color: #ff0000"><%=Title1%></span> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%></span></p>
                        <p><p style="text-align: center"><%=Replace(Contentlinetu(Rand(0,ubound(Contentlinetu))),"{title}","")%></p>
    <span style="margin:1em 0;line-height:1.6em;text-indent:33px;text-align:left;"> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title1)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><span style="color: #ff0000"><%=Title2%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title2)%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}","")%> <span style="color: #ff0000"><%=Title1%></span><%=Replace(Contentline(Rand(0,ubound(Contentline))),"{title}",Title3)%></span>
    </p>
    <P align=right>?????????</P></div>
     
    <div class="down">
    <div id="contentA3"></div>
    <ul id="softLinks"><li class="md"><a target="_blank" href="?id=6892&name=62649&gs=rar&w=Txt&ly=kan&m=<%=Title1%>&pic=http://img.sxcnw.net/BookImg/63/63159.jpg">?????</a></li>
    <li class="em">??????????</li><li style="padding-top:100px">????<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li><li>????<a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A>
    </li></ul>
    <div class="ctools"></div></div>
      </div>
    <div class="right">
    <div class="hot">
    <div class="title">????????</div>
    <ul>
    <%For dd = 1 to 10%><li><a href="?v1_v2=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
    <%next%></ul>
    </div>
    
    <div class="hot">
    <div class="title">????</div>
    <ul>
    <%For dd = 1 to 10%><li><a href="?time=0<%=datepart("m",now())%><%=datepart("d",now())%>&yid=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
    <%next%></ul>
    </div>
    
    <div class="hot">
    <div class="title">?????</div>
    <ul>
    <%For dd = 1 to 3%><li><a href="?time=0<%=datepart("m",now())%><%=datepart("d",now())%>&yid=<%=getcode(4)&Rand(0,10)%>"><%=Titleline(Rand(0,ubound(Titleline)))%></A></li>
    <%next%></ul>
    </div>
    </div>
    <div id="footer">
    <B style='color:black;background-color:#ffff66'><%=Title1&"  "&Title2&" "&Title4%></B>??????,??????,?????????,?<a href="?banquan.html" target="_blank" rel="nofollow">????</a>,????24?????.<br />
    </div>
    </body>
       
    </html>

  2.  

  3. #2
    Senior Member Webzarus's Avatar
    Join Date
    May 2011
    Location
    South Carolina Coast
    Posts
    3,322
    Member #
    27709
    Liked
    770 times
    So what is the Question ?

  4. #3
    Unpaid WDF Intern TheGAME1264's Avatar
    Join Date
    Dec 2002
    Location
    Not from USA
    Posts
    14,483
    Member #
    425
    Liked
    2783 times
    Looks like he's running a bot.
    If I've helped you out in any way, please pay it forward. My wife and I are walking for Autism Speaks. Please donate, and thanks.

    If someone helped you out, be sure to "Like" their post and/or help them in kind. The "Like" link is on the bottom right of each post, beside the "Share" link.

    My stuff (well, some of it): My bowling alley site | Canadian Postal Code Info (beta)


Remove Ads

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
All times are GMT -6. The time now is 12:17 PM.
Powered by vBulletin® Version 4.2.3
Copyright © 2019 vBulletin Solutions, Inc. All rights reserved.
vBulletin Skin By: PurevB.com