当前位置:asp编程网>技术教程>Xml教程>  正文

asp获取xml中的内容

2007-11-22 13:52:01   来源:本站原创    作者:wangsdong   浏览量:594   收藏
note.xml中的内容
<?xml version="1.0" encoding="gb2312"?>
<channel>
<item>
  <title>新浪</title>
  <link>http://www.sina.com.cn</link>
</item>
<item>
  <title>google</title>
  <link>http://www.google.cn</link>
</item>
<item>
  <title>百度</title>
  <link>http://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("Microsoft.XMLDOM")
xml.Async=False
xml.ValidateOnParse=False
xml.Load(http.ResponseXML)
If xml.ReadyState>2 Then
        Response.Write("文档已经准备就绪。状态:"&#38; xml.ReadyState &#38;"
")
        Set item=xml.getElementsByTagName("item")
        For i=0 To (item.Length-1)
        Set title=item.Item(i).getElementsByTagName("title")
        Set link=item.Item(i).getElementsByTagName("link")
        Response.Write("<a href="""&#38; link.Item(0).Text &#38;""" target=""_blank"">"&#38; title.Item(0).Text &#38;"</a>
")
        Next
Else
        Response.Write("文档还未准备就绪。状态:"&#38; xml.ReadyState &#38;"
")
End If
Set http=Nothing
Set xml=Nothing
%>
<%
Function GetLocationURL() 
Dim Url 
Dim ServerPort,ServerName,ScriptName,QueryString 
ServerName = Request.ServerVariables("SERVER_NAME") 
ServerPort = Request.ServerVariables("SERVER_PORT") 
ScriptName = Request.ServerVariables("SCRIPT_NAME") 
QueryString = Request.ServerVariables("QUERY_STRING") 
Url="http://"&#38;ServerName 
If ServerPort <> "80" Then Url = Url &#38; ":" &#38; ServerPort 
Url=Url&#38;ScriptName 
If QueryString <>"" Then Url=Url&#38;"?"&#38; QueryString 
GetLocationURL=Url 
End Function 
%>
运行index.asp文件
源码地址:http://www.aspprogram.cn/soft.asp?id=19

关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网