中文XML论坛 - 专业的XML技术讨论区--显示贴子

以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  Access数据转换成为xml格式的数据  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=153)

--  作者：caca
--  发布时间：11/11/2003 9:07:00 PM

--  Access数据转换成为xml格式的数据
搞定!!
*******************************************************
** 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("")
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

--  作者：zhz
--  发布时间：11/23/2003 12:10:00 PM

--
注释比代码都多，hoho

--  作者：javablue
--  发布时间：1/6/2004 10:32:00 AM

--
上面是哪种语言，我怎么样不见过，请指教

W 3 C h i n a ( since 2003 ) 旗下站点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》

63.477ms