savesubcatalog.asp

Windows Web脚本开发指南/(美) Dan Heflin, Todd Ney著 的源码

<%@ LANGUAGE=JavaScript %>
<%
  //Save the XML file to the value fileName in passed in for the query string
  var xmlValue = Request.Form("xmlSource");
  subCatalog = new ActiveXObject("Microsoft.FreeThreadedXMLDOM");
  subCatalog.async = false;
  subCatalog.resolveExternals = false;
  subCatalog.loadXML(xmlValue);
  var fileName = Request.QueryString("fileName");
  subCatalog.save(Server.MapPath(fileName));
  
  Response.Write("<p>The sub-catalog has been saved to the server path: " + Server.MapPath(fileName) + "</p>");
  Response.Write("<p>Don't forget to move the images to the appropriate directory.</p>");
  Response.Write("<p>The changes will be come effective the next time the application is restarted.</p>");
  Response.Write("<a href='hier.htm'>Return to Menu.</a>");
  
  
%>