Masukkan situs web www.ting88.com, salin URL halaman album penyanyi ke kotak teks dan kirimkan untuk mendapatkan jalur unduhan lagu, seperti: http://www.ting88.com/musiclist/4141.htm
Program sumber adalah sebagai berikut:
<%
OnerrorresumeNext
Dimid, url, getCode, m, i, j, s, d, ns, nd, ns, num, name
id = trim (request.querystring ("id"))
'1. Dapatkan semua isi halaman asli
FunctionGetHttppage (URL)
DIMHTTP
setthttp = server.createObject ("microsoft.xmlhttp")
Http.open "get", url, false
Http.send ()
ifhttp.readystate <> 4then
fungsi keluar
endif
getHttppage = bytestoBstr (http.responseBody, "GB2312")
setthttp = tidak ada
iferr.number <> 0thenerr.clear
Fungsi endfungsi
'2. Konversi pengkodean
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 = tidak ada
Fungsi endfungsi
'Dapatkan URL Eksplisit
functionMyreplace (convstr)
Convstr = ganti (convstr, "yvi", "1")
Convstr = ganti (convstr, "ESR", "2")
Convstr = ganti (convstr, "sxn", "3")
Convstr = ganti (convstr, "sti", "4")
Convstr = ganti (convstr, "wfu", "5")
Convstr = ganti (convstr, "lqu", "6")
Convstr = ganti (convstr, "qgi", "7")
Convstr = ganti (convstr, "bla", "8")
Convstr = ganti (convstr, "jfu", "9")
Convstr = ganti (convstr, "lsn", "0")
Convstr = ganti (convstr, "xpg", "/")
Convstr = ganti (convstr, "xqd", ".")
Convstr = ganti (convstr, "", "")
Convstr = ganti (convstr, "%20", "")
Convstr = ganti (convstr, "kwd", "wma")
Myreplace = convstr
fungsi endfungsi
ifid = "1" lalu
url = trim (request.form ("txturl"))
ifurl = "" lalu
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) 'Dapatkan jumlah lagu
name = mid (getCode, instr (getCode, "Singer Name:")+5,10) 'Get Singer
m = "http://218.75.78.189/33445566/"
response.write "<Tenter> Halaman ini menemukan total" & nama & "lagu" & "<br/> <br/>" oleh "& name &" di halaman ini.