28,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
风之浪漫 2004-10-13
- 打赏
- 举报
你换台机器试试.这个又不用编程.它是定死的HTML的语法。没有什么可变的。唯一的可能就是你测试的机器的问题!~
philcc 2004-10-13
- 打赏
- 举报
在本机这样可以，但是在局欲网就不行了。
yanudd 2004-10-13
- 打赏
- 举报
应该可以出现的 ，除非他禁止下载
philcc 2004-10-13
- 打赏
- 举报
嘿嘿 要是这么简单 我就到在这发帖子了！这样不行，点击后什么都不出现！
chenxuchen 2004-10-13
- 打赏
- 举报
不用多说了
tina2elva 2004-10-13
- 打赏
- 举报
<a href ="a.exe">download</a>
philcc 2004-10-13
- 打赏
- 举报
唉！真的不知道怎么解决落！
chenxuchen 2004-10-13
- 打赏
- 举报
检查一下你的服务器,看不是开放了执行的权限，如果是禁止试一下
雄牛 2004-10-13
- 打赏
- 举报
我晕
dcwang 2004-10-13
- 打赏
- 举报
<a href ="a.exe">download</a>
再不行就把a.exe先转换成a.rar格式后用
<a href ="a.rar">download</a>
再不行就把a.exe先转换成a.rar格式后用
<a href ="a.rar">download</a>
iuhxq 2004-10-13
- 打赏
- 举报
<%
function dl(f,n)
on error resume next
set s=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(server.mappath(f))
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end function
call dl(request("file"),request("file"))
%>
function dl(f,n)
on error resume next
set s=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(server.mappath(f))
response.contentType="application/x-gzip"
response.addheader "Content-Disposition:","attachment; filename=" & n
response.binarywrite(s.Read(s.size))
end function
call dl(request("file"),request("file"))
%>
常遇道 2004-10-13
- 打赏
- 举报
'用这个试试
'建一个Text1.txt
<%
'使用STREAM呀
Strname="tex1.txt" '文件
call downloadFile(strname)
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
' send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
%>
'建一个Text1.txt
<%
'使用STREAM呀
Strname="tex1.txt" '文件
call downloadFile(strname)
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
Response.End
end if
' send the headers to the users browser
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
%>
SDLin 2004-10-13
- 打赏
- 举报
也许是对方浏览器设置有问题，禁止下载可执行文件！
philcc 2004-10-13
- 打赏
- 举报
我估计是一个权限问题，但是不知道怎么调！局域网怎么就下载不了呢。
