用ASP转化ACCESS数据库为XML文件

以前写的,今天派上了用场

核心代码  直接下载

dim  strdataname
dim  strtablename
dim  number
strdataname = request.form( " dataname " )
strtablename = request.form( " tablename " )
' '连接access数据
Set  conn  =  Server. CreateObject ( " ADODB.Connection " )
conn.Open  " DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "   &  Server.MapPath( " accessdata\ " & strdataname) 
' '建立fso,准本写xml
set  fso = server. createobject ( " scripting.filesystemobject " )
xmlfile = server.mappath( " xmldata\data.xml " )
fso.createtextfile(xmlfile)
set  otf = fso.opentextfile(xmlfile, 8 )
' 开始写xml
otf.writeline( " <?xml version='1.0' encoding='gb2312'?> " )
otf.writeline( " <!-- 生成的xml数据仓库 by (卡卡)caca --> " )
otf.writeline( " < " & strdataname & " > " )

set  rs = server. createobject ( " adodb.recordset " )
sqlstr = " select * from  " & strtablename
rs.open sqlstr,conn, 1 , 3
set  fld = rs.fields
rs.movefirst

' ''''''''获取数据表中列的名称<20'''''''''''''
  dim  arrclome( 30 )
  for  i = 0   to  fld.count - 1
 arrclome(i) = rs(i).name
  next
 
while   not  rs.eof

otf.writeline( " < " & strtablename & " > " )

for  i = 0   to  fld.count - 1
otf.writeline( " < " & arrclome(i) & " > " & rs(arrclome(i)) & " </ " & arrclome(i) & " > " )
next

otf.writeline( " </ " & strtablename & " > " )


rs.movenext
wend
% >
< %
otf.writeline( " </ " & strdataname & " > " )
% >