📄 related_left.asp
字号:
<!--#Include File="@Include/_Global.asp"-->
<!--#Include File="@Include/_Proxy.asp"-->
<%
Function GetRelated(GInfo)
GetRelated = GInfo
Num1 = inStr(GetRelated,"<td height=""25""><b><font class=""text_b03"">推荐搜索：</font></b></td>")
If Num1 = 0 Then Num1 = inStr(GetRelated,"<td height=""25""><b><font class=""text_b03"">热门搜索：</font></b></td>")
Num2 = inStr(GetRelated,"<td align=""center""><a class=""link_b08"" href=""http://www.51zhj.com/"" target=_blank><font color=red>下载“广告拦截助手”</font></a></td>")
If Num1 > 1 And Num2 > 1 Then
GetRelated = Mid(GetRelated,Num1,Num2-Num1)
Else
Response.write Num1 &"NOT FOUND"& Num2
End If
GetRelated = ReplaceValue(GetRelated,"\/images\/","images/")
GetRelated = ReplaceValue(GetRelated,"http:\/\/www.yok.com\/search.php","./Search.asp")
GetRelated = ReplaceValue(GetRelated,"http:\/\/www.yok.com\/band.php\?keyword=","./Band.asp?cls="& Request("CLS") &"&keyword=")
End Function
Function Frame_Related()
Set Porxy = New ProxyClass
Porxy.IsDebug = 1
Porxy.SetStreamName = "ADODB.Stream"
Porxy.SetXMLHttpName = "Msxml2.XMLHTTP.5.0"
cNumber = Request("NO")
KeyWord = Request("keyword")
If cNumber = "" Or Not IsNumeric(cNumber) Then cNumber = 8
If KeyWord = "" Then KeyWord = "中国"
If Porxy.Create() = False Then
Response.Write "服务器繁忙"
Response.end
End If
ReadURL = "http://related.yok.com/related_left.php?keyword="& KeyWord &"&no="& cNumber
If Porxy.RemoteRead(ReadURL) = True Then
GetInfo = Porxy.PorxyReturn()
Response.write GetRelated(GetInfo)
Else
Response.Write "服务器繁忙"
Response.end
End If
End Function
%>
<html>
<head>
<title><%=h_Name%>超级搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style/style.css" rel="stylesheet" type="text/css">
</head>
<center>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="10" rightmargin="0" bottommargin="0">
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="140" >
<tr>
<td height="10"></td>
</tr>
<%=Frame_Related%>
<tr>
<td align="center"><a class="link_b08" href="#"><font color=red>下载“广告拦截助手”</font></a></td>
</tr>
<tr>
<td height="10"></td>
</tr>
<tr>
<td><p style="line-height: 150%"><font class="text_b10">温馨提示：点击关键字，可查看搜索结果。</font></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
</div>
</body>
</center>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -