Enter the website of www.ting88.com, copy the URL of the singer's album page to the text box and submit it to get the download path of the song, such as: http://www.ting88.com/MusicList/4141.htm
The source program is as follows:
<%
onerrorresumenext
dimid,url,getCode,m,i,j,s,d,ns,nd,ns,num,name
id=trim(request.querystring("id"))
'1. Get all contents of the original page
FunctiongetHTTPPage(url)
dimhttp
setthttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
setthttp=nothing
iferr.number<>0thenerr.Clear
Endfunction
'2. Encoding conversion
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
'Get the explicit 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)'Get the number of songs
name=mid(getCode,instr(getCode,"singer name:")+5,10)'Get singer
m="http://218.75.78.189/33445566/"
response.write"<center>The page found a total of "&name&" songs "&"<br/><br/>" by "&name&" in this page.