减小字体
增大字体- ·上一篇文章：通用的asp分页函数代码
- ·下一篇文章：asp实现网站友情链接检查程序的代码
asp读取数据库中的信息存储生成XML文件的例子
这里是一个asp读取数据库中的信息存储生成XML文件的例子，这种效果通常应用于接口文件
把下面的asp程序保存为一个asp文件即可，注意一下里面的表名和字段名
<(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)
!--
#include file="adovbs.inc" -->
<
% ' Constants file included above. ' 如果文件存在则删除 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then objFSO.DeleteFile Server.MapPath("db_xml.xml") End IF Set objFSO = Nothing '变量声明 Dim cnnXML ' ADO connection Dim rstXML ' ADO recordset '创建数据连接对象 Set cnnXML = Server.CreateObject("ADODB.Connection") ' 这是连接access数据库的例子: 'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" _ ' &
Server.MapPath("db_scratch.mdb") &
"
" ' 下面以Sqlserver为例子讲解: cnnXML.Open "Provider=SQLOLEDB
Data Source=10.2.1.214
" _ &
"Initial Catalog=samples
User Id=samples
Password=password
" _ &
"Connect Timeout=15
Network Library=dbmssocn
" Set rstXML = Server.CreateObject("ADODB.Recordset") Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id
") Response.Write "<
p>
Saving data as XML...<
/p>
" &
vbCrLf ' 保存至xml格式. rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML ' 关闭对象、释放资源 rstXML.Close Set rstXML = Nothing cnnXML.Close Set cnnXML = Nothing Response.Write "<
p>
XML file written...<
/p>
" &
vbCrLf Response.Write "<
p>
Click <
a href=""db_xml.xml"">
here<
/a>
to view the file.<
/p>
" &
vbCrLf %>
asp读取数据库中的信息存储生成XML文件的例子
