Digite o site de www.ting88.com, copie o URL da página do álbum do cantor para a caixa de texto e envie -a para obter o caminho de download da música, como: http://www.ting88.com/musiclist/4141.htm
O programa de origem é o seguinte:
<%
OnErrorReSumenext
dimid, url, getcode, m, i, j, s, d, ns, nd, ns, num, nome
id = trim (request.QueryString ("id")))
'1. Obtenha todo o conteúdo da página original
Functiongethttppage (URL)
dimhttp
setthttp = server.createObject ("Microsoft.xmlHttp")
Http.open "get", url, falso
Http.send ()
ifhttp.readyState <> 4Then
saída de saída
endif
gethttppage = bytestobstr (http.Responsebody, "GB2312")
setthttp = nada
iferr.number <> 0TheNerr.clear
Função final
'2. Codificação de conversão
FunctionByTestobstr (corpo, 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 = nada
Função final
'Pegue o URL explícito
FunctionMyPlace (Convstr)
Convst = substitua (convst, "yvi", "1")
Conn
Convst = substitua (convst, "sxn", "3")
Convst = substitua (convst, "sti", "4")
Convst = substitua (convst, "wfu", "5")
Convst = substitua (convst, "lqu
Convst = substitua (convst, "qgi", "7")
Convst = substitua (convst, "bla", "8")
Convst = substitua (convst, "jfu", "9")
Convst = substitua (convst, "lsn", "0")
Convst = substitua (convst, "xpg", "/")
Convstr = substitua (convst, "xqd", ".")
Convst = substitua (convst, "", "")
Convst = substitua (convst, "%20", "")
Conn
MyRplace = ConnSstr
Função final
ifid = "1" então
url = acabamento (request.form ("txturl")))
ifurl = "" então
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) 'Obtenha o número de músicas
Nome = MID (getCode, Instr (getCode, "Nome do cantor:")+5,10) 'Get Singer
m = "http://218.75.78.189/33445566/"
Response.Write "<Center> A página encontrou um total de" & Name & "Songs" & "<br/> <br/>" por "& name &" nesta página.