蛙蛙推荐:把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))
%>

 

蛙灵桌面。蛙灵桌面。蛙灵桌面

  • 2009年10月14日 14:37
  • 535KB
  • 下载

管理寓言:蛙鼠殒命

蛙鼠殒命                                           一只老鼠在河边玩耍的时候,遇见了英俊的青蛙。青蛙口若悬河地向老鼠介绍游泳的快乐、漂流的趣味以及沼泽地...
  • citizen2yy
  • citizen2yy
  • 2004-11-09 17:50:00
  • 1731

搜蛙导航(WAP网址站).rar

  • 2010年06月24日 09:10
  • 2.5MB
  • 下载

蛙蛙推荐:怎么使用js脚本理的timer控件

setTimeout是脚本种常用的一个函数,它用来让特定的函数执行之前等待一定的毫秒数,利用它我们可以在首页上的做到定时的无刷新更新数据等众多效果,我做了个小程序来演示这个函数的使用。-->var t...
  • onlytiancai
  • onlytiancai
  • 2004-07-26 14:00:00
  • 1266

蛙蛙推荐:蛙蛙浏览器

蛙蛙推荐:蛙蛙浏览器摘要:google推出了自己的网页浏览器,现在web浏览器的竞争更激烈了,各有各的用户群。其实有另一个领域没有多少竞争,那就是应用程序浏览器,今天给大家演示的蛙蛙浏览器,不仅可以...
  • onlytiancai
  • onlytiancai
  • 2008-09-15 09:38:00
  • 411

蛙蛙推荐:蛙蛙牌firefox插件

上次给大家演示了抓取IE内核浏览器的网页,这次和大家一起写一个抓取firefox页面文本的例子。Firefox有自身的一套结构良好的插件机制,但要深入开发Firefox插件的话要了解javascri...
  • onlytiancai
  • onlytiancai
  • 2008-11-12 00:37:00
  • 916

蛙蛙推荐:蛙蛙教你文本聚类

蛙蛙推荐:蛙蛙教你文本聚类摘要:文本聚类是搜索引擎和语义web的基本技术,这次本蛙和大家一起学习一下简单的文本聚类算法,可能不能直接用于实际应用中,但对于想学搜索技术的初学者还是有一定入门作用的。这...
  • onlytiancai
  • onlytiancai
  • 2008-05-10 20:40:00
  • 744

全国首个OMO模式——美特好旗下全球蛙新零售

转载请注明出自CSDN——全球最大中文IT社区一、OMO模式是什么?中文名:OMO商业模式;外文:Online-Merge-Offline;含义:行业平台型商业模式;作用:最终实现品牌传播与实际交易。...
  • weixin_41609669
  • weixin_41609669
  • 2018-01-17 14:23:33
  • 561

蛙蛙推荐:微软网络讲座系列教程视频下载

 蛙蛙推荐:微软网络讲座系列教程视频下载(2004年1月到2005年4越)好多都是很经典的问题解答和技巧应用,推荐大家有空看看总体浏览地址http://www.microsoft.com/china/...
  • VicAnt
  • VicAnt
  • 2005-06-24 14:51:00
  • 1041

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

转载原文:蛙蛙推荐:利用WMI脚本批量恢复SQLSERVER数据库 蛙蛙推荐:利用WMI脚本批量恢复SQLSERVER数据库 问题提出 蛙蛙求助:以编程的方式还原sq...
  • njw1028
  • njw1028
  • 2014-08-26 09:46:20
  • 393
收藏助手
不良信息举报
您举报文章:蛙蛙推荐:把recordset保存成xml文件
举报原因:
原因补充:

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