用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 劳动节 11
2021年 端午节 55
2022年 元 旦 256
2022年 春 节 287
 
  • 您现在的位置:首页 >> ASP >> 内容

    asp下将数据库中的信息存储至XML文件中

    内容摘要: save.asp!-- #include file='adovbs.inc' --%' Constants file included above.' 如果文件存在则删除Dim objFSOSet objFSO = Server.CreateObject('Scripting.FileSystemObject')If objFSO.FileExists(Se......

      save.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

    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/3/3 发布时间:15:58:11 点击:337 录入:齐天大圣
  • 上一篇:在ASP中限制同一表单被多次提交
  • 下一篇:ASP 教程 ASP 处理JSON数据的实现代码
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.01 Build 21.03.31(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021