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
查看全文
相关阅读:
Go -- 调用C/C++
fatal error: sys/cdefs.h: No such file or directory
ubuntu下安装go语言;sublime+gocode搭建;go的卸载和环境变量配个人.bashrc
sqlite多表关联update
sqlite insert select 联合使用
sqlite3 支持的关联查询
iOS -- 拨打电话
lapis 项目添加prometheus 监控
lapis 1.7.0 更好的openresty 版本兼容以及安全数据库支持
skipper backend 负载均衡配置
原文地址:https://www.cnblogs.com/Dicky/p/123780.html
最新文章
[实战]MVC5+EF6+MySql企业网盘实战(19)——BJUI和ztree
[工具类]DataTable与泛型集合List互转
[实战]MVC5+EF6+MySql企业网盘实战(18)——文件上传,下载,修改
[实战]MVC5+EF6+MySql企业网盘实战(17)——思考2
[实战]MVC5+EF6+MySql企业网盘实战(16)——逻辑重构3
[sharepoint]文档库,文件夹授权
[工具类]模拟请求时提交大字符串
nginx实现负载均衡的几种方式
nginx简介
nginx做TCP代理实现群集
热门文章
ab.exe使用
unigui日志
nginx实现unigui群集
nginx for windows
咏南WEB框架群集
intrawebIW当作REST 服务端
咏南跨平台中间件
GO语言 -- 调用DLL函数,填平所有的坑,最详尽攻略
Go -- 调用dll库
iOS 获取当前正在显示的ViewController
Copyright © 2011-2022 走看看