Введите веб -сайт 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 <> 4then
Выходная функция
эндиф
gethttppage = bytestobstr (http.responsebody, "gb2312")
SETTHTTP = ничего
iferr.number <> 0thenerr.clear
Конечная функция
2. Преобразование кодирования
Functionbytestobstr (тело, 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 = ничего
Конечная функция
'Получите явный 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 = "" Затем
response.redirect ("getmusic.asp")
response.end ()
эндиф
'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/33445566/"
response.write "<Center> Страница обнаружила в общей сложности" & name & "Songs" & "<br/> <br/>" от "& name &" на этой странице.