anybody can find out that asp program error?

**Hack004** · Nov 30th, 2011, 11:31 AM

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>

**Web Design Forums** · Nov 30th, 2011 11:31 AM

**Webzarus** · Nov 30th, 2011, 12:42 PM

So what is the Question ?

**TheGAME1264** · Nov 30th, 2011, 04:17 PM

Looks like he's running a bot.

Thread: anybody can find out that asp program error?

LinkBack

Thread Tools

Search Thread

Display

Remove Ads

Posting Permissions

Thread: anybody can find out that asp program error?

LinkBack

Thread Tools

Search Thread

Display

Remove Ads

Posting Permissions

Sections

General Info