将数据库中的信息存储至XML文件中[1]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 cctcc 的 blog

作者:淘特网

出处:淘特网

注:转载请注明出处

save.asp

 <!-- #include file="adovbs.inc" -->
<%
' constants file included above.

' 如果文件存在则删除
dim objfso
set objfso = server.createobject("scripting.filesystemobject")
if objfso.fileexists(server.mappath("db_xml.xml")) then
 objfso.deletefile server.mappath("db_xml.xml")
end if
set objfso = nothing

'变量声明
dim cnnxml  ' ado connection
dim rstxml  ' ado recordset

'创建数据连接对象
set cnnxml = server.createobject("adodb.connection")

' 这是连接access数据库的例子:
'cnnxml.open "provider=microsoft.jet.oledb.4.0;data source=" _
' & server.mappath("db_scratch.mdb") & ";"

' 下面以sqlserver为例子讲解:
cnnxml.open "provider=sqloledb;data source=10.2.1.214;" _
 & "initial catalog=samples;user id=samples;password=password;" _
 & "connect timeout=15;network library=dbmssocn;"


set rstxml = server.createobject("adodb.recordset")
set rstxml = cnnxml.execute("select * from scratch order by id;")

response.write "<p>saving data as xml...</p>" & vbcrlf

' 保存至xml格式.
rstxml.save server.mappath("db_xml.xml"), adpersistxml

' 关闭对象、释放资源
rstxml.close
set rstxml = nothing
cnnxml.close
set cnnxml = nothing

response.write "<p>xml file written...</p>" & vbcrlf
response.write "<p>click <a href=""db_xml.xml"">here</a> to view the file.</p>" & vbcrlf
%>

附:adovbs.inc

 <%
'--------------------------------------------------------------------
' microsoft ado
'
' (c) 1996-1998 microsoft corporation.  all rights reserved.
'
'
'
' ado constants include file for vbscript
'
'--------------------------------------------------------------------

'---- cursortypeenum values ----
const adopenforwardonly = 0
const adopenkeyset = 1
const adopendynamic = 2
const adopenstatic = 3

'---- cursoroptionenum values ----
const adholdrecords = &h00000100
const admoveprevious = &h00000200
const adaddnew = &h01000400
const addelete = &h01000800
const adupdate = &h01008000
const adbookmark = &h00002000
const adapproxposition = &h00004000
const adupdatebatch = &h00010000
const adresync = &h00020000
const adnotify = &h00040000
const adfind = &h00080000
const adseek = &h00400000
const adindex = &h00800000

'---- locktypeenum values ----
const adlockreadonly = 1
const adlockpessimistic = 2
const adlockoptimistic = 3
const adlockbatchoptimistic = 4

'---- executeoptionenum values ----
const adrunasync = &h00000010
const adasyncexecute = &h00000010
const adasyncfetch = &h00000020
const adasyncfetchnonblocking = &h00000040
const adexecutenorecords = &h00000080

'---- connectoptionenum values ----
const adasyncconnect = &h00000010

'---- objectstateenum values ----
const adstateclosed = &h00000000
const adstateopen = &h00000001
const adstateconnecting = &h00000002
const adstateexecuting = &h00000004
const adstatefetching = &h00000008

'---- cursorlocationenum values ----
const aduseserver = 2
const aduseclient = 3

'---- datatypeenum values ----
const adempty = 0
const adtinyint = 16
const adsmallint = 2
const adinteger = 3
const adbigint = 20
const adunsignedtinyint = 17
const adunsignedsmallint = 18
const adunsignedint = 19
const adunsignedbigint = 21
const adsingle = 4
const addouble = 5
const adcurrency = 6
const addecimal = 14
const adnumeric = 131
const adboolean = 11
const aderror = 10
const aduserdefined = 132
const advariant = 12
const adidispatch = 9
const adiunknown = 13
const adguid = 72
const addate = 7
const addbdate = 133
const addbtime = 134
const addbtimestamp = 135
const adbstr = 8
const adchar = 129
const advarchar = 200
const adlongvarchar = 201
const adwchar = 130
const advarwchar = 202
const adlongvarwchar = 203
const adbinary = 128
const advarbinary = 204
const adlongvarbinary = 205
const adchapter = 136
const adfiletime = 64
const addbfiletime = 137
const adpropvariant = 138
const advarnumeric = 139

'---- fieldattributeenum values ----
const adfldmaydefer = &h00000002
const adfldupdatable = &h00000004
const adfldunknownupdatable = &h00000008
const adfldfixed = &h00000010
const adfldisnullable = &h00000020
const adfldmaybenull = &h00000040
const adfldlong = &h00000080
const adfldrowid = &h00000100
const adfldrowversion = &h00000200
const adfldcachedeferred = &h00001000
const adfldkeycolumn = &h00008000

'---- editmodeenum values ----
const adeditnone = &h0000
const adeditinprogress = &h0001
const adeditadd = &h0002
const adeditdelete = &h0004

'---- recordstatusenum values ----
const adrecok = &h0000000
const adrecnew = &h0000001
const adrecmodified = &h0000002
const adrecdeleted = &h0000004
const adrecunmodified = &h0000008
const adrecinvalid = &h0000010
const adrecmultiplechanges = &h0000040
const adrecpendingchanges = &h0000080
const adreccanceled = &h0000100
const adreccantrelease = &h0000400
const adrecconcurrencyviolation = &h0000800
const adrecintegrityviolation = &h0001000
const adrecmaxchangesexceeded = &h0002000
const adrecobjectopen = &h0004000
const adrecoutofmemory = &h0008000
const adrecpermissiondenied = &h0010000
const adrecschemaviolation = &h0020000
const adrecdbdeleted = &h0040000

'---- getrowsoptionenum values ----
const adgetrowsrest = -1

'---- positionenum values ----
const adposunknown = -1
const adposbof = -2
const adposeof = -3

'---- enum values ----
const adbookmarkcurrent = 0
const adbookmarkfirst = 1
const adbookmarklast = 2

'---- marshaloptionsenum values ----
const admarshalall = 0
const admarshalmodifiedonly = 1

'---- affectenum values ----
const adaffectcurrent = 1
const adaffectgroup = 2
const adaffectall = 3
const adaffectallchapters = 4

'---- resyncenum values ----
const adresyncunderlyingvalues = 1
const adresyncallvalues = 2

'---- compareenum values ----
const adcomparelessthan = 0
const adcompareequal = 1
const adcomparegreaterthan = 2
const adcomparenotequal = 3
const adcomparenotcomparable = 4

'---- filtergroupenum values ----
const adfilternone = 0
const adfilterpendingrecords = 1
const adfilteraffectedrecords = 2
const adfilterfetchedrecords = 3
const adfilterpredicate = 4
const adfilterconflictingrecords = 5

'---- searchdirectionenum values ----
const adsearchforward = 1
const adsearchbackward = -1

'---- persistformatenum values ----
const adpersistadtg = 0
const adpersistxml = 1

'---- stringformatenum values ----
const adstringxml = 0
const adstringhtml = 1
const adclipstring = 2

'---- connectpromptenum values ----
const adpromptalways = 1
const adpromptcomplete = 2
const adpromptcompleterequired = 3
const adpromptnever = 4

'---- connectmodeenum values ----
const admodeunknown = 0
const admoderead = 1
const admodewrite = 2
const admodereadwrite = 3
const admodesharedenyread = 4
const admodesharedenywrite = 8
const admodeshareexclusive = &hc
const admodesharedenynone = &h10

'---- isolationlevelenum values ----
const adxactunspecified = &hffffffff
const adxactchaos = &h00000010
const adxactreaduncommitted = &h00000100
const adxactbrowse = &h00000100
const adxactcursorstability = &h00001000
const adxactreadcommitted = &h00001000
const adxactrepeatableread = &h00010000
const adxactserializable = &h00100000
const adxactisolated = &h00100000

'---- xactattributeenum values ----
const adxactcommitretaining = &h00020000
const adxactabortretaining = &h00040000

'---- propertyattributesenum values ----
const adpropnotsupported = &h0000
const adproprequired = &h0001
const adpropoptional = &h0002
const adpropread = &h0200
const adpropwrite = &h0400

本文关键:将数据库中的信息存储至XML文件中
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top