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ù)了，希望對(duì)大家學(xué)習(xí)asp能夠有所幫助。

您可能感興趣的文章:

相關(guān)文章

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