Entrez le site Web de www.ting88.com, copiez l'URL de la page de l'album du chanteur dans la zone de texte et soumettez-la pour obtenir le chemin de téléchargement de la chanson, telle que: http://www.ting88.com/musiclist/4141.htm
Le programme source est le suivant:
<%
onerrorresumenext
Dimid, Url, getcode, m, i, j, s, d, ns, nd, ns, num, nom
id = trim (request.QueryString ("id"))
'1. Obtenez tous les contenus de la page d'origine
FonctionGethTTPPAGE (URL)
dimhttp
setThttp = server.createObject ("Microsoft.xmlhttp")
Http.open "get", URL, faux
Http.send ()
ifhttp.readystate <> 4Then
sortie
endire
GethTTPPAGE = BYTESTOBSTR (Http.ResponseBody, "GB2312")
setTHTP = rien
iferr.number <> 0TheRerr.Clear
Finition de fin
'2. Encodage de conversion
FunctionByTestobstr (corps, 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 = rien
Finition de fin
'Obtenez l'URL explicite
FonctionMyreplace (Convstr)
Convstr = remplacer (Convstr, "yvi", "1")
Convstr = remplacer (Convstr, "esr", "2")
Convstr = remplacer (Convstr, "sxn", "3")
Convstr = remplacer (Convstr, "sti", "4")
Convstr = remplacer (Convstr, "WFU", "5")
Convstr = remplacer (Convstr, "lqu", "6")
Convstr = remplacer (Convstr, "qgi", "7")
Convstr = remplacer (Convstr, "Bla", "8")
Convstr = remplacer (Convstr, "JFU", "9")
Convstr = remplacer (Convstr, "LSN", "0")
Convstr = remplacer (Convstr, "xpg", "/")
Convstr = remplacer (Convstr, "xqd", ".")
Convstr = remplacer (Convstr, "", "")
Convistr = remplacer (convistr, "% 20", "")
Convstr = remplacer (Convstr, "KWD", "WMA")
Myreplace = convistr
finition de fin
ifid = "1" puis
url = trim (request.form ("txtul"))
ifurl = "" alors
réponse.redirect ("getmusic.asp")
réponse.end ()
endire
'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) 'Obtenez le nombre de chansons
name = mid (getcode, instlin (getcode, "nom du chanteur:") + 5,10) 'Get Singer
m = "http://218.75.78.189/33445566/"
Response.Write "<Ander> La page a trouvé un total de" & name & "Songs" & "<br/> <br/>" par "& name &" dans cette page.