例10-11.asp

深入浅出XML示例下载

<% @ LANGUAGE="VBSCRIPT" %>
<% 
function GetLocalAddress()
    dim mm 
    mm=Request.ServerVariables("APPL_PHYSICAL_PATH")
    if right(mm,1)="\" then mm=left(mm ,len(mm)-1)
    mm=mm&Request.ServerVariables("PATH_INFO")
    mm=left(mm,len(mm)-3) & "xml"
    GetLocalAddress=mm
  end function 
  set theDomDoc =Server.CreateObject("Microsoft.XMLDOM")
  theDomDoc.Load GetLocalAddress()
  set recordlist = theDomDoc.getElementsByTagName("Hotel")
  counter=recordlist.length-1
  for i=0 to counter
    set itemrecord = recordlist.item(i).ChildNodes
    Response.Write "记录号:" & CStr(i+1)
    Response.Write "<Table border=2 align=center bgcolor=#CCCCCC  width=""100%"">"
    Response.Write "<TR align=middle>"
    items=itemrecord.length-1
    for j=0 to  items
       Response.Write "<TD><Font Color=Red> "
       Response.Write itemrecord.Item(j).NodeName
       Response.Write "</font></TD>"
    next     
     Response.Write "</TR><TR align=middle>"
    for j=0 to  items
       Response.Write "<TD><Font Color=Blue> "
       Response.Write itemrecord.Item(j).text
       Response.Write "</font></TD>"
    next     
       Response.Write "</TR></Table><HR>"
  next 
  set theDomDoc=nothing
%>