<%
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
'发到浏览器中去
%>
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器