<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 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>
|
in answering this question!
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Rant 
Admin