📄 show.asp
字号:
<!--#include file="setup.asp" -->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
dim keyword
dim url
keyword=Request.QueryString("keyword")
url=Request.QueryString("url")
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<body vlink="#990000" alink="#00CC00" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<!--#include file="top.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25">您的查询字词都已标明如下：<%=keyword%></td>
</tr>
<tr>
<td height="25"><%=WebSite_Title%>和网页<%=url%> 的作者无关，不对其内容负责。</td>
</tr>
</table>
</div>
<%
Server.ScriptTimeOut=90
function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function NewString(wstr,strng)
NewString=Instr(wstr,strng)
End Function
dim SourceCode
url=url
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if
SourceCode = bytes2BSTR(oSend.responseBody)
SourceCode =replace(SourceCode,""&chr(34)&"","")
SourceCode =replace(SourceCode,"src=","src="&url&"/")
SourceCode =replace(SourceCode,"href=","href="&url&"/")
%>
<%=replace(SourceCode,keyword,"<b style=color:black;background-color:#ffff66>"&keyword&"</b>")%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -