读取远程xml文件

 

   <? xml version="1.0" encoding="utf-8"  ?>  
-  < channels >
-  < group  id ="1"  type ="0"  cn =""  description ="Description: Schedule: Type: Email:email@your.com Phone:" >
  test group 
-  < channel  id ="2001"  type ="0"  language ="zh_CN" >
   < name  cn ="" > CCTV 1 </ name >  
   < status > 2 </ status >  
   < stream_type > wmv </ stream_type >  
   < kbps > 328 </ kbps >  
   < user_count > 2 </ user_count >  
   < visit_count > 12 </ visit_count >  
   < qs > 89 </ qs >  
   < qc > 84 </ qc >  
   < start_from > Tue, 05 Dec 2006 01:34:28 GMT </ start_from >  
-  < sop_address >
   < item > sop://220.112.88.18:3912/2001 </ item >  
   </ sop_address >
   < description > CCTV1 </ description >  
   </ channel >
   </ group >
   </ channels >

 

<!--  频道列表开始 -->
< br >
< table  style ="FILTER:glow(color=#6699FF,direction=2)" >
<%
dim  XMLMorntekDocument 
Set  http = Server.CreateObject( " Microsoft.XMLHTTP " ) 
http.Open  " GET " , " http://211.161.224.42/chlist.xml " , False  
http.send 
Set  XMLMorntekDocument = Server.CreateObject( " Microsoft.XMLDOM " ) 
XMLMorntekDocument.Async = False  
XMLMorntekDocument.ValidateOnParse = False  
XMLMorntekDocument.Load(http.ResponseXML) 
set  obj = XMLMorntekDocument.selectNodes( " //channels/group/channel " )
for   each  tem in obj
c_name = tem.selectSingleNode( " name " ).text
user_count = tem.selectSingleNode( " user_count " ).text
sop_address = tem.selectSingleNode( " sop_address " ).text
c_description = tem.selectSingleNode( " description " ).text
%>
< tr >< td >

&nbsp;&nbsp;&nbsp;&nbsp; < a  href ="#"  onclick =OnPlay('<%=sop_address% > ',' <% = c_description %> ');> < font  color ="#FFFFFF"  size ="4"  style ="text-decoration:none;" > <% = c_name %> </ font ></ a >

</ td ></ tr >
<%
next
Set  http = Nothing  
Set  XMLMorntekDocument = Nothing
%>
</ table >
<!--  频道列表结束 -->