下载的问题？？急～～
<%
Const ForReading=1
Const TristateTrue=-1 'Unicode
Const FILE_TRANSFER_SIZE=16384 '16k
'Use the following line for IIS4/PWS - this is the default for IIS5
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
'Server.MapPath(path)
path = "C:\Inetpub\wwwroot\help.gif"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType,"help.gif")
Response.End
%>
我使用了从csdn上得到的方法来完成下载，但是我想下载的时候，弹出的对话框里面显示
help.gif 来自 www.hehe.com.cn
我该怎样呢？？
谢谢
问题点数：30、回复次数：3Top
1 楼julyclyde（Java初学（大学不教只好自己学））回复于 2002-04-01 13:24:20 得分 30
怎么了？不就该是这样的？Top
2 楼miaomiaomxt（mxt）回复于 2002-04-01 13:55:14 得分 0
问题是不是这样呀。
我不会用..Top
3 楼muddledman（胡涂人）回复于 2002-05-28 16:57:24 得分 0
好办法,还能解决下载mp3,rm等媒体格式......Top
