listupdate.asp
来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 166 行
ASP
166 行
<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="http://www.okqq.net/img/bg.gif" marginheight="0" marginwidth="0">
<table width="778" border="0" align="center" class="center_tdbgall" cellpadding="0" cellspacing="0" bgcolor="#f6f6f6">
<tr>
<td>
<TABLE cellSpacing=0 cellPadding=0 width="776" align=center bgColor=#edf3fe border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<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>::
当前类别:<strog>所有作品</strong>
:::</FONT></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top align=right width="72%"> </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
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">类别</TD>
<TD width="21%"
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">书名</TD>
<TD width="38%"
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">最新章节</TD>
<TD width="13%"
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">更新时间</TD>
<TD width="13%"
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">作者</TD>
<TD width="7%"
align=middle vAlign=center bgcolor="#a3bfda" class=xt style="BORDER-TOP: black 1px solid">状态</TD>
</TR>
<TR>
<TD class=xt style="PADDING-TOP: 5px" colSpan=5>
<SCRIPT lauguage="javascript">
function putlist(rs0,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8)
{
document.write("<tr bgcolor=#ffffff height=24>");
document.write("<td class=xt align=center valign=top>"+rs7+"</td>");
document.write("<td class=xt align=left valign=top><a href='showbook.asp?bl_id="+rs0+"' target=_blank>"+rs2+"</a></td>");
document.write("<td class=xt align=left valign=top><a href=readchapter.asp?bl_id="+rs0+"&bu_id="+rs8+" target=_blank>"+rs4+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs3+"</td>");
document.write("<td class=xt align=center valign=top><a href='showauthor.asp?ba_id="+rs6+"' target=_blank>"+rs1+"</a></td>");
document.write("<td class=xt align=center valign=top>"+rs5+"</td></tr>");
}
</SCRIPT>
<%
strs=geturl("http://www.cmfu.com/listupdate.asp?pageid="&request("pageid")&"&status=down")
Set objRegExp = New Regexp'设置配置对象
objRegExp.IgnoreCase = True'忽略大小写
objRegExp.Global = True'设置为全文搜索
objRegExp.Pattern ="(<script lauguage=javascript>putlist.* </td>)" '搜索字符串
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
%>
</TR></TBODY></TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE></TD>
</TR></TBODY></TABLE>
</TD>
</TR>
</TABLE>
<!--#include file="bottom.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?