通过链接下载txt文件而不是打开它，怎么写？(内空)

[Roxxette]

空

[cpio]

分太少，不告诉你

[ttkkyy]

<%

function downloadFile(strFile)
strFilename = server.MapPath(strFile)

Response.Buffer = True
Response.Clear

Set s = Server.CreateObject("ADODB.Stream")
s.Open

s.Type = 1

on error resume next


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


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

Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"

Response.BinaryWrite s.Read
Response.Flush


s.Close
Set s = Nothing


End Function

call downloadFile("/User_data/20040305/info/5/295-1.rar")

%>

[Roxxette]

没这么复杂吧？有没有简单点的办法？
我还以为只是两三个字符就可以搞定的问题呢。
分不够可以再加码，大虾们不要太小气啊

[ttkkyy]

<%
response.redirect "/User_data/20040305/info/5/295-1.rar"

%>

[dsclub]

关注！