export_xml.asp

来自「可在线管理ACCESS数据库,可新建,修改,建表等如同本地操作数据库」· ASP 代码 · 共 27 行

<%@ Language=VBScript %>
<!--#include file=scripts\inc_common.asp -->
<%
'	On Error Resume Next
	dim dba, rec, s, xml
	set dba = new DBAdmin
	dba.Connect Session(DBA_cfgSessionDBPathName), Session(DBA_cfgSessionDBPassword)
	If not dba.IsOpen then Response.Redirect "database.asp"

	set rec = dba.RunScript(Request("sql").Item, False, True, null)

	set s = Server.CreateObject("ADODB.Stream")
	rec.Save s, adPersistXML
	Randomize
	Response.AddHeader "Content-Disposition", "attachment; filename=" & Int((Rnd() * 10000000)) & "_export.xml"
	Response.ContentType = "application/octet-stream"
	Response.CharSet  = "UTF-8"
	Response.Write s.ReadText
	s.Close

	set s = nothing

	rec.Close
	set rec = nothing
	set dba = Nothing
%>