asp导出excel电子表格

稿件来源: 阳光企业网站管理系统   撰稿作者: 太阳光   发表日期: 2011-10-15   阅读次数: 161   查看权限: 游客查看

这是截取我制作项目中的一个小例子

 

<!--#include file="inc/Scs_conn.asp"-->
<%
'==================================
'=功  能:主调代码,相应功能皆有说明
'=文	件:导出excel
'==================================
Response.Clear
Dim objFSO,xlsFile,objStream
Dim FileName
Dim XlsSize,XlsName
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
FileName = Server.MapPath(".") & "\" & Replace(objFSO.GetTempName,".tmp","") & ".xls"
If objFSO.FileExists(FileName) Then
 objFSO.DeleteFile(FileName)
End If
Set xlsFile = objFSO.CreateTextFile(FileName,true)
		XlsName="人员总表" '保存的文件名
		xlsFile.WriteLine "工号"& CHR(9) &"姓名"& CHR(9) &"性别"& CHR(9) &"职务"& CHR(9) &"职称"& CHR(9) &"单位"
		Sql="Select * From [user] Where title_cat<>-1 and "&i_Id&"='"&s_Title&"' order by units"
		Set Rs=Server.Createobject("adodb.recordset")
		Rs.open Sql,Conn,1,1
		Do While Not Rs.Eof
			xlsFile.WriteLine CHR(39)&Rs("id")& CHR(9) &Rs("user_name")& CHR(9) &Rs("sex")& CHR(9) &Rs("user_duty")& CHR(9) &Rs("title")& CHR(9) &Rs("units")
			Rs.MoveNext
		Loop
		Rs.Close:Set Rs=Nothing
CloseDatabase '关闭数据库

Set xlsFile = Nothing
Set xlsFile = objFSO.GetFile(FileName)
XlsSize = xlsFile.Size
Set xlsFile = Nothing

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile FileName
Response.AddHeader "Content-Disposition", "attachment; filename="&Server.URLEncode(XlsName)&".xls"
Response.AddHeader "Content-Length", XlsSize
Response.Charset = "UTF-8"
Response.ContentType = "application/vnd.ms-excel"
Response.BinaryWrite objStream.Read
Response.Flush
Response.Clear()
objStream.Close
Set objStream = Nothing
objFSO.DeleteFile FileName
Set objFSO = Nothing
%>

关键词: asp导出excel,电子表格,导出excel   编辑时间: 2012-06-07

  • 感到高兴

    0

    高兴
  • 感到支持

    0

    支持
  • 感到搞笑

    0

    搞笑
  • 感到不解

    0

    不解
  • 感到谎言

    0

    谎言
  • 感到枪稿

    0

    枪稿
  • 感到震惊

    0

    震惊
  • 感到无奈

    0

    无奈
  • 感到无聊

    0

    无聊
  • 感到反对

    0

    反对
  • 感到愤怒

    0

    愤怒
0%(0)
0%(0)
共有0 条评论 发言请遵守【相关规定

网友评论

会员头像
发 表同步腾讯微博  匿名评论  验证码:  点击更新
  • 暂无评论
关闭模块文章图片 article Pictrue
  • 基于koa2+mysql+vue2.0+Element阳光内容管理系统
  • 代码覆盖率工具 Istanbul 入门教程
  • 全栈工程师的武器——MEAN
  • 9款超炫的 CSS3 复选框(Checkbox)
  • 微信开发在线翻译功能
  • CSS3那些不为人知的高级属性
  • 给easyui的datebox添加清空事件
  • flash写字效果
  • kendoUI系列教程之DropDownList下拉菜单
  • kendoUI系列教程之datetimepicker日期时间选择
  • kendoUI系列教程之datepicker日期选择
  • kendoUI系列教程之combobox下拉列表框
  • kendoUI系列教程之colorpicker
  • kendoUI系列教程之calendar日历表
  • kendoUI系列教程之autocomplete自动补齐
  • kendo ui简介