<!--#include file="Char.Asp"-->
<!--#include file="SenFe_ClsSteal.Asp"-->
<%
'=========================================================
'　　　　　　　　　　　千 纸 鹤　网　络
' Copyright (C) 2003-2005 51fy.cn All Rights Reserved.
' Web: http://www.qqzzhh.com/
' QQ: 138999501        E-mail: qzhxxw@sina.com
'=========================================================
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.qqzzhh.com/"	'网站地址
WebMail     = "qzhxxw@sina.Com"		'联系邮箱
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=#ffffff 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="#ffffff">
    <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="#ffffff">
    <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="#ffffff">
    <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="#ffffff">
    <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>");
document.write("<Td class=xt align=center valign=top><A href='?SenFe=ShowAuthor&Ba_Id="+rs6+"' target=_blank><Font color=#004D00>"+rs1+"</Font></A></Td>");
document.write("<Td class=xt align=center valign=top>"+rs5+"</td></tr>");
}
</script>
<%=ListBook_Body%>
    </table><br><br>
  </td>
 </tr>
</table>
<%
End Sub

Sub SenFe_ShowBook()
Response.Write "<table width=758 border=0 align=center cellpadding=0 cellspacing=0><tr valign=top><td width=140>"
SenFe_Left
Response.Write "<td style='padding-top:10;padding-left:10'>"
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"showbook.asp?bl_id="&Bl_Id
	SenFe_Book.Code "<td valign=top><br>",0,0,0,"[ 重要提示 ]",0,0,-185
	SenFe_Book.ChangeX "<tr><td class=xt",1,0,"</script>",1,0,""
	SenFe_Book.ChangeX " <a href=""mybook",1,0,"<br>",1,0,""
	SenFe_Book.ChangeX "<a href=""http://www",1,0,"<br>",1,0,""
	SenFe_Book.ChangeX "<a href=""http://mobile",1,0,"</a>",1,0,""
	SenFe_Book.Change "image/","Images/Book/"
	SenFe_Book.Change "http://newauthor8.cmfu.com/bookimgs/0.jpg","Images/Book/NoPic.jpg"
	SenFe_Book.Change "listbook.asp?","?SenFe=ListBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "readbook.asp?","?SenFe=ReadBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
	SenFe_Book.Change "mybook_votebook.asp?","?SenFe=MyBook_VoteBook&"
	SenFe_Book.Change "/upsearch.asp?","?SenFe=UpSearch&"
	SenFe_Book.Change "www.cmfu.com","www.qqzzhh.com"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
%>
    <tr> 
     <td class=xt align=left colspan="2" valign=top style="padding-top:10;padding-bottom:10;border-top: green 1px solid;line-height:160%">&nbsp;&nbsp; [ 重要提示 ]</td>
    </tr>
    <tr> 
     <td class=xt colspan=2 align=left valign=top style="padding-left:10;padding-right:5;padding-top:3;padding-bottom:3">
      &nbsp;&nbsp;&nbsp;&nbsp;章节阅读开通用“<font color=blue>左右按键进行前后翻页阅读</font>”的功能，同时“按回车[enter]键”可以直接返回作品首页<br>
     </td>
    </tr>
   </Table>
  </td>
 </tr>
</table>
<%
End Sub

Sub SenFe_SearchBook()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"searchbook.asp?s_class="&Request("s_class")&"&s_book="&Server.UrlEnCode(Request("s_book"))
	SenFe_Book.Code "<TABLE border=0",3,1,0,"</table>",2,1,0
	SenFe_Book.Change "100%","758"
	SenFe_Book.Change "95%","100%"
	SenFe_Book.Change "showbook.asp?","?SenFe=ShowBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "searchbook.asp","?SenFe=SearchBook"
	SenFe_Book.Change "<br><br>",""
	SenFe_Book.ChangeX "<a href=/vip/",1,0,"|&nbsp;",1,0,""
	SenFe_Book.Change "target=""_blank""",""
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub

Sub SenFe_UpSearch()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"upsearch.asp?bl_id="&Bl_Id
	SenFe_Book.Code "<table border=""0",0,1,0,"</table>",2,1,0
	SenFe_Book.Change "95%","758"
	SenFe_Book.Change "showbook.asp?","?SenFe=ShowBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "searchbook.asp","?SenFe=SearchBook"
	SenFe_Book.Change "<br><br>",""
	SenFe_Book.ChangeX "<a href=/vip/",1,0,"|&nbsp;",1,0,""
	'SenFe_Book.ReplaceByReg "<a href=/vip.+?vip作品</font></a>&nbsp;|&nbsp;",""
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub

Sub SenFe_TopTen()
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=758 valign=top>
 <tr height=40 valign=middle class=xt>
  <td align=center><a href="?SenFe=TopTen&Id=1" target=_top>总点击榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=2" target=_top>月点击榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=3" target=_top>周点击榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=4" target=_top>总推荐榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=5" target=_top>月推荐榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=6" target=_top>周推荐榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=7" target=_top>总收藏榜</a></td>
  <td align=center><a href="?SenFe=TopTen&Id=8" target=_top>总字数榜</td>
  <td align=center><a href="?SenFe=TopTen&Id=9" target=_top>新书点击周榜</td>
  <td align=center><a href="?SenFe=TopTen&Id=10" target=_top>入站时间</td>
 </tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=758 valign=top>
 <tr height=25 bgcolor="#eeeeee" class=xt style="border-top: #666633 1px solid;">
  <td width=3% align=center>No</td>
  <td width=5% align=center>类别</td>
  <td width=18% align=center>书名</td>
  <td width=34% align=center>最新章节</td>
  <td width=8% align=center>作者</td>
  <td width=14% align=center>更新时间</td>
  <td width=6% align=center>写作</td>
  <td width=12% align=center><font color=red>总推荐</font></td>
 </tr>
 <tr>
<script lauguage=javascript>					
function putlist(i,rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,rs9,rs10)
{
document.write("<tr height=25>");
document.write("<td align=center valign=top class=xt>"+i+"</td>");
document.write("<td align=center valign=top class=xt>"+rs4+"</td>");
document.write("<td align=left valign=top class=xt><a href='?SenFe=ShowBook&Bl_Id="+rs0+"' target=_blank><Font color=#004D00>"+rs1+"</Font></a></td>");
document.write("<td align=left valign=top class=xt><a href='?SenFe=ReadChapter&Bu_Id="+rs6+"&Bl_Id="+rs0+"' target=_blank><font color=#5d5d5d>"+rs8+"</font></a></td>");
document.write("<td align=center valign=top class=xt><a href='?SenFe=ShowAuthor&Ba_Id="+rs3+"' target=_blank><Font color=#004D00>"+rs2+"</Font></a></td>");
document.write("<td align=center valign=top class=xt>"+rs7+"</td>");
document.write("<td align=center valign=top class=xt>"+rs9+"</td>");
document.write("<td align=center valign=top class=xt>"+rs10+"</td>");
document.write("</tr>");
}				
</script>
<script lauguage=javascript>
<%
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"script/list_top"&Id&".js"
	SenFe_Book.Change "",""
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
%></script>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=758 valign=top>
 <tr>
  <td>
   <font color=red>注: 本排行榜只显示前200名,排行榜根据站内现有统计数据,仅做书友看书参考之用。</font><br>
   &nbsp;&nbsp;&nbsp;&nbsp;<font color=red>新书点击周榜计算方法：通过审核后的作品字数超过3万字且总字数低于15万字、加入千纸鹤书库30天内、每三天内更新过一次的作品，可以入选新书点击周榜</font><br><br>
  </td>
 </tr>
</table>
<%
End Sub

Sub SenFe_ReadBook()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"readbook.asp?bl_id="&Bl_Id
	SenFe_Book.Code "<table",2,1,0,"<br></div>",0,1,0
	SenFe_Book.Change "18.5pt","14pt"
	SenFe_Book.Change "98%","758"
	SenFe_Book.Change "<td width=4%"&chr(62)&"</td>",""
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
	SenFe_Book.Change "readchapterall.asp?","?SenFe=ReadChapterAll&"
	SenFe_Book.Change "#FF6666;"">","#FF6666;"">本书转自『<B>起点中文网</B>』&nbsp;&nbsp;"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub

Sub SenFe_BookAll()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url="http://big5.cmfu.com/bookall/"&Id&".htm"
	SenFe_Book.Code "<table width=100%",0,1,0,"<table border=0",0,0,0
	SenFe_Book.Change "100%","758"
	SenFe_Book.Change "95%","100%"
	SenFe_Book.Change "起点中文网","千纸鹤书库"
	SenFe_Book.Change "起点原创","千纸鹤网络"
	SenFe_Book.Change "cmfu","qqzzhh"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub

Sub SenFe_ReadChapterAll()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"readchapterall.asp?bl_id="&Bl_Id&"&bookchapterid="&Request.QueryString("bookchapterid")
	SenFe_Book.Code "<table width=100%",0,1,0,"<br><br>",0,1,0
	SenFe_Book.Change "100%","758"
	SenFe_Book.Change "95%","100%"
	SenFe_Book.Change "http://newauthor","?SenFe=ReadChapterAll_Txt&XId="
	SenFe_Book.Change ".cmfu.com//books/","&Id="
	SenFe_Book.Change ".txt",""
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub

Sub SenFe_ReadChapter()
%>
<script language="JavaScript">
	function doZoom(size){
		document.getElementById('zoom1').style.fontSize=size+'px'
	}
	function Color(color){
		document.getElementById('zoom2').style.color=color
	}
	function BgColor(color){
		document.getElementById('zoom3').style.background=color
	}
</script>
<table border=0 cellPadding=0 cellSpacing=0 width=758 valign=top align=center id=zoom3 bgcolor=#E7F4FE><tr><td align=center>
<div align=right>【字体: <a href="javascript:doZoom(16)">大</a> <a href="javascript:doZoom(14)">中</a> <a href="javascript:doZoom(12)">小</a>&nbsp;字体颜色:
<select name="color" onFocus="this.selectedIndex=0" onChange="Color(this.options[this.selectedIndex].value)">
      <option value="" selected>字体颜色</option>
      <option value="White" style="background-color:white;color:white;">White</option>
      <option value="Black" style="background-color:black;color:black;">Black</option>
      <option value="Red" style="background-color:red;color:red;">Red</option>
      <option value="Yellow" style="background-color:yellow;color:yellow;">Yellow</option>
      <option value="Pink" style="background-color:pink;color:pink;">Pink</option>
      <option value="Green" style="background-color:green;color:green;">Green</option>
      <option value="Orange" style="background-color:orange;color:orange;">Orange</option>
      <option value="Purple" style="background-color:purple;color:purple;">Purple</option>
      <option value="Blue" style="background-color:blue;color:blue;">Blue</option>
      <option value="Beige" style="background-color:beige;color:beige;">Beige</option>
      <option value="Brown" style="background-color:brown;color:brown;">Brown</option>
      <option value="Teal" style="background-color:teal;color:teal;">Teal</option>
      <option value="Navy" style="background-color:navy;color:navy;">Navy</option>
      <option value="Maroon" style="background-color:maroon;color:maroon;">Maroon</option>
      <option value="LimeGreen" style="background-color:limegreen;color:limegreen;">LimeGreen</option>
    </select>
&nbsp;背景颜色:
<select name="Bgcolor" onFocus="this.selectedIndex=0" onChange="BgColor(this.options[this.selectedIndex].value)">
      <option value="" selected>背景颜色</option>
      <option value="White" style="background-color:white;color:white;">White</option>
      <option value="Black" style="background-color:black;color:black;">Black</option>
      <option value="Red" style="background-color:red;color:red;">Red</option>
      <option value="Yellow" style="background-color:yellow;color:yellow;">Yellow</option>
      <option value="Pink" style="background-color:pink;color:pink;">Pink</option>
      <option value="Green" style="background-color:green;color:green;">Green</option>
      <option value="Orange" style="background-color:orange;color:orange;">Orange</option>
      <option value="Purple" style="background-color:purple;color:purple;">Purple</option>
      <option value="Blue" style="background-color:blue;color:blue;">Blue</option>
      <option value="Beige" style="background-color:beige;color:beige;">Beige</option>
      <option value="Brown" style="background-color:brown;color:brown;">Brown</option>
      <option value="Teal" style="background-color:teal;color:teal;">Teal</option>
      <option value="Navy" style="background-color:navy;color:navy;">Navy</option>
      <option value="Maroon" style="background-color:maroon;color:maroon;">Maroon</option>
      <option value="LimeGreen" style="background-color:limegreen;color:limegreen;">LimeGreen</option>
    </select>
 】&nbsp;『<a href="?SenFe=BookAll&Id=<%=Bl_Id%>" target=_blank>全文阅读</a>&nbsp;<a href="?SenFe=mybook_votebook&a_id=&b_id=<%=Bl_Id%>" target=_blank>推荐本书</a>&nbsp;<a href="?SenFe=ReadBook&Bl_Id=<%=Bl_Id%>" target=_top>返回书目</a>&nbsp;<a href="?SenFe=ShowBook&Bl_Id=<%=Bl_Id%>" target=_top>返回书页</a>』</div>
<br>
<%
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"readchapter.asp?bu_id="&Bu_Id&"&bl_id="&Bl_Id
	SenFe_Book.Code "><b>",0,0,0,"</b>",0,0,0
	ReadChapter_Title=SenFe_Book.Body
	If ReadChapter_Title<>"没有找到您想要的内容，可能您设定的首尾字符串不存在！" Then
		SenFe_Book.Code "<script src='",0,0,0,"'></script>",0,0,0
		Txt_Url=SenFe_Book.Body

		SenFe_Book.Code "<script",0,1,0,"</script>",0,1,0
		SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
		SenFe_Book.Change "readbook.asp?","?SenFe=ReadBook&"
		Response.Write SenFe_Book.Body
		Response.Write "<p align=center style='FONT-SIZE:18pt;color:#990000;font-family:楷体_GB2312'><B>"&ReadChapter_Title
	Else
		Response.Write "<script>alert('您打开的章节有错误或者正在审核中！\n\n请返回稍候重新打开或向网管报告');location.href='?SenFe=ShowBook&Bl_Id="&Bl_Id&"';</script>"
		.End
	End If
Set SenFe_Book=Nothing
%></b></p>
<div align=left id=zoom2 style='font-size:10.5pt;color:#000000;line-height:180%;padding-left:10;padding-right:10'>
<font id=zoom1 style='font-size:14px'>
<script>
<%
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Txt_Url
	SenFe_Book.Change "起点中文网","千纸鹤书库"
	SenFe_Book.Change "起点原创","千纸鹤网络"
	SenFe_Book.Change "cmfu","qqzzhh.com"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
%>
</script></font></td></tr>
<tr><td align=center class=zt><br><a href='javascript:document.location=prevpage' target=_top>上一页</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:document.location=bookpage' target=_top>回书目</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:document.location=nextpage' target=_top>下一页</a>
<br><br>
<div align=right>【字体: <a href="javascript:doZoom(16)">大</a> <a href="javascript:doZoom(14)">中</a> <a href="javascript:doZoom(12)">小</a>&nbsp;字体颜色:
<select name="color" onFocus="this.selectedIndex=0" onChange="Color(this.options[this.selectedIndex].value)">
      <option value="" selected>字体颜色</option>
      <option value="White" style="background-color:white;color:white;">White</option>
      <option value="Black" style="background-color:black;color:black;">Black</option>
      <option value="Red" style="background-color:red;color:red;">Red</option>
      <option value="Yellow" style="background-color:yellow;color:yellow;">Yellow</option>
      <option value="Pink" style="background-color:pink;color:pink;">Pink</option>
      <option value="Green" style="background-color:green;color:green;">Green</option>
      <option value="Orange" style="background-color:orange;color:orange;">Orange</option>
      <option value="Purple" style="background-color:purple;color:purple;">Purple</option>
      <option value="Blue" style="background-color:blue;color:blue;">Blue</option>
      <option value="Beige" style="background-color:beige;color:beige;">Beige</option>
      <option value="Brown" style="background-color:brown;color:brown;">Brown</option>
      <option value="Teal" style="background-color:teal;color:teal;">Teal</option>
      <option value="Navy" style="background-color:navy;color:navy;">Navy</option>
      <option value="Maroon" style="background-color:maroon;color:maroon;">Maroon</option>
      <option value="LimeGreen" style="background-color:limegreen;color:limegreen;">LimeGreen</option>
    </select>
&nbsp;背景颜色:
<select name="Bgcolor" onFocus="this.selectedIndex=0" onChange="BgColor(this.options[this.selectedIndex].value)">
      <option value="" selected>背景颜色</option>
      <option value="White" style="background-color:white;color:white;">White</option>
      <option value="Black" style="background-color:black;color:black;">Black</option>
      <option value="Red" style="background-color:red;color:red;">Red</option>
      <option value="Yellow" style="background-color:yellow;color:yellow;">Yellow</option>
      <option value="Pink" style="background-color:pink;color:pink;">Pink</option>
      <option value="Green" style="background-color:green;color:green;">Green</option>
      <option value="Orange" style="background-color:orange;color:orange;">Orange</option>
      <option value="Purple" style="background-color:purple;color:purple;">Purple</option>
      <option value="Blue" style="background-color:blue;color:blue;">Blue</option>
      <option value="Beige" style="background-color:beige;color:beige;">Beige</option>
      <option value="Brown" style="background-color:brown;color:brown;">Brown</option>
      <option value="Teal" style="background-color:teal;color:teal;">Teal</option>
      <option value="Navy" style="background-color:navy;color:navy;">Navy</option>
      <option value="Maroon" style="background-color:maroon;color:maroon;">Maroon</option>
      <option value="LimeGreen" style="background-color:limegreen;color:limegreen;">LimeGreen</option>
    </select>
 】&nbsp;『<a href="?SenFe=BookAll&Id=<%=Bl_Id%>" target=_blank>全文阅读</a>&nbsp;<a href="?SenFe=mybook_votebook&a_id=&b_id=<%=Bl_Id%>" target=_blank>推荐本书</a>&nbsp;<a href="?SenFe=ReadBook&Bl_Id=<%=Bl_Id%>" target=_top>返回书目</a>&nbsp;<a href="?SenFe=ShowBook&Bl_Id=<%=Bl_Id%>" target=_top>返回书页</a>』</div>
</td></tr></table>
<%
End Sub

Sub SenFe_ShowAuthor()
Response.Write "<table width=758 border=0 align=center cellpadding=0 cellspacing=0><tr valign=top><td width=140>"
SenFe_Left
Response.Write "<td style='padding-top:10;padding-left:10'>"
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"showauthor.asp?ba_id="&Ba_Id
	SenFe_Book.Code "padding-bottom:10;"">",0,0,0,"</table>",2,1,0
	SenFe_Book.Change "image/",Steal_Url&"image/"
	SenFe_Book.Change "showbook.asp?","?SenFe=ShowBook&"
	SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
Response.Write "</td></tr></table>"
End Sub

Sub SenFe_ListBookQB()
Response.Write "<table width=758 border=0 align=center cellpadding=0 cellspacing=0><tr valign=top><td width=140>"
SenFe_Left
Response.Write "<td style='padding-top:10;padding-left:10'>"
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"listbookqb.asp?pageid="&PageId&"&status=down"
	SenFe_Book.Code "<span class=zt>",0,1,0,"</table><br><br>",2,1,0
	SenFe_Book.Change "listbookqbpy.asp?","?SenFe=ListBookQBPY&"
	SenFe_Book.Change "showbook.asp?","?SenFe=ShowBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
	SenFe_Book.Change "listbookqb.asp?status=down","?SenFe=ListBookQB"
	SenFe_Book.Change "listbookqb.asp?","?SenFe=ListBookQB&"
	SenFe_Book.Change "&status=down",""
	SenFe_Book.Change "http://www.cmfu.com/?","?"
	SenFe_Book.Change "listbookqb.asp","?SenFe=ListBookQB"
	SenFe_Book.Change "部作品 -","部作品<BR><Div align=right>按书名拼音分类:"
	SenFe_Book.Change "<br><br>","<BR>"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
Response.Write "</td></tr></table>"
End Sub

Sub SenFe_ListBookQBPY()
Response.Write "<table width=758 border=0 align=center cellpadding=0 cellspacing=0><tr valign=top><td width=140>"
SenFe_Left
Response.Write "<td style='padding-top:10;padding-left:10'>"
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url=Steal_Url&"listbookqbpy.asp?bl_first="&Bl_First
	SenFe_Book.Code "<span class=zt>",0,1,0,"</div>",2,1,0
	SenFe_Book.Change "listbookqbpy.asp?","?SenFe=ListBookQBPY&"
	SenFe_Book.Change "showbook.asp?","?SenFe=ShowBook&"
	SenFe_Book.Change "showauthor.asp?","?SenFe=ShowAuthor&"
	SenFe_Book.Change "readchapter.asp?","?SenFe=ReadChapter&"
	SenFe_Book.Change "listbookqb.asp","?SenFe=ListBookQB"
	SenFe_Book.Change "&nbsp;&nbsp;□","□"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
Response.Write "</td></tr></table>"
End Sub

Sub SenFe_ReadChapterAll_Txt()
Set SenFe_Book=New SenFe_Steal
	SenFe_Book.Url="http://newauthor"&Request.QueryString("XId")&".cmfu.com/books/"&Id&".txt"
	SenFe_Book.Change "起点中文网","千纸鹤书库"
	SenFe_Book.Change "起点原创","千纸鹤书库"
	SenFe_Book.Change "cmfu","qqzzhh.com"
	Response.Write SenFe_Book.Body
Set SenFe_Book=Nothing
End Sub
Sub SenFe_Help()
%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=758 valign=top>
 <tr>
  <td align=left>
   <TABLE border=0 cellPadding=0 cellSpacing=0 width=90% valign=top align=center class=zt>
    <tr>
     <td width=100% height=30 align=left colspan=2><font color=red size=3>千纸鹤书库专业分类体系：</font></td>
    </tr><tr>
     <td class=zt align=left width=50%><font color=blue>玄幻奇幻<br></td>
     <td class=zt align=left width=50%><font color=blue>武侠仙侠<br></td>
    </tr><tr>
     <td class=xt align=left>东方玄幻 西方奇幻 转世重生 魔法校园<br>王朝争霸 异术超能 远古神话 骇客时空<br>异世大陆 吸血家族<br><br></td>
     <td class=xt align=left valign=top>传统武侠 历史武侠 谐趣武侠 浪子异侠<br>古典仙侠 奇幻修真 现代修真<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>浪漫言情<br></td>
     <td class=zt align=left><font color=blue>现代都市<br></td>
    </tr><tr>
     <td class=xt align=left>宫闱情仇 快意江湖 菁菁校园 爱在职场<br>西方传奇 冒险推理 灵异恐怖 奇幻架空<br>蔷薇情话 品味人生<br><br></td>
     <td class=xt align=left valign=top>都市生活 商海沉浮 青春校园 白领生涯<br>恩怨情仇 宦海风云<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>历史<br></td>
     <td class=zt align=left><font color=blue>军事<br></td>
    </tr><tr>
     <td class=xt align=left>历史传记 架空历史 三国梦想<br><br></td>
     <td class=xt align=left>现代战争 战争幻想 特种军旅<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>游戏<br></td>
     <td class=zt align=left><font color=blue>竞技<br></td>
    </tr><tr>
     <td class=xt align=left>游戏生涯 电子竞技 虚拟网游<br><br></td>
     <td class=xt align=left>体育竞技 篮球运动 足球运动 弈林生涯<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>科幻<br></td>
     <td class=zt align=left><font color=blue>灵异<br></td>
    </tr><tr>
     <td class=xt align=left>科幻世界 星际战争 机器时代<br><br></td>
     <td class=xt align=left>灵异神怪 恐怖惊悚 推理侦探<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>美文<br></td>
     <td class=zt align=left><font color=blue>同人<br></td>
    </tr><tr>
     <td class=xt align=left>休闲美文 杂文笔札 童话寓言 诗词散曲<br>短篇小说<br><br></td>
     <td class=xt align=left valign=top>动漫同人 武侠同人 小说同人<br><br></td>
    </tr><tr>
     <td class=zt align=left><font color=blue>剧本<br></td>
     <td class=zt align=left><font color=blue>图文<br></td>
    </tr><tr>
     <td class=xt align=left>影视剧本 动漫剧本 网游剧本<br><br></td>
     <td class=xt align=left>漫画连载 配图小说<br><br></td>
    </tr>
    <tr>
     <td width=100% height=30 align=left colspan=2>　　由于系统刚是初步建立，故此会出现一些不足之处。但我们相信，通过大家的一起努力，整个书库体系会更完善 更科学！欢迎大家提出宝贵意见和建议！</td>
    </tr>
   </table>
  </td>
 </tr>
</table>
<%
End Sub
%>
