listbookpy1.asp
来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 282 行
ASP
282 行
<%
bl_class=request("bl_class")
dim hx(7)
hx(0)="玄幻魔法"
hx(1)="武侠异侠"
hx(2)="历史军事"
hx(3)="都市言情"
hx(4)="推理灵异"
hx(5)="科幻动漫"
hx(6)="散文诗词"
%>
<HTML><HEAD><TITLE>飞天网络-在线书库</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/okqq.css" type=text/css rel=stylesheet
tppabs="http://www.okqq.net/css/okqq.css">
<META content="MSHTML 6.00.2800.1264" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 background=images/bg.gif topMargin=0
tppabs="http://www.okqq.net/img/bg.gif" marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width="87%" align=center bgColor=#edf3fe
border=0>
<TBODY>
<TR>
<TD vAlign=top width=10 background=images/left_shadow.gif
tppabs="http://www.okqq.net/img/left_shadow.gif"><IMG height=1
src="images/space.gif" width=10
tppabs="http://www.okqq.net/img/space.gif"></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width="30%"> </TD>
<TD align=right width="70%"><IMG height=65 alt=""
src="images/ad001.gif" width=450 border=0
name=ad001
tppabs="http://www.okqq.net/img/ad001.gif"></TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=bottom align=right bgColor=#ffffff>
<TD
height=50 align=center valign="middle" background=images/top_menu_bg.jpg
tppabs="http://www.okqq.net/img_menu/top_menu_bg.jpg"><FONT color=#000000>
<A class=strong
href="index.asp"
>首页</A> | <A class=strong
href="listbook.asp?bl_class=1"
"></A><A class=strong
href="listbook.asp?bl_class=1"
>玄幻魔法</A> | <A class=strong
href="listbook.asp?bl_class=2"
>武侠异侠</A> |<A class=strong
href="listbook.asp?Bl_class=3"
> 历史军事</A> |
<A href="listbook.asp?bl_class=4"
><strong>都市言情</strong> </A> | <A
class=strong href="listbook.asp?Bl_class=5"
>推理灵异</A> | <A
class=strong href="listbook.asp?bl_class=6"
>科幻动漫</A> | <A
class=strong href="listbook.asp?Bl_class=7"
>散文诗词</A> | <A
class=strong href="listbook.asp?Bl_class=8""
></A><A class=strong
href="listbookqb.asp"
>全本作品</A> |
<A
class=strong href="listupdate.asp?status=down"
>所有图书</A></FONT></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=1 bgColor=#bdcfec><IMG height=1
src="images/space.gif" width=1
tppabs="http://www.okqq.net/img/space.gif"></TD>
<TD vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width="69%" bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD background=images/menu_02_bg.gif
height=28
tppabs="http://www.okqq.net/img_menu/menu_02_bg.gif">
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width="28%">
<TABLE cellSpacing=0 cellPadding=0 width="72%"
border=0>
<TBODY>
<TR>
<TD><FONT
color=#edf3fe>::
<%kind=hx(bl_class-1)%>
当前类别:<strog><%=kind%></strong>
:::</FONT></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top align=right width="72%"> <a href="listupdate.asp?status=down"><font color=white> <span class="xt"> 分类排序- <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=A">A</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=B">B</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=C">C</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=D">D</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=E">E</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=F">F</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=G">G</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=H">H</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=I">I</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=J">J</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=K">K</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=L">L</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=M">M</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=N">N</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=O">O</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=P">P</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=Q">Q</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=R">R</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=S">S</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=T">T</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=U">U</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=V">V</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=W">W</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=X">X</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=Y">Y</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=Z">Z</A> <A
href="listbookpy.asp?bl_class=<%=bl_class%>&bl_first=0">其他</A> <A href="listbookdj.asp?bl_class=<%=bl_class%>">
点击</A> <A
href="listbooktj.asp?bl_class=<%=bl_class%>">推荐</A> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 valign="top">
<TBODY>
<TR bgColor=#eeeeee height=24>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="100%">类别</TD>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="100%">书名</TD>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="100%">最新章节</TD>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="100%">更新时间</TD>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="100%">作者</TD>
<TD class=xt style="BORDER-TOP: black 1px solid" vAlign=center
align=middle width="7%">状态</TD>
</TR>
<TR>
<TD class=xt style="PADDING-TOP: 5px" width="100%" colSpan=5>
<TR bgColor=#ffffff height=24>
<TD colspan="6" align=middle vAlign=top class=xt><%strs=geturl("http://www.cmfu.com/listbookpy.asp?bl_class="&request("bl_class")&"&bl_first="&request("bl_first"))
Set objRegExp = New Regexp'设置配置对象
objRegExp.IgnoreCase = True'忽略大小写
objRegExp.Global = True'设置为全文搜索
objRegExp.Pattern ="(<tr bgcolor=#ffffff height=24>.*)" '搜索字符串
Set Matches=objRegExp.Execute(strs)'开始执行搜索
For Each Match in Matches
RetStr =Match.Value'执行第二轮的匹配
Next
response.write retstr
set objRegExp=nothing
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
%></TD>
</TR>
</TBODY>
</TABLE> <br>
<br></TD></TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=80>
<TABLE height=70 cellSpacing=0 cellPadding=0 width="100%"
border=0><TBODY>
<TR>
<TD vAlign=top background=images/copyright_bg.jpg
tppabs="http://www.okqq.net/img/copyright_bg.jpg">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=10 src="images/space.gif"
width=10
tppabs="http://www.okqq.net/img/space.gif"></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=758 align=center
border=0>
<TBODY>
<TR>
<TD align=middle><A
href="javascript:ProFile(0)">广告投放</A> | <A
href="javascript:ProFile(1)">关于我们</A> | <A
href="javascript:ProFile(2)">联系方法</A> | <A
href="javascript:ProFile(3)">合作机会</A> | <A
href="javascript:ProFile(4)">诚邀加盟</A> | 站务论坛</TD></TR>
<TR>
<TD class=vasmall align=middle
height=28><STRONG>Copyright© 2000-2003 <FONT
color=#ba6a29>WWW.ZHJH.COM</FONT> All Rights
Reserved</STRONG></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=images/xian1.gif
tppabs="http://www.okqq.net/img/xian1.gif"><IMG height=1
src="images/space.gif" width=1
tppabs="http://www.okqq.net/img/space.gif"></TD></TR>
<TR>
<TD
bgColor=#a3bfda> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=10 background=images/right_shadow.gif
tppabs="http://www.okqq.net/img/right_shadow.gif"><IMG height=1
src="images/space.gif" width=10
tppabs="http://www.okqq.net/img/space.gif"></TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?