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

2004-04-30 03:53:54 149 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

机器学习项目（四）疫情期间网民情绪识别（一）疫情期间网民情绪识别赛题背景 2019新型冠状病毒（2019-nCoV）感染的肺炎疫情发生对人们生活生产的方方面面产生了重要影响，并引发国内舆论的广泛关注，众多网民参与疫情相关话题的讨论。为了帮助政府掌握真实社会舆论情况，科学高效地做好防控宣传和舆情引导工作，本赛题针对疫情相关话题开展网民情绪识别的任务。数据介绍训练集 10万条无标记样本90万条测试集1万条数据集依据与“新冠肺炎”相关... 阅读详情

可能是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

...全文

STM32 RT-Thread 系统分析（1）- 启动文件 RT-Thread STM32 系统分析（1）- 启动文件前言基本信息前言说明三级目录前言基本信息名称描述说明 RT-Thread Studio 软件版本版本: 1.1.3 RT-Thread 系统版本 4.0.2 STM32CubeIDE 软件版本 1.4.0 STM32芯片型号 STM32F013VG 前言说明使用了STM32CubeIDE 和 RT-Thread Studio 建立了相同型号芯片的工程，对比其中启动文件内容差异如下：左侧是RT-Threa 阅读详情

PCIBM

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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 "共有"&MusicNums&"结果"

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

打赏
举报

wanghr100 2004-04-30

打赏
举报

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

t.asp

<a href="music.asp?key=%B0%A2%D1%C5">阿雅</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 "共有"&MusicNums&"结果"
%>

PCIBM 2004-04-30

打赏
举报

没有人帮忙：（

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

相关推荐