用XMLHTTP很好的一个例子

进入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,".name=mid(getCode,instr(getCode,"歌手姓名：")+5,10) '获取歌手 
m="http://218.75.78.189/33445566/" 
response.write "该面页共找到 " & name & "的 " & num& " 首歌曲" & "

" 
response.write "页面URL:" & url & "" 
response.write "序号歌名操作" 
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 " " & i & " " & mid(getCode,ns+5,nd-ns-5) & "
下载" 
next 
response.write "" 
end if 


%> 
 
 
 
 
 
 
 
 
 
 
获取专辑歌曲的URL地址 
 
 
网页地址: