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
查看全文
相关阅读:
【数据结构】线性表&&顺序表详解和代码实例
【智能算法】超详细的遗传算法(Genetic Algorithm)解析和TSP求解代码详解
【智能算法】用模拟退火(SA, Simulated Annealing)算法解决旅行商问题 (TSP, Traveling Salesman Problem)
【智能算法】迭代局部搜索(Iterated Local Search, ILS)详解
10. js时间格式转换
2. 解决svn working copy locked问题
1. easyui tree 初始化的两种方式
10. js截取最后一个斜杠后面的字符串
2. apache整合tomcat部署集群
1. apache如何启动
原文地址:https://www.cnblogs.com/Dicky/p/123780.html
最新文章
php基础知识
27. 移除元素
面试题--秒杀系统引发的思考
912. 排序数组
8. 字符串转换整数 (atoi)
聚合函数count(*)
衡量生活成本:消费者价格指数(CPI, Consumer Price Index)
衡量经济活动的价值:国内生产总值(GDP, Gross Domestic Product)
线性与齐次在多项式、函数中的定义
NSValue的valueWithBytes:objCType:方法
热门文章
什么是尾数
Objective-C中的copy协议
Objective-C中instancetype和id的区别
shell中的eval
iOS中的UIWindow
shell中命令的执行流程
【python】10分钟教你用Python做个打飞机小游戏超详细教程
【算法】关于图论中的最小生成树(Minimum Spanning Tree)详解
【数据结构】循环链表&&双向链表详解和代码实例
【数据结构】单链表&&静态链表详解和代码实例
Copyright © 2011-2022 走看看