- asp执行出错，如何跳过错误到错误页面
- 聊天室实现私聊(一)
- 升级MD5.ASP，打造完全动态不重复的安全加密代码
- 判断Cookies是否处于开启状态
- 让asp立即输出缓存(Response.flush),实时显示进度
- Win2k IIS 远程执行命令漏洞
- 学会在ASP中使用存储过程
- 模仿PHP写的ASP分页
- ISAPI Rewrite软件实现IIS图片防盗链
- 常用Email组件发送函数
- 在WAP网站上建立反馈表单
- ASP 3.0高级编程（五）
- 提高ASP性能的最佳选择（三）
- 断开的数据库连接的一个例子
- ASP进阶教程Ⅸ：留言查询功能（一）
- Asp的安全管理（11）
- 用户注册及跟踪代码（二）
- Windows 2003下不注册组件用ASP发邮件
- 正则表达式简介（11）
- VBScript与JScript谁怕谁(5)
- 用EasyMailObject组件处理Exchange邮件源代码(1)
- [视频教程]Dreamweaver与ASP动态网页设计教程 - 第一章HTML基本知识之7 TABLE表格标识
- SQL数据操作基础(中级) 7
- 不刷新页面改变下拉菜单内容
- ASP.NET强大的性能(一)
- @ 指令参考之二 - @ENABLESESSIONSTATE
- 如何用ASP编写网站统计系统四
- ADO 光 标 基 础 (1)
- 一个统计当前在线用户的解决方案
- 完整的访问统计程序(三 应用篇)
将ado方便的转化为XML文件
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
<!-- #include file="adovbs.inc" -->
<%
' 删除已经存在的文件
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 连接
Dim rstXML ' ADO 记录集
Set cnnXML = Server.CreateObject("ADODB.Connection")
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
%>
<%
' 删除已经存在的文件
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 连接
Dim rstXML ' ADO 记录集
Set cnnXML = Server.CreateObject("ADODB.Connection")
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应用程序
- 下一篇文章： IIS使用10则