⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 music_musicxx.asp

📁 WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼
💻 ASP
字号:
🔍 
<%
Server.ScriptTimeOut=10000
Response.Buffer=true
on error resume next
%>
<html>
<head>
<title>抓歌程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE TYPE=text/css><!--
body, td, p, div {font-size:12px;font-family:宋体;}
BODY
A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	COLOR: #333333; TEXT-DECORATION: none
}
A:active {
	TEXT-DECORATION: none
}
A:hover {
	COLOR: #0000ff; TEXT-DECORATION: underline
}
.underline {
	COLOR: #000099; FONT-SIZE: 9pt; LINE-HEIGHT: 12pt; TEXT-DECORATION: underline
}--></STYLE>
<style>
	body{font-size:12px}
</style>
</head>
<body>
<SCRIPT language=JavaScript>
<!--
function call(htmlurl){
var
newwin=window.open(htmlurl,"newsssWin_searchout","top=150,left=150,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=500,height=280");
newwin.focus();
return false;
}
//-->
</SCRIPT>
<script>
function checkid(thefrm)
{
if (thefrm.key.value=="")
{
alert("请输入关键字！")
return false
}
return true
}
</script>
<form name="form1" method="post" action="?" onsubmit="return checkid(this)">
  <table width="75%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
    <tr> 
      <td colspan="2" align="center" bgcolor="#FFFFFF">Csk3000抓歌程序-服务器资源:<a href="http://www.sougua.com/" target="_blank">搜刮</a></td>
    </tr>
    <tr> 
      <td width="42%" rowspan="2" align="center" bgcolor="#FFFFFF">输入关键字</td>
      <td width="58%" bgcolor="#FFFFFF"> <input name="key" type="text" id="key" value="<%=Request.form("id1")%>" ></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"></td>
    </tr>
    <tr> 
      <td align="center" bgcolor="#FFFFFF"><a href="http://www.81238.net/class2/bbs" target="_blank">进入论坛</a></td>
      <td bgcolor="#FFFFFF"><input name="action" type="submit" id="action" value="提交"></td>
    </tr>
    <tr align="left"> 
      <td colspan="2" bgcolor="#FFFFFF" style="font-size:12px"><p><br>
          &nbsp;程序简介：<br>
          &nbsp;&nbsp;&nbsp;&nbsp; 本程序使用“<font color="#FF0000">MSXML2.XMLHTTP</font>”对象搜索远程服务器上的数据，并将其信息处理得到所需要的真实歌曲地址，演唱者和歌曲，类似于新浪新闻小偷程序和Yahoo天气预报程序。<br>
          &nbsp; 使用方法：在ID范围内输入两个数字，后者大于前者，并且为了服务器的稳定性，两者之差不要大于2000。<a href="http://www.81238.net/class2/bbs" target="_blank">欢迎进入论坛进行讨论和交流</a> 
          。</p>
        <p align="center"><br>
          <a href="http://www.81238.net/class2" target="_blank"><img src="http://www.81238.net/class2/images/logo.gif" alt="自由空间" width="88" height="31" border="0"></a> 
          <br>
        </p></td>
    </tr>
    <tr> 
      <td colspan="2" align="center" bgcolor="#FFFFFF" style="font-size:12px">版权所有: 
        <a href="http://www.81238.net/class2" target="_blank"><font color="#FF0000">自由空间工作室</font></a>　Power 
        By Csk3000</td>
    </tr>
  </table>
</form>
</body>
</html>
<%
'字节转化成字符串函数
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 getHTTPPage(url)
dim http
set http=createobject("MSXML2.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 dealhttppage(httpstr)
	dim dealstr
	dealstr=httpstr
	if  INstr(dealstr,"服务器错误")>0  or dealstr="" or isnull(dealstr) then
		exit function	
	else
		getinfo(dealstr)
	end if
end function

function getinfo(str)
	dim songurl,tempstr,intstart,intend,tempstr1,tempstr2
	dim songartist
	
	tempstr=str
	intstart=Instr(tempstr,"id=""AutoNumber8"">")+len("id=""AutoNumber8"">")
	tempstr1=mid(tempstr,intstart)
	intend=Instr(tempstr1,"</table>")-len("</table>")
	songartist=left(tempstr1,intend)
	songartist=Replace(songartist,"images","images")
	songartist=Replace(songartist,"search.asp?key=","?key=")
	Response.write "<br>&nbsp;结果：<table border='0' cellpadding='0' cellspacing=0 style='border-collapse: collapse' bordercolor='#111111' width='650'    align='center'>"&songartist&"</table>"
	Response.Flush

	

	Response.Flush
end function
dim teststr,id,key
key=Request("key")

Response.write "<center>搜索关键字："&key&"</center>"
page=Request("page")
if page="" or (not isnumeric(page)) then
	page=1
end if
if key<>"" then
	teststr=getHTTPPage("http://search.sogua.com/search/search.asp?key="&key&"&page="&page)
	dealhttppage(teststr)
end if

%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -