📄 readbook.asp
字号:
<%
bl_id=request("bl_id")
strs=geturl("http://www.cmfu.com/readbook.asp?bl_id="&bl_id)
strs=trim(strs)
strs=split(strs,"<b>")
hx="<table border=0 cellPadding=0 cellSpacing=0 width=98% valign=top align=center>"
hx=hx&"<tr><td valign=top align=center width=100% style=""FONT-SIZE: 18.5pt;color:#FF6666;font-family:隶书""><b>"
hx=hx&strs(1)
hx=replace(hx,"#ccffcc","#1f458b")
'hx=replace(hx,"#CCCCCC","#a3bfda")
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="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%"> </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 width="100%" height="100">
<tr>
<td><%=hx%></td>
</tr>
</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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -