function downloadFile(strFile)
    strFilename = server.MapPath(strFile)
 
    Response.Buffer = True
    Response.Clear
 
    Set s = Server.CreateObject("ADODB.Stream")
    s.Open
 
    s.Type = 1
 
    on error resume next
 
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    if not fso.FileExists(strFilename) then
        Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
        Response.End
    end if
 
    Set f = fso.GetFile(strFilename)
    intFilelength = f.size
 
    s.LoadFromFile(strFilename)
    if err then
        Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
        Response.End
    end if
 
    Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
    Response.AddHeader "Content-Length", intFilelength
    Response.CharSet = "UTF-8"
    Response.ContentType = "application/octet-stream"
 
    Response.BinaryWrite s.Read
    Response.Flush
 
    s.Close
    Set s = Nothing
End Function

以上所述就是本文給大家分享的函數(shù)了，希望對大家學習asp能夠有所幫助。

您可能感興趣的文章:

相關(guān)文章

asp中去除內(nèi)容HTML標簽的三個function函數(shù)
asp中去除內(nèi)容HTML標簽的三個function函數(shù)...
2007-03-03
asp空間判斷jmail組件是否安裝或支持的代碼
今天在開發(fā)用戶留言，一份存到數(shù)據(jù)庫中，另外一份要發(fā)送到制定的郵箱中，因不知道服務(wù)器是否支持，如果支持則發(fā)送留言信息到email中。
2010-12-12
ASP中字符與數(shù)字內(nèi)置操作函數(shù)整理
在ASP中,預(yù)定義了許多函數(shù),可以幫助我們簡化代碼、提高開發(fā)效率,本文將介紹一些常用的ASP字符與數(shù)字內(nèi)置操作函數(shù),以便開發(fā)人員更加方便、快速地創(chuàng)建 Web 應(yīng)用程序,
2023-12-12
P3P 和跨域 (cross-domain) cookie 訪問(讀取和設(shè)置）
在IE 里面跨域去設(shè)置 cookie跨域的實現(xiàn)，嘗試了n中方法都不行，查了一下資料，可以通過設(shè)置header中的p3p值來實現(xiàn)，真不錯：）
2009-06-06
asp與php中定時生成頁面的思路與代碼
很多時候，我們需要用到定時生成html頁面的功能，原理簡介：利用文件如index.html的最后修改時間和當前的時間做比較，當時間差超過一定間隔如2小時，則調(diào)用相關(guān)頁面進行生成新頁面。原始源代碼如下
2021-07-07
asp google pr查詢代碼
本人從網(wǎng)絡(luò)搜集并整理了一下asp查詢pr值的代碼,實驗并成功的用asp實現(xiàn)了查詢pr，測試通過。
2011-02-02
為SWFUpload增加ASP版本的上傳處理程序
SWFUpload上傳組件，最初由Vinterwebb.se開發(fā)，組件主體由Flash與JavaScript整合而成，主要致力解決多文件、大文件等的上傳問題，組件提供了豐富的事件與接口方便web開發(fā)者調(diào)用，開發(fā)者可以通過js與css等很方便的控制樣式和實現(xiàn)想要的上傳效果。
2011-03-03
ASP JSON類文件的使用方法
前段時間開始學習JSON在ASP中的使用，JSON確實比XML方便。以前在寫程序的時候有考慮使用XML來存儲數(shù)據(jù)，但是一直覺得生成文檔及文檔的調(diào)用查詢等都很麻煩。
2011-06-06
asp下根據(jù)標題生成關(guān)鍵字的代碼
實現(xiàn)的功能是：標題+標題里除去非中文及中文標點外的字符的、相鄰兩個字符的集合傳說中這是采集文章處理keywords的最佳方式，呵呵，做了一個，用下試試
2008-06-06
asp中response.write(''中文'')或者js中文亂碼問題
這篇文章主要介紹了asp中response.write('中文')或者js中文亂碼問題，有時候我們需要輸出js也會出現(xiàn)亂碼，這里給出了幾個解決方法,需要的朋友可以參考下
2020-03-03