
<!--#include file="head.asp" -->
<%
if Request.QueryString("bu_id")<>0 then
%> 
<table width="777"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="white">
<tr>
    <td bgcolor="#FFFFFF">
    
<%
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://book1.cmfu.com/readchapter.asp?"&Request.serverVariables("QUERY_STRING")
page= getHTTPPage(url)
page=replace(page,"读书在沧海风云娱乐网· 创作无极限","沧海风云娱乐网书库")
page=replace(page,"http://big5.cmfu.com/bookall","")
page=replace(page,"本书起点中文网首发","")
page=replace(page,"<td colspan=2 align=center style=""border-top:1px solid green;padding-top:5"" class=xt><a name=end>Copyright</a> (C) 2002-2005 <a href='index.asp' target=_top>www.cmfu.com</a>　　All Rights Reserved<br>如有章节错误、排版不齐或版权疑问、作品内容有违相关法律等请至<a href='http://www.cmfu.com/kf_index.asp' target=_blank><font color=blue>起点客服中心</font></a>举报，可获加分奖励<br>本书已获作者授权在起点中文网及起点中文网合作伙伴处进行网络连载，未经作者或起点中文网许可者请勿转载<br>作品本身仅代表作者本人的观点，与起点中文网立场无关。阅读者如发现作品内容确有与法律抵触之处，可向起点中文网举报。<br>如因而由此导致任何法律问题或后果，起点中文网均不负任何责任。<br></td>","")


cutpage=instr(page,"<html>")
str=instr(cutpage,page,"</html>")
%>
<% 
=mid(page,cutpage,str-cutpage-1)


%>
     
<table border="1" cellSpacing=0 width="100%" valign=top align=center bordercolor="#CCCCCC" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC" height="24">
	<tr>
	  <td width="756" bgcolor="#DAF2DA"><%="<script src='http://book1.cmfu.com/books/"&Request.QueryString("bl_id")&"/"&Request.QueryString("Bu_id")&".txt'></script>"%></td>
	  </tr>
	<tr>
	  <td align="right" bgcolor="#FFFFFF"><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></td>
	  </tr>
</table>
<%
else 
response.write"已经到末页了!"
end if %>
<!--#include file="bottom.asp"-->
     </td>
    </tr>
</table>
