Execel文件插入到ASP页面

发表日期：2001-11-18

<%
Set Xlapp=Server.Createobject("Execel.Application")
Xlapp.Visible=false
'使服务端不出现Execel窗口
Set myWorkbook=xlapp.Wordbooks.Add
Set myWorksheet=myWorkbook.Worksheets(1)
'建立一个WorkSheet
myWorkSheet.Range("A1").Value=''
myWorkSheet.Range("A1").Vont.size=18
myWorkSheet.Range("A1").Font.Bold=True
myWorkSheet.Range("A2").Value='姓名'
myWorkSheet.Range("B2").Value='住址'
myWorkSheet.Range("C2").Value='电话'
myWorkSheet.Range("D2").Value='传真'
'建立表头
myWorkSheet.Range("A2:D2").Font.Bold=True
StrFileName=Session.SessionID&".xls"
'确保文件名唯一
strAppPath=Request.ServerVariables("PATH_TRANSLATED")
strAppPath=Left(strAppPth,InstrRev(strAppPath,"\"))
strFullPath=strAppPath&strFileName
myWorkBook.SaveAs(StrFullPath)
'保存文件
myWorkbook.Close
'关闭Excel
xlApp.Quit
Set myWorkSheet=Nothing
Set myWorkBook=Nothing
Set myxlApp=Nothing
Response.Redirect strFileName
'发到浏览器中去
%>

购买网站空间(支持ASP/.NET/PHP)：送域名、送邮箱、更送1G U盘

上一篇：FrontPage 2000+DB2实现数据库信息发布人气:12870
下一篇：利用ASP在客户端注册DLL文件人气:11888

浏览全部的内容 Dreamweaver插件下载常用网页广告代码全集

最新网站源码	最新软件下载
2008-8-21 Nucleus v3.33 多国语言版 2008-8-21 HDWiki v4.0 bulid 080821 UTF-8 2008-8-21 明科在线客服系统 v6.0 2008-8-21 KesionCMS v5.0.2 正式版 utf-8 2008-8-21 KesionEshop v5.0.2 正式版 utf-8 2008-8-21 HDWiki v4.0 bulid 080821 GBK 2008-8-21 新文互动酷站展示系统 v1.5 2008-8-21 Punbb v1.2.20 多国语言版 2008-8-21 QQ头像网 beta	2008-8-16 iLaba Player(小喇叭播放器) v2. 2008-8-16 DoubleClickFix 鼠标双击修正工具 2008-8-16 CrystalCPUID 4.15.2.451 2008-8-16 VeryCD 电驴(easyMule) 1.0.4 Bu 2008-8-16 uTorrent 1.8 Build 11813 - Sta 2008-8-16 比特精灵(BitSpirit) v3.3.2.287 2008-8-16 StayInTune音叉 v1.0 破解版 2008-8-16 iChing《周易》汉化补丁 v1.0 2008-8-16 Starmap星空图v1.0汉化破解版

发表评论
姓　名:	验证码:
内　容:

[ 汉字翻译拼音 ] [ 广告代码 ] [ 符号对照表 ] [ 进制转换 ] [ 经典小工具 ] [ 个税计算 ] [ 汉字简繁转换 ] [ 普通单位换算 ] [ 公制单位换算 ]

[ 生辰老黄历 ] [ 国内电话区号 ] [ 国家代码与域名缩写 ] [ 文字加密解密 ] [ 健康查询 ] [ 万年历 ] [ 手机号码查询 ] [ ip搜索 ] [ Google PR查询 ]