📄 msearch.asp
字号:
<%Function bytes2BSTR(vIn)
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
dim Sword,page,Url,SourceCode,SeCondent,Setop,SeEnd
dim betw,first
Sword=trim(Request("word"))
if Sword="" then
response.redirect "./?key=music"
response.end
end if
if Request("pn")="" then
page=0
else
page=Request("pn")
end if
dim tn,ct,lm
tn=request("tn")
if tn="" or tn="wrsearch" then
tn="baidump3"
end if
ct=request("ct")
if ct="" then
ct="134217728"
end if
lm=trim(request("lm"))
if lm="" then
lm="-1"
end if
Url = "http://www.baidu.com/m?word="&Sword&"&pn="&page&"&tn="&tn&"&ct="&ct&"&lm="&lm
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)
if instr(SourceCode,"建议您检查输入文字有无错误")=0 then
betw=instr(SourceCode,"<TABLE bgColor=#e6e6e6 border=0 cellPadding=0 cellSpacing=0")-instr(SourceCode,"</ol>")
first=instr(SourceCode,"<TABLE bgColor=#e6e6e6 border=0 cellPadding=0 cellSpacing=0")
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"/baidu?","search.asp?")
tt1=split(SourceCode,"<ol>")
Setop="网人搜索"&Mid(tt1(0),instr(tt1(0),"为"),abs(instr(tt1(0),"为")-instr(tt1(0),"秒")))&"秒"
if request("tn")<>"baidump3lyric" then
betw=instr(tt1(0),"<table width=580 ")-instr(tt1(0),"<table width=175 ")
first=instr(tt1(0),"<table width=580 ")
SourceCode = Mid(tt1(0),first,abs(betw))
SeCondent = "<ol>"
SeCondent = SeCondent & replace(replace(left(SourceCode,instr(SourceCode,"</table>")+7),"/m?","msearch.asp?"),"","")
else
betw=instr(tt1(0),"<table width=""580"" ")-instr(tt1(0),"<table width=175 ")
first=instr(tt1(0),"<table width=""580"" ")
SourceCode = Mid(tt1(0),first,abs(betw))
SeCondent = "<ol>"
SeCondent = SeCondent & replace(left(SourceCode,instr(SourceCode,"<td width=175>")-14),"http://www.baidu.com/m","msearch.asp")
end if
SeCondent = replace(SeCondent,"手机铃声","") & " </ol> "
SeEnd = "<img border=0 src=images/bz.gif width=43 height=52 align=absmiddle> "&replace(left(tt1(1),instr(tt1(1),"<br><br>")-1),"href=m","href=msearch.asp")
SeEnd="<table border='0' style='border-collapse: collapse' width='100%' cellpadding='0'><tr><td width='11'><img border='0' src='images/pageleft.gif' width='11' height='56'></td><td background='images/pagebg.jpg'><b>"&SeEnd&"</b></td><td background='images/pagebg2.gif' width='52'><a href='#'><img border='0' src='images/gotop.gif' width='52' height='27'></a></td><td width='13'><img border='0' src='images/pageright.gif' width='13' height='56'></td></tr></table>"
else
SeCondent="<br><table width=100% border=0 id=table1><tr><td vAlign=top colSpan=2 style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt>未找到相关结果，建议您:</font></td><td vAlign=top rowSpan=2 style=font-size: 9pt; line-height: 18px> </td></tr><tr><td width=100 style=font-size: 9pt; line-height: 18px> </td><td vAlign=top width=70% style=font-size: 9pt; line-height: 18px><font style=FONT-SIZE: 12pt><ol><li>检查输入文字有无错误，或换用更少的文字查询。<br><br></li><li>到<a href=http://bbs.wrclub.net/v2/list.asp?boardid=38>搜索援助中心</a>寻求帮助，或学习<a href=jiqiao.html>搜索技巧</a>。 </li></ol></font></td></tr></table></br>"
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<META content="网人帝国,网人搜索,wrclub,wrsearch" name=keywords>
<META content="网人帝国,网人搜索,wrclub,wrsearch" name=description>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网人搜索(音乐搜索：<%=Sword%>)：网人帝国{全球中文搜索引擎前十名}</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
<style>
<!--
.f9 { font-size: 12px}
-->
</style>
</head>
<SCRIPT language=JavaScript>
<!--
if (window.name == 'nw') { window.name = '';}
function ga(o,e){if (document.getElementById){a=o.id.substring(1); p = "";r = "";g = e.target;if (g) { t = g.id;f = g.parentNode;if (f) {p = f.id;h = f.parentNode;if (h) r = h.id;}} else{h = e.srcElement;f = h.parentNode;if (f) p = f.id;t = h.id;}if (t==a || p==a || r==a) return true;window.open(document.getElementById(a).href,'_blank')}}
function syn(form)
{if (form.lm[0].checked){
form.rn.value="10";
form.tn.value="baidump3lyric";
form.ct.value="150994944";
} else {
form.tn.value="baidump3";
form.ct.value="134217728";
}}
function g(){
var url
url="msearch.asp?tn=baidump3ring&ct=285212672&lm=-1&word="+document.wrsearch.word.value;
window.location.href=url;
}
function killErrors() {return true;}
window.onerror = killErrors;
function h(obj,url){
obj.style.behavior='url(#default#homepage)';
obj.setHomePage(url);
}
if (top.location !== self.location) {
top.location=self.location;
}
//-->
</script>
<body topmargin="0" leftmargin="0">
<!--#include file="head.inc"-->
<table style="BORDER-COLLAPSE: collapse" borderColor="#111111" height="22" cellPadding="0" width="100%" border="0" bgcolor="#F0F0F0">
<tbody>
<form name=wrsearch action="msearch.asp" onSubmit="syn(this)"><tr>
<td height="26"><img src= http://un.baidu.com/images/st.gif?tn=yzcity width=0 height=0>
<p> <input type=hidden name=rn> <input type=hidden name=tn value=baidump3> <input type=hidden name=ct value=134217728>
<input class="ibox" size="70" name="word" value="<%=Sword%>"><input type="image" alt="搜" src="images/search_but.gif" align="absMiddle" border="0"> </td>
</tr>
<tr>
<td height="20">
<input name = lm type=radio value=-1>歌词
<input name = lm type=radio checked value=-1>全部音乐
<input name = lm type=radio value=0>mp3
<input name = lm type=radio value=1>rm
<input name = lm type=radio value=4>ram
<input name = lm type=radio value=2>wma </td>
</tr>
</form>
<tr>
<td height="9">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table2">
<tr bgColor="#5d90de">
<td width="20" background="result_back1.gif" bgcolor="#16A6D3">
<br>
</td>
<td vAlign="bottom" background="result_back1.gif" height="30" bgcolor="#16A6D3"><!-- search bar -->
<table cellSpacing="0" cellPadding="0" border="0" id="table3">
<tr align="middle">
<td noWrap width="90">
<p align="center"><b><a href="search.asp?word=<%=server.urlencode(Sword)%>" class=title2>网页搜索</a></b></p>
</td>
<td width="7">
<img height="26" src="images/result_left1.gif" width="7" border="0"></td>
<td noWrap width="70" background="images/result_back2.gif">
<b class="title1">音乐搜索</b></td>
<td width="7">
<img height="26" src="images/result_right1.gif" width="7" border="0"></td>
<td noWrap width="90">
<p align="center"><b><a href="flash.asp?word=<%=server.urlencode(Sword)%>" class=title2>动画搜索</a></b></p>
</td>
<td noWrap width="90">
<p align="center"><b><a href="news.asp?word=<%=server.urlencode(Sword)%>" class=title2>新闻搜索</a></b></p>
</td>
<td noWrap width="90">
<p align="center"><b><a href="pic.asp?word=<%=server.urlencode(Sword)%>" class=title2>图片搜索</a></b></p>
</td>
</tr>
</table>
</td>
<td vAlign="top" noWrap align="right" background="result_back1.gif" height="30" bgcolor="#16A6D3">
<img height="21" src="images/result_dot1.gif" width="14" border="0">
<a class="title3" href="#">使用帮助</a> <img height="21" src="images/result_dot1.gif" width="14" border="0"><a class="title3" href="#">
网站推广</a>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -