繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ado方便的转化为XML文件
- ASP
- 随机提取Access/SqlServer数据库中的10条记录的SQL语句
- 实现对Access数据库表重命名的一段代码
- XML+XSL+CSS+ASP打造留言簿
- 小偷&小偷入库&采集入库
- 使用asp代码突破163相册的防盗连
- CJJ专用ASP类库中的某个class
- 能不能在flash动画中给asp传递变量？
- 禁止站外提交表单
- 改进一下asp自带的formatNumber函数
- 收集asp的常用函数
- CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
- ASP 指南
- pjblog2的参数
- ASP智能搜索的实现
- 网站生成静态页面攻略2:数据采集
- 网站生成静态页面攻略3:防采集策略
- 网站生成静态页面攻略4:防采集而不防搜索引擎策略
- 简单分页函数一 常用
- asp最常用的分页函数
- asp:生成静态页面函数
ASP 中的 将ado方便的转化为XML文件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 150 ::
收藏到网摘: n/a
<%
' 删除已经存在的文件
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
%>
评论 (0) All
