Ingrese el sitio web de www.ting88.com, copie la URL de la página del álbum del cantante en el cuadro de texto y envíelo para obtener la ruta de descarga de la canción, como: http://www.ting88.com/musiclist/4141.htm
El programa fuente es el siguiente:
<%
onerrorResumEnext
dimid, url, getcode, m, i, j, s, d, ns, nd, ns, num, nombre
id = trim (request.QueryString ("id"))
'1. Obtenga todo el contenido de la página original
Functiongethttppage (URL)
dimhttp
setThttp = server.CreateObject ("Microsoft.xmlhttp")
Http.open "Get", URL, falso
Http.send ()
ifhttp.readyState <> 4then
extinción
endif
gethttppage = bytestobstr (http.ResponseBody, "GB2312")
setthttp = nada
iferr.number <> 0thenerr.Clear
Función final
'2. Conversión de codificación
FunctionByTestObstr (Body, CSET)
dimobjstream
setobjstream = server.createObject ("ADODB.Stream")
objstream.type = 1
objstream.mode = 3
objstream.
objstream.WriteBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
Bytestobstr = objstream.readText
objstream.close
setobjstream = nada
Función final
'Obtenga la URL explícita
FunctionMyRePlace (convstrato)
Convstr = reemplazar (convstr, "yvi", "1")
Convstr = reemplazar (convstr, "ESR", "2")
Convstr = reemplazar (convstr, "sxn", "3")
Convstr = reemplazar (convstrente, "STI", "4")
Convstr = reemplazar (convstr, "wfu", "5")
Convstr = reemplazar (convstr, "LQU", "6")
Convstr = reemplazar (convstr, "QGI", "7")
Convstr = reemplazar (convstr, "bla", "8")
Convstr = reemplazar (convstr, "jfu", "9")
Convstr = reemplazar (convstr, "lsn", "0")
Convstr = reemplazar (convstr, "xpg", "/")
Convstr = reemplazar (convstr, "xqd", ".")
Convstr = reemplazar (convstr, "", "")
Convstr = reemplazar (convstrucir, "%20", "")
Convstr = reemplazar (convstr, "kwd", "wma")
Myreplace = convstruco
Función final
ifid = "1" entonces
url = trim (request.form ("txturl"))
ifurl = "" entonces
Respuesta.Redirect ("getMusic.asp")
respuesta.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, ". <href")-3,2) 'Obtenga el número de canciones
name = mid (getCode, instr (getCode, "Nombre del cantante:")+5,10) 'Get Singer
M = "http://218.75.78.189/33445566/"
Response.Write "<Center> La página encontró un total de" & Name & "Songs" & "<br/> <br/>" por "& name &" en esta página.