愤青参军记,给女学生虐肛记,台州2手车
<%
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
发到中去
%>
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
网友评论