أدخل موقع الويب الخاص بـ www.ting88.com ، انسخ عنوان URL لصفحة ألبوم المغني إلى مربع النص وإرساله للحصول على مسار التنزيل للأغنية ، مثل: http://www.ting88.com/musiclist/4141.htm
برنامج المصدر كما يلي:
<٪
onerrorresumenext
dimid ، url ، getCode ، m ، i ، j ، s ، d ، ns ، nd ، ns ، num ، name
id = trim (request.querystring ("id"))
1. احصل على جميع محتويات الصفحة الأصلية
FunctionGethTtppage (URL)
DIMHTTP
setThTTP = server.createBject ("microsoft.xmlhttp")
http.Open "get" ، url ، false
http.send ()
ifhttp.readyState <> 4then
exitfunction
Endif
gethttppage = bytestobstr (http.responsebody ، "GB2312")
setThttp = لا شيء
iferr.number <> 0thenerr.clear
الوظيفية
2. تشفير التحويل
FunctionByTestobstr (الجسم ، CSET)
Dimobjstream
setObjStream = server.createBject ("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 = لا شيء
الوظيفية
احصل على عنوان 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
الوظيفية
IFID = "1" ثم
url = trim (request.form ("txturl")))
ifurl = "" ثم
استجابة.
استجابة.
Endif
'url = "http://www.ting88.com/musiclist/1454.htm"
S = 0
د = 0
NS = 0
nd = 0
getCode = gethttppage (url)
num = mid (getCode ، Instrrev (getCode ، ". <ahref")-3،2) "احصل على عدد الأغاني
name = mid (getCode ، Instr (getCode ، "Singer Name:")+5،10) 'Get Singer
M = "http://218.75.78.189/33445566/"
Response.write "<centre> وجدت الصفحة ما مجموعه" & name & "الأغاني" و "<br/> <br/>" بواسطة "& name &" في هذه الصفحة.