|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;excel|拔出|页面<%
setxlApp=Server.CreateObject("Excel.Application")
使服务端不呈现Excel窗口
xlApp.Visible=false
创建一个worksheet
setmyWorkbook=xlApp.Workbooks.Add
setmyWorksheet=myWorkbook.Worksheets(1)
创建表头
myWorksheet.Range("A1").Value=德律风薄
myWorksheet.Range("A1").Font.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(strAppPath,InstrRev(strAppPath,""))
strFullPath=strAppPath&strFileName
保留文件
myWorkbook.SaveAs(strFullPath)
封闭Excel
myWorkbook.Close
xlApp.Quit
setmyWorksheet=Nothing
setmyWorkbook=Nothing
setmyxlApp=Nothing
写出到扫瞄器中
Response.RedirectstrFileName
%>
</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|