進入www.ting88.com的網站,把歌手專輯頁面的URL複製到文本框中再提交就可以得到歌曲的下載路徑,如:http://www.ting88.com/MusicList/4141.htm
源程序如下:
<%
onerrorresumenext
dimid,url,getCode,m,i,j,s,d,ns,nd,num,name
id=trim(request.querystring("id"))
'1.獲取原網頁所有內容
FunctiongetHTTPPage(url)
dimhttp
sethttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number<>0thenerr.Clear
Endfunction
'2.編碼轉換
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.createObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
'得到明碼URL
functionMyReplace(ConvStr)
ConvStr=replace(ConvStr,"YVI","1")
ConvStr=replace(ConvStr,"ESR","2")
ConvStr=replace(ConvStr,"SXN","3")
ConvStr=replace(ConvStr,"STI","4")
ConvStr=replace(ConvStr,"WFU","5")
ConvStr=replace(ConvStr,"LQU","6")
ConvStr=replace(ConvStr,"QGI","7")
ConvStr=replace(ConvStr,"BLA","8")
ConvStr=replace(ConvStr,"JFU","9")
ConvStr=replace(ConvStr,"LSN","0")
ConvStr=replace(ConvStr,"XPG","/")
ConvStr=replace(ConvStr,"XQD",".")
ConvStr=replace(ConvStr,"","")
ConvStr=replace(ConvStr,"%20","")
ConvStr=replace(ConvStr,"KWD","Wma")
MyReplace=ConvStr
endfunction
ifid="1"then
url=trim(request.form("txturl"))
ifurl=""then
response.redirect("GetMusic.asp")
response.end()
endif
'url="http://www.ting88.com/MusicList/1454.htm"
s=0
d=0
ns=0
nd=0
getCode=getHTTPPage(url)
num=mid(getCode,instrrev(getCode,".<ahref")-3,2)'獲取歌曲的數目
name=mid(getCode,instr(getCode,"歌手姓名：")+5,10)'獲取歌手
m="http://218.75.78.189/33445566/"
response.write"<center>該面頁共找到"&name&"的<fontcolor=red>"&num&"</font>首歌曲"&"<br/><br/>"