showbook.asp

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

ASP
99 行
字号 
<%
bl_id=request("id")
strs=geturl("http://www.cmfu.com/showbook.asp?bl_id="&request("bl_id"))
strs=trim(strs)
strs=split(strs,"<td width=10></td>")
hx=strs(1)
hx=replace(hx,"green","#a3bfda")
hx=replace(hx,"#ccffcc","#a3bfda")
hx=replace(hx,"book1.cmfu.com","www.zhjh.com/book")


 '取标题
 'Set objRegExp = New Regexp'设置配置对象 
 'objRegExp.IgnoreCase = True'忽略大小写 
 'objRegExp.Global = True'设置为全文搜索 
 'objRegExp.Pattern ="<a name=""d"">.+?</d>" '搜索字符串
 'Set Matches=objRegExp.Execute(strs)'开始执行搜索 
 'For Each Match in Matches 
 'RetStr =Match.Value'执行第二轮的匹配 
 'Next 
 'bookname=retstr

 '取内容简介
' Set objRegExp = New Regexp'设置配置对象 
' objRegExp.IgnoreCase = True'忽略大小写 
' objRegExp.Global = True'设置为全文搜索 
' objRegExp.Pattern ="[ 内容简介 ]<br><div.+?<div align=right" '搜索字符串
' Set Matches=objRegExp.Execute(strs)'开始执行搜索 
' For Each Match in Matches 
' RetStr =Match.Value'执行第二轮的匹配 
' Next 
' response.write retstr
' bookjs=retstr
 

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

<META content="Microsoft FrontPage 4.0" 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 vAlign=top bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="776" align=center bgColor=#ffffff border=0>
  <TBODY>
  <tr>
  <td vAlign=top bgColor=#ffffff>
  <TABLE cellSpacing=0 cellPadding=0 width="90%" align=center bgColor=#ffffff border=0>
    <TBODY>
    <TR>
      <TD vAlign=top bgColor=#ffffff align=center><%=hx%></TD>
    </TR>
    <TR>
      <TD background=images/xian3.gif><IMG height=1 src="images/space.gif" width=1 tppabs="http://www.ZHJH.com/img/space.gif"></TD>
    </TR>
    </TBODY>
  </TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TABLE>
<!--#include file="bottom.asp"-->
</BODY>
</HTML>
<% set objRegExp=nothing%>

showbook.asp - 源码说明

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

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

⌨️ 快捷键说明

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