用ASP将数据转为XML文件下载

xml|数据|下载

  前一段日子在用ASP开发PDM系统.系统开发就涉及一些数据导入导出的程序!开始自己试过写成了CSV格式的导入导出程序.效果也不错,不过仍不满足,因为有些数据用CSV无法满足,比如有数据库中含有多个","号.就没办法了.求助了一些参考书,呵呵,终于找到了更方便的方法,就是用XML导入导出数据库了!现在就把代码贴出,与大家分享!呵呵

  总共需要三个文件:

conn.asp用于数据库连接!

download.asp下载页面

data_to_xml.asp转数据页面

文件名:

data_to_xml.asp

-----------------------------------------------

<!--#include file="download.asp"-->
<!--#include file="conn.asp"-->
<%

set rs=server.CreateObject("adodb.recordset")
set fso=server.CreateObject("Scripting.FileSystemObject")
'''''''''''''''''''''''''''''''
xml_filepath=root_path & "\loadfile\file_class.xml"
'用SQL查出要导出的数据!
sql="select * from file_class"
rs.open sql,conn,1,3
if fso.fileexists(xml_filepath) then
 fso.deletefile xml_filepath
end if
rs.save xml_filepath,1
''----------------------------------------------
call transferfile(xml_filepath,"file_class.xml")

response.end
%>

conn.asp

-----------------------------------------------

<%
db_path=root_path & "\data\syste_@k#ksks.asa"
 'response.write db_path
 'response.end
 Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_path
 '如果你的服务器采用较老版本Access驱动,请用下面连接方法
 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & db_path
 conn.Open connstr
%>

download.asp

------------------------------------------------------
<%
'''''''''''''''''''''''''''''''''''''''''''
'' 文档作用:下载组件
'' 创建时间:2005-8-19
'' 修改情况:
'''''''''''''''''''''''''''''''''''''''''''
const forreading=1
const tristatetrue=-1
const file_transfer_size=16384
response.Buffer=true
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 用于文件下载!
'' f_path:文件的绝对路径,f_filename:要保存的文件名
'''''''''''''''''''''''''''''''''''''''''''''''
function transferfile(f_path,f_filename)
 dim path,mimetype,filename
 dim objfilesystem,objfile,objstream
 dim char
 dim sent
 path=f_path
 filename=f_filename
 send=0
 transferfile=true
 set objfilesystem=server.CreateObject("scripting.filesystemobject") 
 set objfile=objfilesystem.getfile(path)
 mimetype=objfile.type
 set objstream=objfile.openastextstream(forreading,tristatetrue)
 response.AddHeader "content-disposition","attachment;filename=" & filename 
 response.AddHeader "content-length",objfile.size
 do while not objstream.atendofstream
  char = objstream.read(1)
  response.BinaryWrite(char) 
  sent=sent+1
  if(sent mod file_transfer_size)=0 then
   response.Flush()
   if not response.IsClientConnected then
    transferfile=false
    exit do
   end if
  end if
 loop
 response.flush
 if not response.IsClientConnected then transferfile=false
 objstream.close
 set objstream=nothing
 set objfilesystem=nothing
end function
%>

时间: 2024-11-17 14:13:48

用ASP将数据转为XML文件下载的相关文章

xml-java查询数据库数据转为XML文件实体属性多时的问题

问题描述 java查询数据库数据转为XML文件实体属性多时的问题 现在是查出数据库数据是list集合,通过遍历list获取Custinfo,如果实体中有很多属性那么就要写很多次getxxx()感觉这样繁琐很浪费时间,有什么方法不通过getXxx()可以把Custinfo属性中对应的数据库的数据循环加到xml文件中,目的是想减少实体中有很多属性时写getXxx(),这个想法是不是行不通? 解决方案 为什么要转为xml文件,,别人都是转为json,, 解决方案二: 你想想框架是怎么根据你的Bean对

asp.net将datatable数据转换为xml下载

问题描述 asp.net将datatable数据直接转换为xml并下载吗?现在的程序是将datatable数据转换为xml文件并保持在服务器,然后再下载.不知道能跳过"将datatable生成xml文件保存在服务器"这一步,直接将datatable转换成xml文件下载吗? 解决方案 解决方案二:直接将xml字符串response出来就可以了啊,指定返回的是xml,你查下文件下载,思路一样的解决方案三:有点不能理解将datatable数据转换为xml文件并保持在服务器和将datatabl

利用ASP发送和接收XML数据的处理方法

xml|数据 因为要做移动梦网WAP的一些接口,所以要用到这种方式,接下来会有ASP.net版本的,这个是ASP版本的,利用了MSXML2.XMLHTTP对像. request.asp dimHttpssetHttps=server.createobject("MSXML2.XMLHTTP")'定义一个XMLHTTP对像Https.open"POST","http://127.0.0.1/testpost/response.asp",falseH

利用ASP发送和接收XML数据的处理方法_ASP基础

request.asp dim Https set Https=server.createobject("MSXML2.XMLHTTP") '定义一个XMLHTTP对像 Https.open "POST","http://127.0.0.1/testpost/response.asp",false Https.send " echo 123456 987654 11111 22222 " if Https.readystate

用Asp.net实现基于XML的留言簿

asp.net|xml 一.概要: 留言簿是网站的一个重要组成部分,是访问者发表意见的场所,也是网站管理员了解网站基本情况的有力工具.所以留言簿在现在的网站中扮演了重要的角色. 可是在以前开发一个留言簿并不是一件容易的事,开发者的工作量往往会很多.而现在随着微软推出VS.net,相应的技术推陈出新.特别是XML在.net Framework中的广泛运用,使得整个.net构架具有十分优越的基础.在VS.net推出的同时,也伴随而来了一门新兴的语言C#.C#作为微软.net战略的重要部分,具有特别优

实战ASP(7):使用ASP、VB和XML建立运行于互联网上的应用程序(上)

xml|程序|互联网|xml|互联网 使用ASP.VB和XML建立运行于互联网上的应用程序(1)     在个人电脑上使用单机版应用软件的时代很快就要过去了,现在大部分的应用程序都开发出网络版或大都需要共享网络上丰富的数据资源.我们虽然写了很长时间基于客户端/服务器的应用程序,但是这些程序大部分只是运行在小型的局域网内部.然而,有很多客观的原因要求我们要修改这些程序以使它们能够运行在一个企业的内部网甚至是国际互联网. 是什么原因迫使我们做呢?首先,随着一个企业的规模逐渐扩大,公司可能会跨地区甚至

实战ASP(8):使用ASP、VB和XML建立运行于互联网上的应用程序(下)

xml|程序|互联网|xml|互联网 使用ASP.VB和XML建立运行于互联网上的应用程序(2)     在实际的编程过程中,你们应当使用一些方法使应用程序更加有高效性.你可以把ASP中的关于取得数据的代码端搬到一个COM应用程序中去然后创建一个XSLT变换来显示返回的数据.好,我不多说了,现在你所要做的就是试一试吧! Option Explicit Private RCommands As Recordset Private RCustomers As Recordset Private RC

ASP、VB和XML建互联网应用程序1

用ASP.VB和XML建立互联网应用程序(1) 在个人电脑上使用单机版应用软件的时代很快就要过去了,现在大部分的应用程序都开发出网络版或大都需要共享网络上丰富的数据资源.我们虽然写了很长时间基于客户端/服务器的应用程序,但是这些程序大部分只是运行在小型的局域网内部.然而,有很多客观的原因要求我们要修改这些程序以使它们能够运行在一个企业的内部网甚至是国际互联网. 是什么原因迫使我们做呢?首先,随着一个企业的规模逐渐扩大,公司可能会跨地区甚至跨国经营,每个分公司的员工的数量也会逐年增多,这些在外地的

从 ASP Web 页返回 XML

概要从 Active Server Pages (ASP) Web 页返回 XML 数据是一种常见的编程要求. 实现此要求所用的方法因用来托管 ASP 应用程序的 Microsoft Internet 信息服务 (IIS) 的版本而异. 本文中的分步指南带有相关的示例代码,演示了怎样从 ASP 页返回可扩展标记语言 (XML) 数据.  下面的示例代码创建一个 ASP 页,此页返回XML 格式的 ActiveX Data Objects (ADO) 记录集的内容. 此代码连接着 SQL Serv