book.asp

是个不错的文件代码,希望大家好好用,

<!--#include file="char.asp"-->
<!--#include file="senfe_clssteal.asp"-->
<%
dim webname,weburl,webmail,description,menuname,keywords,senfe
dim id,bl_id,bu_id,ba_id,pageno,steal_url,senfe_book
webname     = "玫瑰情缘"		'网站名称
weburl      = "http://www.meigui8.cn/"	'网站地址
webmail     = "[e-mail]"		'联系邮箱
menuname    = "百味书屋"		'栏目名称
description = "玫瑰情缘--大型免费综合资源网站，与网友共同学习、进步，携手共建网络情缘！"		'网站简介
keywords    = "玄幻魔法,武侠仙侠,浪漫言情,现代都市,历史,军事,游戏,竞技,科幻,灵异,美文,同人"	'网站关键字
steal_url   = "http://www.cmfu.com/"								'目标站地址(不可更改)
senfe       = request.querystring("senfe")
id          = request.querystring("id")
pageid      = request.querystring("pageid")
bl_id       = request.querystring("bl_id")
bu_id       = request.querystring("bu_id")
ba_id       = request.querystring("ba_id")
bl_class    = request.querystring("bl_class")
bl_first    = request.querystring("bl_first")
if pageno="" then pageno=1

select case lcase(senfe)
	case "":senfe_head:senfe_main:senfe_foot
	case "listbook":senfe_head:senfe_listbook:senfe_foot
	case "showbook":senfe_head:senfe_showbook:senfe_foot
	case "searchbook":senfe_head:senfe_searchbook:senfe_foot
	case "upsearch":senfe_head:senfe_upsearch:senfe_foot
	case "topten":senfe_head:senfe_topten:senfe_foot
	case "showauthor":senfe_head:senfe_showauthor:senfe_foot
	case "readbook":senfe_head:senfe_readbook:senfe_foot
	case "bookall":senfe_head:senfe_bookall:senfe_foot
	case "readchapterall":senfe_head:senfe_readchapterall:senfe_foot
	case "readchapter":senfe_head:senfe_readchapter:senfe_foot
	case "listbookqb":senfe_head:senfe_listbookqb:senfe_foot
	case "listbookqbpy":senfe_head:senfe_listbookqbpy:senfe_foot
	case "mybook_votebook":response.write "该功能还在建设中,请稍后使用!"
	case "readchapterall_txt":senfe_readchapterall_txt
	case "help":senfe_head:senfe_help:senfe_foot
	case else:response.redirect "book.asp"
end select

sub senfe_main()
set senfe_book=new senfe_steal
	senfe_book.url=steal_url&"listupdate.asp?pageid="&pageid&"&status=down"
	senfe_book.code "书库共有",0,0,0,"部作品",0,0,0
	allbook=senfe_book.body
	senfe_book.code "体系说明</a>",0,0,0,"</td>",0,0,0
	senfe_book.change "listupdate.asp","book.asp"
	senfe_book.change "?status=down",""
	senfe_book.change "&status=down",""
	main_page=senfe_book.body

	senfe_book.code "<script lauguage=javascript>",2,1,0,"</script>",0,1,0
	main_body=senfe_book.body
set senfe_book=nothing
%>
<table width=758 border=0 align=center cellpadding=0 cellspacing=0>
 <tr valign=top>
  <td width=140><%senfe_left()%></td>
  <td align=right style="padding-top:10;padding-left:10">
   <table border=0 cellpadding=0 cellspacing=0 width=98% valign=top>
    <tr><td valign=bottom align=left colspan=6 class=zt width=100% style="border-bottom: #666633 1px solid;">&nbsp;&nbsp;□ <span class=zt style="color:red">书库共有<%=allbook%>部作品 <span class=xt style='color:black'>- 显示最新更新的100部作品 - 按更新时间排序</span></td></tr>
    <tr bgcolor=#eeeeee height=24>
     <td class=xt align=center width=6% valign=middle>类别</td>
     <td class=xt align=center width=21% valign=middle>书名</td>
     <td class=xt align=center width=45% valign=middle>最新章节</td>
     <td class=xt align=center width=13% valign=middle>作者</td>
     <td class=xt align=center width=14% valign=middle>更新时间</td>
    </tr>
<script lauguage=javascript>
function putlist(rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8)
{
		document.write("<tr bgcolor=#ffffff height=24>");
		//document.write("<tr bgcolor=#eeeeee height=24>");

	document.write("<td class=xt align=left valign=middle>" + rs7 + "</td>");
	document.write("<td class=xt align=left valign=middle>&nbsp;<a href='?senfe=showbook&bl_id=" + rs0 + "' target=_blank><font color=#004d00>" + rs2 + "</font></a></td>");
	document.write("<td class=xt align=left valign=middle><a href='?senfe=readchapter&bu_id=" + rs8 + "&bl_id=" + rs0 + "' target=_blank><font color=#004d00>" + rs4  + "</font></a></td>");
	document.write("<td class=xt align=center valign=middle><a href='?senfe=showauthor&ba_id=" + rs6 + "'><font color=#004d00>" + rs1 + "</font></a></td>");
	document.write("<td class=xt align=right valign=middle>" + rs3 + "</td>");
}
</script>
<%=main_body%>
    <tr><td colspan=6 align=right class=xt style='padding-top:5;padding-bottom:10;'><br><a href=?senfe=help target=_blank>书库具体分类</a><%=main_page%></td></tr>
   </table>
  </td>
 </tr>
</table>
<%
end sub

sub senfe_left()
%>
   <table border=0 cellpadding=0 cellspacing=0 width=140 valign=top align=center style="border-top:black 1px solid" bgcolor="#efefef">
    <tr>
     <td width=100% background="images/book/bl.gif" class=xt valign=middle height=23>&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:white">连载作品推荐</span></td>
    </tr>
    <tr>
     <td width=100% class=xt style="padding-top:10;padding-bottom:10;padding-left:10;line-height:150%" align=left>
      <script lauguage=javascript>
<%
set senfe_book=new senfe_steal
	senfe_book.url=steal_url&"script/indexlistbook.js"
	senfe_book.change "showbook.asp?","?senfe=showbook&"
	response.write senfe_book.body
set senfe_book=nothing
%>
      </script>
     </td>
    </tr>
   </table>
   <table border=0 cellpadding=0 cellspacing=0 width=140 valign=top align=center style="border-top:black 1px solid" bgcolor="#efefef">
    <tr>
     <td width=100% background="images/book/bl.gif" class=xt valign=middle height=23>&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:white">原创书库分类阅读</span></td>
    </tr>
    <tr>
     <td width=100% class=xt style="padding-top:15;padding-bottom:15;line-height:220%" align=center>
      <a href="?senfe=listbook&bl_class=1">玄幻魔法</a>　<a href="?senfe=listbook&bl_class=2">武侠仙侠</a><br>
      <a href="?senfe=listbook&bl_class=3">浪漫言情</a>　<a href="?senfe=listbook&bl_class=4">现代都市</a><br>
      <a href="?senfe=listbook&bl_class=5">历史</a><a href="?senfe=listbook&bl_class=6">军事</a>　<a href="?senfe=listbook&bl_class=7">游戏</a><a href="?senfe=listbook&bl_class=8">竞技</a><br>
      <a href="?senfe=listbook&bl_class=9">科幻</a><a href="?senfe=listbook&bl_class=10">灵异</a>　<a href="?senfe=listbook&bl_class=11">美文</a><a href="?senfe=listbook&bl_class=12">同人</a><br>
      <a href="?senfe=listbook&bl_class=13">剧本</a><a href="?senfe=listbook&bl_class=14">图文</a>　<a href="?senfe=listbookqb">完成作品</a>
     </td>
    </tr>
   </table>
   <table border=0 cellpadding=0 cellspacing=0 width=140 valign=top align=center style="border-top:black 1px solid" bgcolor="#efefef">
    <tr>
     <td width=100% background="images/book/bl.gif" class=xt valign=middle height=23>&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:white">网络休闲榜中榜</span></td>
    </tr>
    <tr>
     <td width=100% class=xt style="padding-top:15;padding-bottom:15;line-height:220%" align=center>
      <a href="?senfe=topten&id=1" target=_blank>总点击榜</a>　<a href="?senfe=topten&id=4" target=_blank>总推荐榜</a><br>
      <a href="?senfe=topten&id=2" target=_blank>月点击榜</a>　<a href="?senfe=topten&id=5" target=_blank>月推荐榜</a><br>
      <a href="?senfe=topten&id=3" target=_blank>周点击榜</a>　<a href="?senfe=topten&id=6" target=_blank>周推荐榜</a><br>
      <a href="?senfe=topten&id=7" target=_blank>总收藏榜</a>　<a href="?senfe=topten&id=8" target=_blank>总字数榜</a><br>
      <a href="?senfe=topten&id=10" target=_blank>入站时间</a>　<a href="?senfe=listbooktjsb"><font color=red>天地人榜</font></a>
     </td>
    </tr>
   </table>
   <table border=0 cellpadding=0 cellspacing=0 width=140 valign=top align=center style="border-top:black 1px solid" bgcolor="#efefef">
    <tr>
     <td width=100% background="images/book/bl.gif" class=xt valign=middle height=23>&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:white">快速搜书</span></td>
    </tr>
    <form action="?senfe=searchbook" target=_blank method="post">
    <tr>
     <td width=100% class=xt style="padding-top:15;padding-bottom:15;line-height:220%" align=center>
搜索选项&nbsp;<select name="s_class"><option value="bl_name" selected>按书名</option><option value="ba_author">按作者</option><option value="bl_protagonist">按主角</option></select><br><br>
关 键 字&nbsp;<input type="text" name="s_book" size=7 value="请输入" onfocus="this.value='';" class=think>&nbsp;<br><br>
<input type="submit" value="快速搜书" class=stbtm><br>
     </td>
    </tr>
    </form>
   </table>
<%
end sub

sub senfe_listbook()
set senfe_book=new senfe_steal
	senfe_book.url=steal_url&"listbook.asp?status=down&bl_class="&bl_class&"&pageid="&pageid&"&booktype1="&request("booktype1")&"&booktype2="&request("booktype2")
	senfe_book.code "□ <font color=red>",0,0,0,"</font>",0,0,0
	classname=senfe_book.body

	senfe_book.code "<select name=booktype1>",0,1,0,"</select>",0,1,0
	classbook=senfe_book.body

	senfe_book.code "&nbsp;共",0,0,0,"部作品&nbsp",0,0,0
	classallbook=senfe_book.body

	if pageid<>"" then
		senfe_book.code "<script lauguage=javascript>",2,1,0,"</script>",0,1,0
		list_body=senfe_book.body

		senfe_book.code "体系说明</a>",0,0,0,"</td>",0,0,0
		senfe_book.change "listbook.asp?status=down","?senfe=listbook"
		senfe_book.change "listbook.asp?","?senfe=listbook&"
		senfe_book.change "status=down&",""
		list_page=senfe_book.body

		listbook_body=list_body&"<tr><td colspan=6 align=right class=xt style='padding-top:5;padding-bottom:10;'><br><a href=?senfe=help target=_blank>悠悠网络书库分类体系说明</a>"&list_page&"</td></tr>"
	end if
set senfe_book=nothing

if pageid="" then
	set senfe_book=new senfe_steal
		senfe_book.url=steal_url&"script/list_book"&bl_class&".js"
		senfe_book.change "listbook.asp?status=down","?senfe=listbook"
		listbook_body="<script lauguage=javascript>"&senfe_book.body&"</script>"
	set senfe_book=nothing
end if
%>
<table width=758 border=0 align=center cellpadding=0 cellspacing=0>
 <tr valign=top>
  <td width=140><%senfe_left()%></td>
  <td align=right style="padding-top:10;padding-left:10">
    <table border=0 cellpadding=0 cellspacing=0 valign=top width=100%>
    <form action=listbook2.asp method=post>
      <tr>
        <td class=xt><span class=zt>&nbsp;&nbsp;□ <font color=red><%=classname%></font></span>&nbsp;&nbsp;共<%=classallbook%>部作品&nbsp;&nbsp;按更新时间排序</td>
        <td class=xt align=right><%=classbook%><select name=booktype2><option value=0>排行方式</option><option value=1>总点击</option><option value=2>月点击</option><option value=3>总推荐</option><option value=4>月推荐</option><option value=5>总字数</option><option value=6>更新时间</option></select><input type=hidden value=12 name=bl_class><input type=submit value=提交></td>
      </tr>
    </form>
    </table>
    <table border=0 cellpadding=0 cellspacing=0 valign=top width=100%>
      <tr bgcolor=#eeeeee height=24>
        <td class=xt align=center width=8% valign=middle style="border-top:1px solid black">类别</td>
        <td class=xt align=center width=21% valign=middle style="border-top:1px solid black">书名</td>
        <td class=xt align=center width=38% valign=middle style="border-top:1px solid black">最新章节</td>
        <td class=xt align=center width=13% valign=middle style="border-top:1px solid black">更新时间</td>
        <td class=xt align=center width=13% valign=middle style="border-top:1px solid black">作者</td>
        <td class=xt align=center width=6% valign=middle style="border-top:1px solid black">状态</td>
      </tr>
      <tr>
        <td class=xt width=100% colspan=5 style="padding-top:5">
<script lauguage=javascript>					
function putlist(rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8)
{
document.write("<tr bgcolor=#ffffff height=24>");
document.write("<td class=xt align=center valign=top>"+rs7+"</td>");
document.write("<td class=xt align=left valign=top><a href='?senfe=showbook&bl_id="+rs0+"' target=_blank><font color=#004d00>"+rs2+"</font></a></td>");
document.write("<td class=xt align=left valign=top><a href=?senfe=readchapter&bl_id="+rs0+"&bu_id="+rs8+" target=_blank><font color=#004d00>"+rs4+"</font></a></td>");
document.write("<td class=xt align=center valign=top>"+rs3+"</td>");