<%@ Language=VBScript codepage=936 %>
<% Option Explicit %>
<%
Dim filePath, dataStream, BytesStream
filePath = request.queryString("path")
set BytesStream = server.createobject("ADODB.Stream") With BytesStream
.Open
.Type = 2
.LoadFromFile filePath
dataStream = .Readtext
.Close
End With set BytesStream=nothing Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
Response.ContentType="application/octet-stream"
Response.BinaryWrite dataStream
%>
<% Option Explicit %>
<%
Dim filePath, dataStream, BytesStream
filePath = request.queryString("path")
set BytesStream = server.createobject("ADODB.Stream") With BytesStream
.Open
.Type = 2
.LoadFromFile filePath
dataStream = .Readtext
.Close
End With set BytesStream=nothing Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
Response.ContentType="application/octet-stream"
Response.BinaryWrite dataStream
%>
解决方案 »
- 求助!!!为什么radio的onclick事件无效啊????
- 关于JQuery取得对象的问题!
- 帐号以二个字符开头,的SCRIPT 语句如何写呀
- 为元素指定事件方法该怎么写啊?谢谢
- javascript定时关闭对话框的问题
- javascript和jscript!
- 有没有绑定Class后自动触发JS的通用方法(htc不能用了,不习惯啊)
- 求一段js,用来判断列表中,假如没有选中前面的checkbox的,点击删除无效!
- 脚本错误: document.all.recArchived.style.display 为空或不是对象
- 关于Microsoft script debugger
- ?????????????
- 二维数组取值
Response.AddHeader("Content-Disposition", "attachment; filename=" + filename);