|
操作完excel文件需要将文件进行输出，实际弄一下，用ASP的redirect到excel方法，有时候是在IE中直接打开，有时候是弹出"下载 打开 保存"窗口.如果需要直接在IE中打开，不放用FSO载入excel文件，然后在IE中输出。
<%
Dim Fso,FileExt,strFilePath,Mime
strFilePath = "f:aspxuexi.doc"
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
FileExt = Fso.GetExtensionName(strFilePath)
Set fso=Nothing
Select Case FileExt
Case "doc"
Mime="Application/msword"
Case "xls"
Mime="Application/msexcel"
End Select
Call OutPut(strFilePath,Mime)
'######################################################
Function OutPut(strFilePath,Mime)
Response.ContentType = Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
'######################################################
%>
在实际应用中。当服务器端正在运行excel或ACCESS程序时，客户端提交建立excel。application对象无法成功。另一种情况，当一个客户端提交请求时，并没有结束时，另一个客户端提交的请求也无法成功！或许这个问题有别的解决方案，但是至少这是不稳定的。
正好我们部门内部网上有相关成功的例子，挖出来看，原来是在客户端建立excel。application的。这样，服务器端不会再冲突。对于客户端，因为是在局域网内运行，客户IE安全级别可以设低，并允许运行相关activeX(就是在IE工具选项中把各类涉及安全的东西都设为允许，具体的哪一项没有去追究)，即使没有设置，IE也会弹出警告窗口：“是否允许运行activeX？”
实现的代码和上篇日志差不多，简单的如下：
（编辑：佛山站长网）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
