asp导出CSV格式数据
作者：haihe 来源：海河 发布时间：2008-12-24 21:25:00
标签：csv,数据,导出,asp
参数
strSQL 要导出的SQL查询语句
strFields 字段名称列表,如果为空字符,则使用SQL语句中的字段名
用法示例:
1:export.asp?strSQL=select * from table1
2:export.asp?strSQL=select ID,NAME,AGE FROM EMPLOYEES&strFields =编号,姓名,年龄
export.asp
<％
Response.Buffer = true
Response.AddHeader "Content-Disposition","attachment;filename=exportdata.csv;"
Response.CharSet = "bg2312"
Response.ContentType = "application/octet-stream"
Dim DBName,Conn
DBName="DATA/EPM.mdb" '定义数据库路径及名称
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBName)
DIM strSQL,strFields
DIM RST
DIM I
strSQL=REQUEST("strSQL")
strSQL=replace(strSQL,"％","％") '解决％号丢失问题, 参数中把％变成全角的,不然全丢失
strSQL=replace(strSQL,"＃","#") '解决＃号丢失问题
strFields=REQUEST("strFields")
'Response.Write(strSQL &VBCRLF)
SET RST = CONN.EXECUTE(strSQL)
IF RST.EOF THEN
Response.Write("没有可导出数据！")
response.end
END IF
IF LEN(strFields)>0 THEN
Response.Write replace(strFields,"ID","id") '防止出现SYLK文件打开提示
ELSE
FOR I =0 TO RST.FIELDS.COUNT-1
'strFields=strFields &RST.FIELDS(I).NAME & ","
'防止出现SYLK文件打开提示
'以ID（大写)内容开头的文件
strFields=strFields & replace(RST.FIELDS(I).NAME,"ID","id") & ","
NEXT
strFields=LEFT(strFields,LEN(strFields)-1)
Response.Write(strFields)
END IF
Response.Write(vbcrlf)
Response.Write(RST.GetString(,,","))
％>
1、如果字段里面带双引号需要用 chr(34) 包括起来
2、字段里面有html代码的话 需要用replace(str,vbcrlf,"") 替换掉 字段里面 vbcrlf 代码
0
投稿猜你喜欢
对shuffle=True的理解：之前不了解shuffle的实际效果，假设有数据a,b,c,d，不知道batch_size=2后打乱，具体是- 在上一篇文章中，我整理了pandas在数据合并和重塑中常用到的concat方法的使用说明。在这里，将接着介绍pandas中也常常用到的joi
- 爬取网页的流程一般如下：选着要爬的网址（url）使用 python 登录上这个网址（urlopen、requests 等）读取网页信息（re
- 1. python-firepython-fire 是一个三方库，可以将任何 Python 对象变成一个命令行接口。使用前先 pip ins
- 本文属于JavaScript的基础技能. 我们将学习结合/合并两个JS数组的各种常用方法,并比较各种方法的优缺点.我们先来看看具体的场景:v
- 一、连接MYSQL：格式： mysql -h主机地址 -u用户名 -p用户密码1、例1：连接到本机上的MYSQL。首先在打开DOS窗口，然后
- 第一版，能实现，但最后发现文件的顺序改变了：import osdef reename(): nm=1 pathh="/home/h
- 默认情况下，TensorFlow 会映射进程可见的所有 GPU 的几乎所有 GPU 内存（取决于 CUDA_VISIBLE_DEVICES）
- 这篇文章主要介绍了Python类如何定义私有变量,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以
- 本来想穷举所有密码,算法要么就嵌套太深,要么就特别耗内存(会溢出).后来选了一个简单重复概率很低的算法.代码如下:# -*- coding:
- 关于代码调试的技巧，我之前写过很多的文章，关注比较早的同学，也应该都有看过。还没看过的同学，欢迎前往查阅：更多Python代码调试技巧其中有
- 一个客户提供一个股价的信息，要求放在页面上，显示一些数据，需要从远程获取xml，然后解析写在网页上，开始不会觉得很难，其实蛮简单的，先用ja
- 有用的 Python 单行代码片段，只需一行代码即可解决特定编码问题！在本文中，云朵君将分享20 个 Python 一行代码，你可以在 30
- Python中滑动平均算法（Moving Average）方案：#!/usr/bin/env python# -*- coding: utf
- 窗外下着小雨，作为单身程序员的我逛着逛着发现一篇好东西，来自知乎 你都用 Python 来做什么？的第一个高亮答案。到上面去看了看，地址都是
- css的流行导致了标签的流行，很直观，看起来很清爽。流行的一部分，还有很多种功能强大且美观的导航。。。1. Change.org2. N.D
- 用Vue写了一个简单的时间钟，供大家参考，具体内容如下此时钟内容包括年月日及星期和时分秒。功能分析：1.年份，日期，时间的显示2.动态的变化
- Django 简介Django是一个开放源代码的Web应用框架，由Python写成。采用了MTV的框架模式，即模型M，视图V和模版T。它最初
- 前端使用input 来写radio,小程序使用radio标签 也可以使用<radio />单标签1.自定义radio样式、wx默
- 列表渲染 key 的原理和作用key就是为该节点做身份标识，如果对key绑定index的值，那么很容易出现问题：1.若对数据进行：逆序添加、
