note.xml中的内容
?xml version="1.0" encoding="gb2312"?
channel
item
title新浪/title
linkhttp://www.sina.com.cn/link
/item
item
titlegoogle/title
linkhttp://www.google.cn/link
/item
item
title百度/title
linkhttp://www.baidu.com/link
/item
/channel
index.asp中的内容
%
h=GetLocationURL()'获取当前地址
h1=Split(h,"/")
h=Replace(h,h1(UBound(h1)),"note.xml")
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",h,False
http.send
Set xml=Server.CreateObject("Micros...[ 查看全文 ]