用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&">")
%>
posted @ 2005-03-26 15:00 卡卡 ^ cacard 阅读(860) 评论(0)  编辑 收藏 所属分类: 生活/言论

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      


相关链接:

最新IT新闻:
美国年轻人最喜欢的15大网站
2008年8月30日IT博客精选
《极品飞车12》最新真人照片、游戏截图
IBM正在开发超强性能4TB固态硬盘阵列
Microsoft F# CTP(2008年9月)
博客园新闻频道  博客园首页  社区
 



This is footer