updemo.asp

深入浅出XML示例下载

<% @ Language=VBSCRIPT %>
<%
Dim obj
Set obj = Server.CreateObject("MSXML.DOMDocument")
obj.async = false
obj.load(request)
if obj.parseError.reason="" then
   obj.save("E:\OTHERXML.XML")
   Response.ContentType="text/XML"
   Response.Write("<result>Success</result>")
 else
   Response.Write("<result>Fail</result>")
 End if
%>