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

<%
bl_id=request("bl_id")
bookchapterid=request("bookchapterid")
strs=geturl("http://www.cmfu.com/readchapterall.asp?bl_id="&bl_id&"&bookchapterid="&bookchapterid)
strs=trim(strs)
strs=replace(strs,"沧海风云娱乐网书库","沧海风云娱乐网在线-在线书库")
strs=replace(strs,"include/main.css","main.css")
strs=replace(strs,"本书起点中文网首发，转载请保留","")
strs=replace(strs,"读书在起点 · 创作无极限","沧海风云娱乐网在线-在线书库")
strs=replace(strs,"沧海风云娱乐网","沧海风云娱乐网-在线书库")
strs=replace(strs,"全文阅读","")
strs=replace(strs,"www.0cc.cn","joke.0cc.cn")
strs=replace(strs,"一天一元千部大片下载","")
strs=replace(strs,"全文阅读","")
strs=replace(strs,"<script src=""","<script src=""http://www.0cc.cn")
strs=replace(strs,"<script src=""http://www.cmfu.com/script/","<script src=""")

response.write strs
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
%><!--#include file="bottom.asp"-->

<head>
</head>

