用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&">")
%>