ch7-4.asp

《XML语言及应用》作者华铨平—examples

<%@ language="vbscript"%>
<% 
  '访问childNodes()方法访问文档
  set xmldoc=server.createObject("MSXML.DOMDocument")
      xmldoc.load(Server.MapPath("xuesheng.xml"))
	  str="01信管1"
	  set nodes=xmldoc.selectNodes("//学生")
	  if nodes.length<>0 then
	  Response.write("<center><h2>信息工程分院学生名单</h2></center>")
	  Response.write("<table border=0 align=center cellpadding=5>")
	  Response.write("<thead>")
	  Response.write("<th>学号</th><th>姓名</th><th>性别</th><th>班级</th><th>出生年月</th>")
	  Response.write("</thead>")
	  for i=0 to nodes.length-1
	      Response.write("<tr>")
		  str1=nodes(i).childNodes(0).text
		  str2=nodes(i).childNodes(1).text
	      str3=nodes(i).childNodes(2).text
	      str4=nodes(i).childNodes(3).text
	      str5=nodes(i).childNodes(4).text
		  Response.write("<td>"+str1+"</td>")
		  Response.write("<td>"+str2+"</td>")
		  Response.write("<td>"+str3+"</td>")
		  Response.write("<td>"+str4+"</td>")
		  Response.write("<td>"+str5+"</td>")
	 next
	 end if
	 Response.write("</table>")
	 Response.end
%>