蛙蛙推荐:把recordset保存成xml文件

原创 2004年07月07日 08:43:00

<!-- 蛙蛙推荐:把recordset保存成xml文件 -->

<%
function wawa_recordxml(sql)
'*************************
'功能:把recordset转换成xml格式的字符串
'返回值:字符串
'参数:sql(字符串)
'提供者:蛙蛙王子(天极论坛)
'*************************
Dim Rs,strxml
strxml=""
strxml=strxml&"<?xml version='1.0' encoding='gb2312'?>"&vbcrlf
strxml=strxml&"<wawa>"
Set Rs= Server.CreateObject("Adodb.RecordSet")
Rs.Open sql,Conn,1,1
If Not(Rs.Eof And Rs.Bof) Then
 Do While Not Rs.Eof
  dim i
  For i = 0 To rs.Fields.Count - 1
   strxml=strxml&" <"&rs.Fields(i).Name&">"&wawa_xml_text(rs.Fields(i).Value)&"</"&rs.Fields(i).Name&">"&vbcrlf
  Next
  Rs.MoveNext
 Loop
 strxml=strxml&"</wawa>"
wawa_recordxml=strxml
Else
End If
rs.close
set rs=nothing
end function
%>
<%
function wawa_createxml(strXML)
'*************************
'功能:把符合xml格式的字符串写在服务器的一个目录上
'返回值:无
'参数:strxml(字符串)
'提供者:蛙蛙王子(天极论坛)
'*************************
dim objXML,fs,dir,files,path
Set fs = CreateObject("Scripting.FileSystemObject")
dir=server.mappath("xml")
if (fs.FolderExists(dir)) then
else
 fs.CreateFolder(dir)
end if
files="wawa.xml"
path=dir&"/"&files
set fs=nothing

Set objXML = Server.CreateObject("Msxml2.DOMDocument")
objXML.validateonparse = true
objXML.async=false
objXML.loadXML(strXML)
if objXML.ParseError.errorCode <> 0 then
    Response.Write("Error: " & objXML.parseError.reason & "<br>")
    Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>")
    Response.Write("At Line: " & objXML.parseError.line & "<br>")
    Response.Write("At pos: " & objXML.parseError.linePos & "<br>")
               
else
    set objRootElement = objXML.documentElement
    if not isObject(objRootElement) then
        Response.Write("no file loaded")
    else
        Response.Write(strXML)
  objXML.save Path
    end if
end if
end function
%>
<%
Function wawa_xml_text(fString)
'*************************
'功能:把一些特殊字符替换成转换符,以便让XML的TEXT节点合法
'返回值:字符串
'参数:fstring(字符串)
'提供者:蛙蛙王子(天极论坛)
'*************************
    if fString<>"" then
       fstring=cstr(fstring)
   fString = Replace(fString, "&","&amp;")
            fString = Replace(fString, "<","&lt;")
            fString = Replace(fString, ">","&gt;")
            fString = Replace(fString, CHR(34), "&quot;") '双引号
            fString = Replace(fString, CHR(39), "&#39;")  '单引号
            wawa_xml_text = fString
    end if
End Function
%>
<!-- 使用方法如下:conn.asp文件自己写就可以了,但数据库连接对象实例的名字必须是conn,然后把上面的三个函数保存为一个vbsxml.asp
 并包含进来,然后就是写自己所需要的sql字符串并调用函数了,函数里可能会有一些小BUG,比如说rs.field.name里面"xml",生成的XML
 文件就不合法了,时间太短,不写了,这些BUG由自己去保证不出错吧,呵呵
-->

<!--#include file="conn.asp" -->
<!--#include file="vbsxml.asp" -->
<%
'Response.ContentType = "text/XML"
'sql="SELECT lei_id as 编号 ,lei_name as 城市 FROM tese_lei ORDER BY lei_id DESC"
'call wawa_createxml(wawa_recordxml(sql))
%>


<%
Function wawa_xml_text(fString)
'*************************
'功能:把一些特殊字符替换成转换符,以便让XML的TEXT节点合法
'返回值:字符串
'参数:fstring(字符串)
'提供者:蛙蛙王子(天极论坛)
'*************************
??? if fString<>"" then
???? ??fstring=cstr(fstring)
???fString = Replace(fString, "&","&")
??????????? fString = Replace(fString, "<","<")
??????????? fString = Replace(fString, ">",">")
??????????? fString = Replace(fString, CHR(34), """) '双引号
??????????? fString = Replace(fString, CHR(39), "'")? '单引号
??????????? wawa_xml_text = fString
??? end if
End Function
%>



<%
'Response.ContentType = "text/XML"
'sql="SELECT lei_id as 编号 ,lei_name as 城市 FROM tese_lei ORDER BY lei_id DESC"
'call wawa_createxml(wawa_recordxml(sql))
%>

 

蛙蛙推荐:如何编写高质量的python程序

原文:http://www.cnblogs.com/onlytiancai/archive/2012/09/11/How_to_write_high-quality_python_program.ht...
  • cjh6311882
  • cjh6311882
  • 2013年03月25日 00:00
  • 1358

蛙蛙推荐:利用WMI脚本批量恢复SQLSERVER数据库

转载原文:蛙蛙推荐:利用WMI脚本批量恢复SQLSERVER数据库 蛙蛙推荐:利用WMI脚本批量恢复SQLSERVER数据库 问题提出 蛙蛙求助:以编程的方式还原sq...
  • njw1028
  • njw1028
  • 2014年08月26日 09:46
  • 358

蛙宝任务检索

# coding=utf-8 import requests import re from lxml import etree import time import pandas as pd from...
  • olivesun88
  • olivesun88
  • 2017年04月25日 19:08
  • 210

《蛙》短评及书摘

单独二胎政策落定,莫言的长篇小说《蛙》我也看完了, 《蛙》的意义不仅是对计划生育政策得失的某种评价和反思,更包含了如何将姑姑和蝌蚪在六十年的岁月中所获得的历史经验转化为文学形式,使之成为可感形式问题的...
  • pan_tian
  • pan_tian
  • 2013年11月20日 13:50
  • 2096

asp 创建和读取xml文件

using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We...
  • lz37025
  • lz37025
  • 2017年01月06日 11:51
  • 748

青草池塘处处蛙

1.睡觉 春眠不觉晓,处处闻啼鸟。夜来风雨声,花落知多少。 2.发呆 人闲桂花落,夜静春山空。月出惊山鸟,时鸣春涧中。 3.喝酒 绿蚁新醅酒,红泥小火炉,晚来天欲雪,能饮一杯...
  • zuojiansizuop
  • zuojiansizuop
  • 2014年08月25日 11:53
  • 8

java实现xml文件读取并保存到对象

首先浅聊一下解析xml的四种方式:             1.
  • shukebai
  • shukebai
  • 2014年11月06日 10:13
  • 3397

thinkphp将数组存到xml文件中

在thinkPHP中将数组存储到xml文件中
  • simplty
  • simplty
  • 2014年06月10日 21:01
  • 3777

ThinkPHP生成xml格式并导出此xml格式的文件(批量导出)

网上找了好多种方法,大概有这四种方法,拼接xml字符串,利用DomDocument,利用XMLWriter,利用SimpleXML。 但是都不符合我的需求,也有人写了专门用于生成XML格式文件的接口...
  • wserendipity
  • wserendipity
  • 2017年05月26日 17:49
  • 569

基于python标准库对XML文件的保存和加载

上文对基于PyQt对XML文件进行保存和加载进行说明,本文则是通过python标准库xml dom讲数据写入到xml文件然后解析,解析XML文件则通过两种方式:DOM和SAX。两者的区别是前者适合编辑...
  • xiaoyangyang20
  • xiaoyangyang20
  • 2017年01月15日 14:40
  • 149
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:蛙蛙推荐:把recordset保存成xml文件
举报原因:
原因补充:

(最多只允许输入30个字)