searchbook.asp

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

ASP
116
字号
<%
s_class=request("s_class")
s_book=request("s_book")
strs=geturl("http://www.cmfu.com/searchbook.asp?s_class="&s_class&"&s_book="&s_book)
strs=trim(strs)
strs=split(strs,"cellPadding=0 cellSpacing=0 width=100% valign=top")
hx=strs(2)
hx=replace(hx,"green","#a3bfda")
hx="<d"&hx


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">
<link href="http://www.jywin.com/jywin.css" rel="stylesheet" type="text/css">
<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>
<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%">&nbsp;</TD>
                                        <TD vAlign=top align=right width="72%">&nbsp;</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 + =
减小字号Ctrl + -
显示快捷键?