|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。word|扫瞄器|下载<%
Response.Buffer=true
获得要下载的文件,假如不为空。就下载
dimurl,trueurl
url="下载文件路径和下载文件名"
fname=Request("filename")
iffname""then
trueurlurl=server.MapPath("/")&url
endif
setobjFso=server.CreateObject("scripting.filesystemobject")
setfn=objFso.GetFile(trueurl)
flsize=fn.size
flname=fn.name
setfn=nothing
setobjFso=nothing
setobjStream=server.CreateObject("adodb.stream")
objStream.Open
objStream.Type=1
objStream.LoadFromFileurl
selectcaselcase(right(flname,4))
case".asf"
ContentType="video/x-ms-asf"
case".avi"
ContentType="video/avi"
case".doc"
ContentType="application/msword"
case".zip"
ContentType="application/zip"
case".xls"
ContentType="application/vnd.ms-excel"
case".gif"
ContentType="image/gif"
case".jpg","jpeg"
ContentType="image/jpeg"
case".wav"
ContentType="audio/wav"
case".mp3"
ContentType="audio/mpeg3"
case".mpg","mpeg"
ContentType="video/mpeg"
case".rtf"
ContentType="application/rtf"
case".htm","html"
ContentType="text/html"
case".txt"
ContentType="text/plain"
Case".ASP",".ASA","ASPX","ASAX",".MDB"
Response.Write"受回护文件,不克不及下载."
Response.End
caseelse
ContentType="appliation/octet-stream"
endselect
Response.AddHeader"Content-Disposition","attachment;filename="&flname
Response.AddHeader"Content-Length",flsize
Response.CharSet="UTF-8"
Response.ContentType=ContentType
Response.BinaryWriteobjStream.Read
Response.Flush
Response.Clear()
objStream.Close
setobjStream=nothing
%>对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |
|