搞定!!
*******************************************************
** Accessdata to xmldata by ASP programe
** Access数据转换成为xml格式的数据
** 测试环境:
**MS2000 Advanceserver+IIS5.0+MsAccess+IE5.0
** 成功转换数据记录数目为2180的数据库
********************************************************
**(AD) 作者:卡卡(caca)
** I Like The *ML and The DataBase
** qq:154222225 Mail:root@3ney.com
** Welcome to : http://2bbs.vicp.net
** 2003.11.6 caca @ zzu
** 版权所有
*********************************************************
1-程序包含文件:
1)accessdata\data.mdb--Access数据存放位置,请把你的Access数据放在这里
2)xmldata\data.xml--转换成为xml数据文件,你可以复制,不要删除,ok?
3)index.asp--填写Access数据相关信息的页面
4)manage.asp--核心,转换主程序
5)note.txt--本说明文件
2-说明:
你必须先把自己的Access数据放在文件夹:accessdata里面
在index.asp认真填写你的access数据名称(包含后缀),表名,表里面的项目(列)的个数
转换成功后,请复制xmldata\data.xml到别的地方保存,下次转换,将会覆盖这个文件
3-问题讨论
我的qq:154222225
我的mail:root@3ney.com
我的论坛:http://2bbs.vicp.net
************************************************************
卡卡(caca) 2002.11.6 在 郑州大学
*************************************************************
核心代码:
'开始写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
rs.movefirst
'''''''''获取数据表中列的名称<20'''''''''''''
dim arrclome(30)
for i=0 to number
arrclome(i)=rs(i).name
next
while not rs.eof
otf.writeline("<"&strtablename&">")
for i=0 to number
otf.writeline("<"&arrclome(i)&">"&rs(arrclome(i))&"</"&arrclome(i)&">")
next
otf.writeline("</"&strtablename&">")
rs.movenext
wend
%>
<%
otf.writeline("</"&strdataname&">")
*************************************************************
大家可以在这里下载:
http://www.3ney.com/caca/down/caca-Access2xml.rar
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → Access数据转换成为xml格式的数据
(订阅本版)
2003/11/11 21:07:00
新浪微博
Access数据转换成为xml格式的数据
