用XMLHTTP很好的一个例子(原创)

虽然ting88没有注册的用户不能下载歌曲,但搞定它也非难事啊:)

进入www.ting88.com的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如:http://www.ting88.com/MusicList/4141.htm

源程序如下:

on error resume next

dim id,url,getCode,m,i,j,s,d,ns,nd,num,name

id=trim(request.querystring("id"))

'1.获取原网页所有内容

Function getHTTPPage(url)

dim http

set http=Server.createobject("Microsoft.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")

set http=nothing

if err.number<>0 then err.Clear

End function

'2.编码转换

Function BytesToBstr(body,Cset)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

'得到明码URL

function MyReplace(ConvStr)

ConvStr=replace(ConvStr,"YVI","1")

ConvStr=replace(ConvStr,"ESR","2")

ConvStr=replace(ConvStr,"SXN","3")

ConvStr=replace(ConvStr,"STI","4")

ConvStr=replace(ConvStr,"WFU","5")

ConvStr=replace(ConvStr,"LQU","6")

ConvStr=replace(ConvStr,"QGI","7")

ConvStr=replace(ConvStr,"BLA","8")

ConvStr=replace(ConvStr,"JFU","9")

ConvStr=replace(ConvStr,"LSN","0")

ConvStr=replace(ConvStr,"XPG","/")

ConvStr=replace(ConvStr,"XQD",".")

ConvStr=replace(ConvStr," ","")

ConvStr=replace(ConvStr,"%20","")

ConvStr=replace(ConvStr,"KWD","Wma")

MyReplace=ConvStr

end function

if id="1" then

url=trim(request.form("txturl"))

if url="" then

response.redirect("GetMusic.asp")

response.end()

end if

'url="http://www.ting88.com/MusicList/1454.htm"

s=0

d=0

ns=0

nd=0

getCode=getHTTPPage(url)

num=mid(getCode,instrrev(getCode,".<a href")-3,2) '获取歌曲的数目

name=mid(getCode,instr(getCode,"歌手姓名：")+5,10) '获取歌手

m="http://218.75.78.189/33445566/"

response.write "<center>该面页共找到 " & name & "的 <font color=red>" & num& "</font> 首歌曲" & "<br/><br/>"

response.write "<table width='80%' border='1' bordercolor='#A4C8FF' cellpadding='0' cellspacing='0'><tr><td>页面URL:<a href='" & url & "' target='_blank'>" & url & "</a></td></tr></table><hr width='80%'>"

response.write "<table width='80%' border='0' cellpadding='0' cellspacing='0' bgcolor='#A4C8FF'><tr><td><table border='0' width='100%' cellpadding='2' cellspacing='1'><tr><td align=center bgcolor='#FFFFFF'>序号</td><td align=center bgcolor='#FFFFFF'>歌名</td><td align=center bgcolor='#FFFFFF'>操作</td></tr>"

for i=1 to num

s=instr(i+s,getCode,"checked"" value='")

d=instr(i+d,getCode,"KWD'>")

ns=instr(i+ns,getCode,"word=")

nd=instr(i+nd,getCode,"&inc=")

response.write " <tr><td align=center bgcolor='#FFFFFF'>" & i & "</td><td bgcolor='#FFFFFF'> <a href='" & m & MyReplace(mid(getCode,s+16,d-s-13)) & "'>" & mid(getCode,ns+5,nd-ns-5) & "</a><br/></td><td align=center bgcolor='#FFFFFF'><a href='" & m & MyReplace(mid(getCode,s+16,d-s-13)) & "'>下载</a></td></tr>"

response.write "</table></td></tr></table></center>"

end if

<html>

<head>

<title>获取专辑歌曲的URL地址</title>

</head>

<body>

<tr>

<td height="30">获取专辑歌曲的URL地址</td>

</tr>

<tr>

<td height="30" bgcolor="#FFFFFF">网页地址:

</tr>

<tr>

</tr>

</table></td></tr></table>

</form>

</body>

</html>