<!--#include file="head.asp" -->

<head>
</head>

<table width="777"  border="0" align="center" cellspacing="0" bgcolor="#FFFFFF" cellpadding="0" background="images/menu_02_bg.gif">
  <tr>
    <td bgcolor="#FFFFFF" background="images/menu_02_bg.gif" height="28">
      <p align="center"><%
dim url,page,cutpage,str
'on error resume next
	Function getHTTPPage(url) 
	'	on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
		set http=nothing
		if err.number<>0 then err.Clear  
	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
'===================================================
'url="http://www.cmfu.com"&Request.serverVariables("SCRIPT_NAME")&"?"&Request.serverVariables("QUERY_STRING")
url="http://www.cmfu.com/listbookdj.asp?"&Request.serverVariables("QUERY_STRING")
page= getHTTPPage(url)
cutpage=instr(page,"□")
str=instr(cutpage,page,"]</div>")
%>
<% 
=mid(page,cutpage,str-cutpage+10)
%></td>
  </tr>
  <tr>
    <td bgcolor="#BDCFEC"><TABLE border="0" cellSpacing=0 valign=top width=100% bordercolor="#CCCCCC" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">
				<tr bgcolor=#eeeeee height=24>
					<td class=xt align=center width=7% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">类别</td>
					<td class=xt align=center width=21% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">书名</td>
					<td class=xt align=center width=38% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">最新章节</td>
					<td class=xt align=center width=13% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">更新时间</td>
					<td class=xt align=center width=13% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">作者</td>
					<td class=xt align=center width=7% valign=middle style="border-top:1px solid black" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">周点击</td>
				</tr>
				<tr>
					<td class=xt width="748" colspan="6" 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='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.QueryString("pageid")="" then
%><%
="<script src=http://www.cmfu.com/script/list_bookdj"&request.QueryString("bl_class")&".js></script>"
%>
<%
else
page= getHTTPPage(url)
cutpage=instr(page,"<script lauguage=javascript>putlist")
str=instr(cutpage,page,"下一页</a>")
page=mid(page,cutpage,str-cutpage+6)
response.Write page
end if%></td>
                </tr>
</table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->