用XMLHTTP很好的一个例子

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

        进入的网站,把歌手专辑页面的URL复制到文本框中再提交就可以得到歌曲的下载路径,如:

        源程序如下:

<%
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=""
 s=0
 d=0
 ns=0
 nd=0
 getCode=getHTTPPage(url)
 num=mid(getCode,instrrev(getCode,". name=mid(getCode,instr(getCode,"歌手姓名：")+5,10)  '获取歌手
        m=""
 response.write "

该面页共找到 " & name & "的 " & num& " 首歌曲" & "

"
 response.write "

页面URL: href='" & url & "' target='_blank'>" & 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 "  "
 next
 response.write "

序号	歌名	操作
" & i & "	" &  mid(getCode,ns+5,nd-ns-5) & "	下载

"
end if

 

%>

 
   

   
     
   
   
     
   
   
     
   
 

获取专辑歌曲的URL地址

网页地址:
     

备注：本程序只是演示程序的功能，请勿盗取他人网站数据，否则后果自负！