readchapter.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 86 行

ASP
86 行
字号 
<HTML>
<HEAD>
<TITLE>飞天网络-在线书库－武侠小说|言情小说|散文诗词...</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">

<META content="MSHTML 6.00.2800.1264" name=GENERATOR>
</HEAD>
<!--#include file="top.asp"-->
<BODY leftMargin=0 background=images/bg.gif topMargin=0 tppabs="image/bg.gif" marginheight="0" marginwidth="0">
<table width="778" border="0" align="center" class="center_tdbgall" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<tr>
<td>
<%
if Request.QueryString("bu_id")<>0 then
%> 
<table width="760"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<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)
cutpage=instr(page,"<script language=javascript>")
str=instr(cutpage,page,"class=zt>")
%>
<% 
=mid(page,cutpage,str-cutpage+9)
%>
</td>
</tr>
</table>
<table border="0" cellSpacing=0 width="776" valign=top align=center bordercolor="#CCCCCC" bordercolordark="#CCCCCC" bordercolorlight="#CCCCCC">
<tr>
  <td width="776" bgcolor="#DAF2DA"><%="<script src='http://book1.cmfu.com/books/"&Request.QueryString("bl_id")&"/"&Request.QueryString("Bu_id")&".txt'></script>"%></td>
</tr>
<tr>
  <td align="center" bgcolor="#F6D7F6"><a href='javascript:document.location=prevpage' target=_top><b>上一页</b></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:document.location=bookpage' target=_top><b>回书目</b></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:document.location=nextpage' target=_top><b>下一页</b></a></td>
</tr>
</table>
<%
else 
response.write"已经到末页了!"
end if %>
        </td>
    </tr>
</table>
   </TD>
  </TR>
</TABLE>
<!--#include file="bottom.asp"-->
</BODY>
</HTML>

readchapter.asp - 源码说明

本页面展示了「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序」中的 readchapter.asp 源码文件，采用 ASP 编程语言编写，共 86 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与6.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?