文歌随笔(Aven's Blog)

致"文歌"所有朋友:
  
  今天,“文歌随笔”已经走了十个年头。很庆幸,他还在,近期我会抽些时间对内容进行调整,感谢大家的支持! 谢谢!
                                                      ----黑蝙蝠(QQ:67858601)
2015.05.08

English Sentence Loading...
英语句子加载中...

  网站消息:增加二维码扫描功能,扫一扫可以使用手机浏览!2015.05.13
  网站消息:
关闭原有评论和留言系统,加入第三评论系统-友言!2015.05.12
  网站消息:尝试着对博客进行调整,尽量更新,敬请关注!2015.05.08

  1.申请“友情链接”的朋友请到这里        2.留言板| 亲,请点这里给我留言吧

[ASP]如何用ASP输出Word、Excel文件




<%

    Dim Fso,FileExt,strFilePath,Mime
    strFilePath = "f:\sifang\qyoa\国贸手抄.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
'######################################################
%>



[本日志由 黑蝙蝠 于 2006-10-13 11:12 AM 编辑]
上一篇: [健康]如何提高睡眠质量
下一篇: [编程]常用SQL书写技巧
文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp 输出 Word Excel 文件
相关日志:
评论: 1 | 引用: 0 | 查看次数: 11737
发表评论