<%
bl_class=request("bl_class")
dim hx(7)
hx(0)="玄幻魔法"
hx(1)="武侠异侠" 
hx(2)="历史军事"
hx(3)="都市言情"
hx(4)="推理灵异"
hx(5)="科幻动漫"
hx(6)="散文诗词"
%>
<HTML><HEAD>
<TITLE>沧海风云娱乐网在线读书专栏目</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
</HEAD>
<!--#include file="head.asp"-->
<BODY leftMargin=0 topMargin=0  marginheight="0" marginwidth="0">
<table width="777" border="0" align="center" class="center_tdbgall" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<tr>
<td>
<TABLE cellSpacing=0 cellPadding=0 width="777" align=center bgColor=#edf3fe border=0>
  <TBODY>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD width=1 bgColor=#bdcfec><IMG height=1 
                  src="images/space.gif" width=1></TD>
                <TD vAlign=top>                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                      <TR>
                        <TD vAlign=top width="69%" bgColor=#ffffff>
                          <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                            <TBODY>
                              <TR>
                                <TD background=images/menu_02_bg.gif 
                            height=28 >
                                  <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                              border=0>
                                    <TBODY>
                                      <TR>
                                        <TD align=middle width="28%">
                                          <TABLE cellSpacing=0 cellPadding=0 width="72%" 
                                border=0>
                                            <TBODY>
                                              <TR>
                                             
                                                <TD><FONT 
                                color=#000000><%kind=hx(bl_class-1)%>当前类别： </FONT><strog><FONT color=#ff6699><%=kind%></FONT></TD>     
                                              </TR>
                                            </TBODY>
                                        </TABLE></TD>
                                        <TD vAlign=top align=right width="72%"> <a href="listupdate.asp?status=down"><font color=white> <span class="xt"> 分类排序-&nbsp;</a><A 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=A">A</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=B">B</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=C">C</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=D">D</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=E">E</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=F">F</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=G">G</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=H">H</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=I">I</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=J">J</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=K">K</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=L">L</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=M">M</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=N">N</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=O">O</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=P">P</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=Q">Q</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=R">R</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=S">S</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=T">T</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=U">U</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=V">V</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=W">W</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=X">X</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=Y">Y</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=Z">Z</A> <A                 
      href="listbookpy.asp?bl_class=<%=bl_class%>&amp;bl_first=0">其他</A> <A href="listbookdj.asp?bl_class=<%=bl_class%>">                
      点击</A> <A                 
      href="listbooktj.asp?bl_class=<%=bl_class%>">推荐</A>&nbsp;&nbsp;</span></font></TD>
                                      </TR>
                                    </TBODY>
                                </TABLE></TD>
                              </TR>
                              <TR>
                                <TD>
                                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                                    <TBODY>
                                      <TR>
                                        <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 valign="top">
        <TBODY>
        <TR bgColor=#eeeeee height=24>
          <TD 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">类别</TD>
          <TD width="21%" 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">书名</TD>
          <TD width="38%" 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">最新章节</TD>
          <TD width="13%" 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">更新时间</TD>
          <TD width="13%" 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">作者</TD>
          <TD width="7%" 
          align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">状态</TD>
        </TR>
        <TR>
          <TD class=xt style="PADDING-TOP: 5px" colSpan=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='showbook.asp?bl_id="+rs0+"' target=_blank>"+rs2+"</a></td>");
document.write("<td class=xt align=left valign=top><a href=readchapter.asp?bl_id="+rs0+"&bu_id="+rs8+" target=_blank>"+rs4+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs3+"</td>");
document.write("<td class=xt align=center valign=top><a href='showauthor.asp?ba_id="+rs6+"' target=_blank>"+rs1+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs5+"</td></tr>");
}
</SCRIPT>
<%
if request("pageid")="" then%>
            <SCRIPT src="http://www.cmfu.com/script/list_book<%=bl_class%>.js"></SCRIPT>

<%else
strs=geturl("http://www.cmfu.com/listbook.asp?status=down&Bl_class="&bl_class&"&pageid="&request("pageid"))
 Set objRegExp = New Regexp'设置配置对象 
 objRegExp.IgnoreCase = True'忽略大小写 
 objRegExp.Global = True'设置为全文搜索 
 objRegExp.Pattern ="(<script lauguage=javascript>putlist.*&nbsp;&nbsp;&nbsp;&nbsp;</td>)" '搜索字符串
 Set Matches=objRegExp.Execute(strs)'开始执行搜索 
 For Each Match in Matches 
 RetStr =Match.Value'执行第二轮的匹配 
 Next 
 response.write retstr
 set objRegExp=nothing

Private Function bytes2BSTR(vIn) '字符串函数
	Dim i, ThischrCode, NextchrCode
	strReturn = ""
	For i = 1 To LenB(vIn)
		ThischrCode = AscB(MidB(vIn, i, 1))
		If ThischrCode < &H80 Then
			strReturn = strReturn & Chr(ThischrCode)
		Else
			NextchrCode = AscB(MidB(vIn, i + 1, 1))
			strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
			i = i + 1
		End If
	Next
    bytes2BSTR = strReturn
End Function

Function GetURL(url)  '字符方式的xmlhttp
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL = .ResponseText
		  GetURL = bytes2BSTR(.Responsebody)
          End With
    Set Retrieval = Nothing
End Function
end if
%>		
		</TR></TBODY></TABLE></TD>
                                      </TR>
                                    </TBODY>
                                </TABLE></TD>
                              </TR>
                            </TBODY>
                         </TABLE>
                      </TR>
                    </TBODY>
                  </TABLE></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
</TD>
</TR></TABLE>
</TD>
</TR></TABLE>
<!--#include file="bottom.asp"-->
</BODY></HTML>
