|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。扫瞄器|下载|扫瞄器|下载<%
DimStream
DimContents
DimFileName
DimFileExt
ConstadTypeBinary=1
FileName=Request.QueryString("FileName")
ifFileName=""Then
Response.Write"有效文件名."
Response.End
Endif
上面是不但愿下载的文件
FileExt=Mid(FileName,InStrRev(FileName,".")+1)
SelectCaseUCase(FileExt)
Case"ASP","ASA","ASPX","ASAX","MDB"
Response.Write"受回护文件,不克不及下载."
Response.End
EndSelect
下载这个文件
Response.Clear
Response.ContentType="application/octet-stream"
Response.AddHeader"content-disposition","attachment;filename="&FileName
SetStream=server.CreateObject("ADODB.Stream")
Stream.Type=adTypeBinary
Stream.Open
Stream.LoadFromFileServer.MapPath(FileName)
WhileNotStream.EOS
Response.BinaryWriteStream.Read(1024*64)
Wend
Stream.Close
SetStream=Nothing
Response.Flush
Response.End
%>
利用:Download.asp?FileName=/Files/MY.doc
把你的DOC文件放到根目次Files下,你也能够放到别的中央了。
如:
<AHREF="Download.asp?FileName=/Files/MY.doc">点击下载WORD文档</A>
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|