asp读取XML文件
<%
'
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://127.0.0.1/1.xml",False
http.send
Dim xml
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
'xml.load (Server.MapPath("1.xml")) '如果不是远程文件直接这一步
xml.Load(http.ResponseXML)
Dim title, heading, paragraph, ii
title = xml.documentElement.childNodes(0).text
heading = xml.documentElement.childNodes(1).text
paragraph = xml.documentElement.childNodes(1).childNodes(1).childNodes(0).text
ii = xml.documentElement.childNodes(1).childNodes.length
dim i
for i=0 to ii-1
response.Write(i)
response.Write(xml.documentElement.childNodes(1).childNodes(i).childNodes(1).text)
response.Write("<br />")
next
Set xml = Nothing
%>
相关文档：
今天的项目模块中用到根据数据库里的资料生成xml文件，主要步骤如下：
（1） 连接数据库，取出数据；
（2） 创建结点，添加子项；
（3） 写入文件“test.xml”中；
具体代码如下：
import java.io.FileOutputStream;
import java.sql.Connection;
import java.sql.DriverManager;
import java.sql.Result ......
Ajax.js
// AJAX类
function AJAXRequest() {
var xmlObj = false;
var CBfunc,ObjSelf;
ObjSelf=this;
try { xmlObj=new XMLHttpRequest; }
catch(e) {
try { xmlObj=new ActiveXObject("MSXML2.XMLHTTP"); }
catch(e2) {
try { xmlObj=new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e3) { ......
xml文件：
<?xml version="1.0" encoding="UTF-8"?>
<mobile-list>
<mobile type="Nokia2652">
<wap2>false</wap2>
<width>115</width>
</mobile>
<mobile type="Nokia2650">
......
<!--#include file="conn.asp" -->
<!--#include file="Fun.asp" -->
<%
'发送邮件类
class SendEmails
'发送
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
......
<!--#include file="inc/conn.asp" -->
<%
openconn()
sql="select * from tbnews"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
id=rs("id")
%>
<%
do while not rs.eof
%>
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME ......
