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>