有对音乐小偷原理了解的吗？

[PCIBM]

可能是sogua.COM改了变量，音乐小偷用不了，谁可以帮忙改一下（在music.asp这页）改完后麻烦传music.asp给我就60分。QQ 71385642

http://www.luomz.com/soft/1994.htm

http://www.luomz.com/down.asp?id=1994&no=1

[PCIBM]

没有人帮忙：（

• 打赏
• 举报

回复 赞

[wanghr100]

就是用XMLHTTP.发送请求,返回网站的HTML代码.
再对HTML代码进筛选.取出有用的代码.
就是InStr(),Mid()这两个函数的运用.

t.asp

<a href="music.asp?key=%B0%A2%D1%C5"><u><font color="#000000">阿雅</font></u></a>


music.asp

<%
on error resume next

Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

if Request("page")="" then
page=1
else
page=Request("page")
end if

if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
Url = "http://search.sogua.com/search/search.asp?key='"&Request("key")&"'&page="&page&F
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)
MusicNumStart = InStr(SourceCode,"共为你找到了")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"个结果")
MusicNums = Mid(SourceCode,MusicNumStart+6,MusicNumEnd-MusicNumStart-6)
Response.Write "共有<font color="&CHR(34)&"#FF0000"&CHR(34)&">"&MusicNums&"</font>结果"
%>

• 打赏
• 举报

回复 赞

[歪歪]

up

• 打赏
• 举报

回复 赞

[luluso]

wanghr100(灰豆宝宝.net) 好棒!

• 打赏
• 举报

回复 赞

[PCIBM]

歌曲名称 歌手 大小 格式 协议 连通率 试听 下载 和弦 铃声

还有这些如何调出呢？
wanghr100(灰豆宝宝.net)

只把 共有 × 结果 调出

• 打赏
• 举报

回复 赞

[PCIBM]

谢谢 wanghr100(灰豆宝宝.net)

• 打赏
• 举报

回复 赞

[wanghr100]

music.asp

<%
on error resume next

Const adTypeBinary = 1
Const adTypeText = 2
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin

.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing

Bytes2bStr = StringReturn

End Function

if Request("page")="" then
page=1
else
page=Request("page")
end if

if Request("fmp3")="" then fmp3=0 else fmp3=1
if Request("frm")="" then frm=0 else frm=1
if Request("fwma")="" then fwma=0 else fwma=1
if Request("fasf")="" then fasf=0 else fasf=1
if Request("fexe")="" then fexe=0 else fexe=1
if Request("fzip")="" then fzip=0 else fzip=1
if Request("frar")="" then frar=0 else frar=1
F="&fmp3="&fmp3&"&frm="&frm&"&fwma="&fwma&"&fasf="&fasf&"&fexe="&fexe&"&fzip="&fzip&"&frar="&frar
Url = "http://search.sogua.com/search/search.asp?key='"&Request("key")&"'&page="&page&F
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)
MusicNumStart = InStr(SourceCode,"共为你找到了")
MusicNumEnd = InStr(MusicNumStart,SourceCode,"个结果")
MusicNums = Mid(SourceCode,MusicNumStart+6,MusicNumEnd-MusicNumStart-6)
Response.Write "共有<font color="&CHR(34)&"#FF0000"&CHR(34)&">"&MusicNums&"</font>结果"

musicTag = "<div align=""center"">"
SongStart = InStr(SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongStart = InStr(SongStart+20,SourceCode,musicTag)
SongEnd = InStr(SongStart+20,SourceCode,musicTag)
SongList = Mid(SourceCode,SongStart+20,SongEnd-SongStart-20)
Response.Write SongList

SongPageStart = InStr(SourceCode,"<td width=""597"" height=""20"" colspan=""2"">")
SongPageEnd = InStr(SongPageStart,SourceCode,"下一页")
SongPage = Mid(SourceCode,SongPageStart+40,SongPageEnd-SongPageStart-40+3)
SongPage = Replace(SongPage,"'","")
SongPage = Replace(SongPage,"search.asp","music.asp")
Response.Write SongPage
%>

• 打赏
• 举报

回复 赞

[luluso]

不错不错!

• 打赏
• 举报

回复 赞

[wanghr100]

view.asp

<%
Function bytes2BSTR(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,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 viewCode(url)
Set baoxmlhttp = CreateObject("Msxml2.xmlhttp")
With baoxmlhttp
.Open "GET", url, False, "", ""
.Send
viewCode = bytes2BSTR(.ResponseBody)
End With
Set baoxmlhttp = Nothing
End Function
url="http://search.sogua.com/search/view.asp?no="&Request("no")&"&key="&Request("key")
SourceCode=viewCode(url)
SongAddressStart = InStr(SourceCode,"文件名称")
SongAddressStart = InStr(SongAddressStart,SourceCode,"<td width=""338"">")
SongAddressEnd = InStr(SongAddressStart,SourceCode,"</td>")
SongAddress = Mid(SourceCode,SongAddressStart+16,SongAddressEnd-SongAddressStart)
Response.Write SongAddress
%>


你自己修饰吧.功能都实现的.

• 打赏
• 举报

回复 赞