Geben Sie die Website von www.ting88.com ein, kopieren Sie die URL der Albumseite des Sängers in das Textfeld und senden Sie sie, um den Download -Pfad des Songs zu erhalten, z. B. http://www.ting88.com/musiclist/4141.htm
Das Quellprogramm lautet wie folgt:
<%
onErrorresumeNext
Dimid, URL, getcode, m, i, j, s, d, ns, nd, ns, num, name
id = trim (request.queryString ("id"))
'1. Holen Sie sich alle Inhalte der Originalseite
FUNKTIONSETHTTTPPAGE (URL)
Dimhttp
settThttp = server.createObject ("microsoft.xmlhttp"))
Http.open "get", url, falsch
Http.send ()
IFHTTP.REYYSTATE <> 4Then
Ausgangsfunktion
Endif
getttppage = byTestObstr (http.Responsebody, "GB2312")
settThttp = nichts
ifer.number <> 0Thenerr.clear
Endfunktion
'2. Codierung der Konvertierung
FunktionByTestObstr (Körper, 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 = nichts
Endfunktion
'Holen Sie sich die explizite URL
Funktionmyrplace (convstr)
Convstr = ersetzen (convstr, "yvi", "1")
Convstr = ersetzen (convstr, "ESR", "2")
Convstr = ersetzen (convstr, "sxn", "3")
Convstr = ersetzen (convstr, "STI", "4")
Convstr = ersetzen (convstr, "wfu", "5")
Convstr = ersetzen (convstr, "lqu", "6")
Convstr = ersetzen (convstr, "qgi", "7")
Convstr = ersetzen (convstr, "bla", "8")
Convstr = ersetzen (convstr, "jfu", "9")
Convstr = ersetzen (convstr, "lsn", "0")
Convstr = ersetzen (convstr, "xpg", "/")
Convstr = ersetzen (convstr, "xqd", ".")
Convstr = ersetzen (convstr, "," ")
Convstr = ersetzen (convstr, "%20", "")
Convstr = ersetzen (convstr, "kwd", "WMA")
MyReplace = convstr
Endfunktion
ifID = "1" dann
url = trim (request.form ("txturl"))
ifurl = "" dann
response.Redirect ("getMusic.asp")
Antwort.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) 'Holen Sie sich die Anzahl der Songs
name = Mid (getCode, Instrument (getCode, "Singer Name:")+5,10) 'Get Sänger
m = "http://218.75.78.189/33445566/"
Antwort.Write "<Center> Die Seite fand auf dieser Seite insgesamt" & Name & "Songs" & "<br/> <br/>" von "& Name &".