ป้อนเว็บไซต์ของ www.ting88.com คัดลอก URL ของหน้าอัลบั้มของนักร้องไปยังกล่องข้อความและส่งไปยังเส้นทางดาวน์โหลดของเพลงเช่น: http://www.ting88.com/musiclist/4141.htm
โปรแกรมต้นทางมีดังนี้:
-
onerrorresumenext
dimid, url, getCode, m, i, j, s, d, ns, nd, ns, num, ชื่อ
id = trim (request.querystring ("id"))
'1. รับเนื้อหาทั้งหมดของหน้าต้นฉบับ
FunctionGetHttppage (URL)
dimhttp
setthttp = server.createObject ("microsoft.xmlhttp"))
http.open "get", url, false
http.send ()
ifhttp.readystate <> 4 จากนั้น
exitfunction
endif
gethttppage = bytestobstr (http.responsebody, "GB2312"))
setthttp = ไม่มีอะไร
iferr.number <> 0thenerr.Clear
endfunction
'2. การเข้ารหัสการแปลง
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 = ไม่มีอะไร
endfunction
'รับ URL ที่ชัดเจน
FunctionMyreplace (Convstr)
Convstr = แทนที่ (Convstr, "yvi", "1")
Convstr = แทนที่ (Convstr, "ESR", "2")
Convstr = แทนที่ (Convstr, "SXN", "3")
Convstr = แทนที่ (Convstr, "STI", "4")
Convstr = แทนที่ (Convstr, "WFU", "5")
Convstr = แทนที่ (Convstr, "LQU", "6")
Convstr = แทนที่ (Convstr, "qgi", "7")
Convstr = แทนที่ (Convstr, "bla", "8")
Convstr = แทนที่ (Convstr, "JFU", "9")
Convstr = แทนที่ (Convstr, "LSN", "0")
Convstr = แทนที่ (Convstr, "XPG", "/")
Convstr = แทนที่ (Convstr, "xqd", ".")
Convstr = แทนที่ (Convstr, "", "")
Convstr = แทนที่ (Convstr, "%20", "")
Convstr = แทนที่ (Convstr, "KWD", "WMA")
myreplace = Convstr
endfunction
ifid = "1" แล้ว
url = trim (request.form ("txturl")))
ifurl = "" แล้ว
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) รับจำนวนเพลง
name = mid (getCode, instr (getCode, "ชื่อนักร้อง:")+5,10) 'รับนักร้อง
m = "http://218.75.78.189/334455666/"
Response.write "<enter> หน้าพบ" & name & "เพลง" & "<br/> <br/> ทั้งหมด" โดย "& name &" ในหน้านี้