最近做的一個asp項目需要強制下載圖片,我在網上找了很多關於下載遠程圖片的ASP代碼,但測試結果都不行。沒辦法只好自己操刀了,有什麼紕漏的地方還請大家指出。
圖片不進行處理,圖片默認是用瀏覽器打開顯示,如果希望圖片變為下載可以使用以下代碼
- functiondownloadFile(strFile)
- strFilename=server.MapPath(strFile)
- Response.Buffer=True
- Response.Clear
- Sets=Server.CreateObject(ADODB.Stream)
- s.Open
- s.Type=1
- onerrorresumenext
- Setfso=Server.CreateObject(Scripting.FileSystemObject)
- ifnotfso.FileExists(strFilename)then
- Response.Write(<h1>Error:</h1>&strFilename&doesnotexist<p>)
- Response.End
- endif
- Setf=fso.GetFile(strFilename)
- intFilelength=f.size
- s.LoadFromFile(strFilename)
- iferrthen
- Response.Write(<h1>Error:</h1>&err.Description&<p>)
- Response.End
- endif
- Response.AddHeaderContent-Disposition,attachment;filename=&f.name
- Response.AddHeaderContent-Length,intFilelength
- Response.CharSet=UTF-8
- Response.ContentType=application/octet-stream
- Response.BinaryWrites.Read
- Response.Flush
- s.Close
- Sets=Nothing
- EndFunction
以上所述就是本文給大家分享的函數了,希望對大家學習asp能夠有所幫助。