a href="test1.doc">下载</a>
压成rar吧,如果直接写是会打开的。
要不可以用输出流来下载吧,我不太懂这个
压成rar吧,如果直接写是会打开的。
要不可以用输出流来下载吧,我不太懂这个
解决方案 »
- 在网页上设计动态流程图的东西
- 页面链接标识的隐藏
- ff 取不了表單的innerHTML的值
- javascript
- 初哥问题:别人网站调用我网站的图片,或者JS,会占用我网站IIS连接数吗?加够100分!
- >_< >_< >_< 怎么判断区间不存在重叠的 数据段啊,菜鸟求~~~~~~~~~~~~~~~~~~~~~
- 散分了!!!!!!!!!!
- 请问我要点右键的时候弹出菜单,为什么不正确,谢谢,在线等候
- history.back()得到的页面是不是不支持javascript代码的?????
- 在哪找帮助???
- 看看这段源代码 请各位帮忙高手找一下错误
- getScrollX()及getMouseX()是什么东东,为什么我在网页上使用时,老是提示"getMouseX(evt)缺少对象"
<%
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=16384
Response.Buffer = True
Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
Dim path, mimeType, sucess,downfilename
downfilename=request("filename")
path = Server.MapPath(downfilename)
mimeType="text/plain"
sucess = TransferFile(path, mimeType,downfilename)
Response.End
%>