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

PCIBM 2004-04-30 03:53:54
可能是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
...全文
30 9 点赞 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wanghr100 2004-04-30
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
%>


你自己修饰吧.功能都实现的.
  • 打赏
  • 举报
回复
luluso 2004-04-30
不错不错!
  • 打赏
  • 举报
回复
wanghr100 2004-04-30
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
%>
  • 打赏
  • 举报
回复
PCIBM 2004-04-30
谢谢 wanghr100(灰豆宝宝.net)
  • 打赏
  • 举报
回复
PCIBM 2004-04-30
歌曲名称 歌手 大小 格式 协议 连通率 试听 下载 和弦 铃声

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

只把 共有 × 结果 调出
  • 打赏
  • 举报
回复
luluso 2004-04-30
wanghr100(灰豆宝宝.net) 好棒!
  • 打赏
  • 举报
回复
歪歪 2004-04-30
up
  • 打赏
  • 举报
回复
wanghr100 2004-04-30
就是用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>结果"
%>
  • 打赏
  • 举报
回复
PCIBM 2004-04-30
没有人帮忙:(
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-04-30 03:53
社区公告
暂无公告