用XMLHTTP很好的一個例子_Xml教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：XML入門的常見問題(三)
      如何加載有外國和特殊字符的文檔？

文檔可以包含外國字符，例如：

foreign characters (úóí?) 

例如 磲 的外國字符必須在前面加上 escape 序列。外國字符可以是 U
      雖然ting88沒有注冊的用戶不能下載歌曲,但搞定它也非難事啊:)
      


      進入www.ting88.com的網(wǎng)站,把歌手專輯頁面的URL復(fù)制到文本框中再提交就可以得到歌曲的下載路徑,如:http://www.ting88.com/MusicList/4141.htm
      


      源程序如下:
      


      


      

    

        
      

            以下為引用的內(nèi)容：
      <％
      on error resume next
      dim id,url,getCode,m,i,j,s,d,ns,nd,num,name
      id=trim(request.querystring("id"))
      '1.獲取原網(wǎng)頁所有內(nèi)容
      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.編碼轉(zhuǎn)換
      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      		

        
      

          


      


      


      

    

        
      

            以下為引用的內(nèi)容：
      '得到明碼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) '獲取歌曲的數(shù)目
      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>"
      next
      response.write "</table></td></tr></table></center>"
      end if



      ％>
      <html>
      <head>
      <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
      <title>獲取專輯歌曲的URL地址</title>
      </head>
      <body>
      <form name="form1" method="post" action="GetMusic.asp?id=1">
      <table width='80％' border='0' align="center" cellpadding='0' cellspacing='0' bgcolor='#A4C8FF'>
      <tr><td><table width="100％" border="0" align="center" cellpadding="2" cellspacing="1">
      <tr>
      <td height="30">獲取專輯歌曲的URL地址</td>
      </tr>
      <tr>
      <td height="30" bgcolor="#FFFFFF">網(wǎng)頁地址:
      <input name="txturl" type="text" id="txturl" size="80" maxlength="100"></td>
      </tr>
      <tr>
      <td height="30" bgcolor="#FFFFFF"> <input type="submit" name="Submit" value="提 交" style="width:60">
      <input name="Reset" type="reset" id="Reset" value="重 置" style="width:60"></td>
      </tr>
      </table></td></tr></table>
      </form>
      </body>
      </html>
      		

        
      

          


      


      


      

      


      來源：模板無憂//所屬分類：Xml教程/更新時間：2008-08-22


      


      



      


      



      相關(guān)Xml教程：