<!--#include file="head.asp" -->
<script language=javascript>
	function GetPassWin(filelca)
		{	
		GetPasswindow = window.open(filelca, 'rewin', 'left=100, top=100, width=300,height=200,resizable=0,status=0,menubar=0,scrollbars=0'); 
		GetPasswindow.focus();
		}
</script><table width="755"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <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/readbook.asp?"&Request.serverVariables("QUERY_STRING")
page= getHTTPPage(url)
page=replace(page,"http://big5.cmfu.com/bookall/","")
page=replace(page,"http://www.cmfu.com/showauthor.asp","showauthor.asp")
cutpage=instr(page,"¡§&cent;&pound;¡è¡§&ordm;¡§&brvbar;")+6

%>
<table border=0 cellPadding=0 cellSpacing=0 width=98% valign=top align=center>
	<tr>
		<td>
<% 
=mid(page,cutpage)
%></td>
  </tr>
</table></table><!--#include file="bottom.asp"-->


