zoukankan
html css js c++ java
ASP中查询数据库记录写入XML文件示例
把下面代码保存为Asp_XML.asp运行即可:
<
%
'
By Dicky 2005-03-22 21:52:18 AM QQ:25941 E-mail:AppleBBS@GMail.Com
Const
IsSql
=
1
'
定义数据库类型为SQL Server
Call
OpenConn(Conn)
'
打开数据库连接
Dim
Rs,Sql
Set
Rs
=
Server.
CreateObject
(
"
ADODB.RecordSet
"
)
Sql
=
"
SELECT * FROM Products ORDER BY ProductName"
Rs.Open Sql,Conn,
1
,
1
'
以只读方式查询数据记录
If
Rs.Eof
Then
Response.Write
"
Sorry,no record!
"
'
如果没有记录
Else
Dim
objXMLDOM, objRootNode, objNode
Set
objXMLDOM
=
Server.
CreateObject
(
"
MSXML2.DOMDocument
"
)
'
创建XML文档对象
Set
objRootNode
=
objXMLDOM.createElement(
"
xml
"
)
'
创建根节点
objXMLDOM.documentElement
=
objRootNode
Do
While
Not
Rs.Eof
'
循环出所有记录
'
Response.Write Rs("ProductName") &"<br>"
Set
objRowNode
=
objXMLDOM.createElement(
"
row
"
)
'
创建父节点
Set
objNode
=
objXMLDOM.createElement(
"
ProductName
"
)
'
创建子节点
objNode.text
=
Rs(
"
ProductName
"
)
objRowNode.appendChild(objNode)
Set
objNode
=
objXMLDOM.createElement(
"
UnitPrice
"
)
objNode.text
=
Rs(
"
UnitPrice
"
)
objRowNode.appendChild(objNode)
Set
objNode
=
objXMLDOM.createElement(
"
UnitsInStock
"
)
objNode.text
=
Rs(
"
UnitsInStock
"
)
objRowNode.appendChild(objNode)
objRootNode.appendChild(objRowNode)
Rs.MoveNext:
Loop
'
循环结束
objXMLDOM.Save
"
D:\MyXMLDoc.xml
"
'
写入XML文件 可以用变量让用户在页面上自定义文件名
Response.Write
"
<script>alert('恭喜,写入XML文件成功!');</script>"
Set
objNode
=
Nothing
'
销毁对象
Set
objRowNode
=
Nothing
'
销毁对象
Set
objRootNode
=
Nothing
'
销毁对象
End
If
Rs.Close
Set
Rs
=
Nothing
Call
CloseConn()
'
关闭数据库连接
Function
OpenConn(Conn)
'
打开数据库连接
Dim
ConnStr
If
IsSql
=
1
Then
'
如果是SQL Server数据库
'
SQL Server数据库连接参数:用户名、用户密码、数据库名、连接名(本地用local,外地用IP)
Dim
SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
SqlUsername
=
"
sa"
SqlPassword
=
"
"
SqlDatabaseName
=
"
Northwind"
SqlLocalName
=
"
(local)"
ConnStr
=
"
Provider = Sqloledb; User ID =
"
&
SqlUsername
&
"
; Password =
"
&
SqlPassword
&
"
; Initial Catalog =
"
&
SqlDatabaseName
&
"
; Data Source =
"
&
SqlLocalName
&
"
;"
Else
'
如果是Access数据库
Dim
Db
'
第一次使用请修改本处数据库地址并相应修改数据库名称,如将Dicky.mdb修改为Dicky.asp(防止恶意下载Access数据库)
Db
=
"
Dicky.mdb"
ConnStr
=
"
Provider = Microsoft.Jet.OLEDB.4.0;Data Source =
"
&
Server.MapPath(Db)
End
If
On
Error
Resume
Next
Set
Conn
=
Server.
CreateObject
(
"
ADODB.Connection
"
)
Conn.Open ConnStr
If
Err
Then
'
Err.Clear
Set
Conn
=
Nothing
Response.Write
"
数据库连接出错,请检查连接字串。"
Response.
End
End
If
Set
Rs
=
Server.
CreateObject
(
"
Adodb.RecordSet
"
)
End Function
Function
CloseConn()
'
关闭数据库连接
Conn.Close
Set
Conn
=
Nothing
End Function
%
>
青苹果Web应用商店
https://webapp.taobao.com/
PHP/ASP.NET/ASP/UCHOME/DISCUZ! X系列网站开发,详细需求联系
QQ:8511978
查看全文
相关阅读:
【POI】使用POI 创建生成XLS,打开xls文件提示【此文件中某些文本格式可能已经更改,因为它已经超出最多允许的字体数。】
【提问解答】2017-10-18--如果你有什么问题,可以分享出来,让我帮你一起解决=_=
【sublime Text】sublime Text3安装可以使xml格式化的插件
【IntelliJ IDEA】idea上安装Translation插件后,需要AppKey才能生效的解决方案
【IntelliJ IDEA】使用idea解决新建jsp文件而找不到jsp文件模版的新建选项
【sublime Text】关闭sublime的更新提醒和激活提醒
【spring Boot】spring boot获取资源文件的三种方式【两种情况下】
【spring boot】4.spring boot配置多环境资源文件
java多线程断点下载原理(代码实例演示)
Google Chrome Developer Tools
原文地址:https://www.cnblogs.com/Dicky/p/123780.html
最新文章
理解Linux中断 (2)【转】
理解Linux中断 (3)【转】
12 个最佳的免费学习编程的游戏网站【转】
如何杀掉D状态的进程?[zt]【转】
Linux系统中“动态库”和“静态库”那点事儿【转】
ARM、Intel、MIPS处理器啥区别?看完全懂了【转】
linux cache and buffer【转】
pstack使用和原理【转】
Struts1——从BeanUtils看struts的实现原理2
servlet基本概念
热门文章
网页浏览器发展方向总结
第04章-VTK基础(4)
Linux正則表達式-反复出现的字符
在多线程环境中使用Jedis
虚拟Linux 訪问win7共享文件夹方法
获取网络图片的工具类
CSDN 正整数异或值问题
Cocos2d-x 3.0rc0版本号项目的创建和部署
【Maven】在pom.xml文件中使用resources插件的小作用
【spring boot】5.spring boot 创建web项目并使用jsp作前台页面【idea新创建spring boot服务,pom完善即可启动】
Copyright © 2011-2022 走看看