Download file

[razaghi]

من يک مشکلي دارم به اين صورت که مي خواهم در يک صفحه ASP وقتي روي يک لينک کليک مي شود پنجره Download نمايش داده شود و کاربر بتواند فايل را Download کند از کد زير استفاده کرده ام ولي براي فايلهاي بزرگ Error مي دهد.

کد فوق براي فايلهاي کوچک هيچ مشکلي ندارد.

<% @Language=VBScript %>
<% Option Explicit %>
<!-- METADATA TYPE="typelib" NAME="ADODB Type Library"
UUID="00000205-0000-0010-8000-00AA006D2EA4" -->
<%
Dim fileName, filePath, mimeType
fileName = Request.QueryString("name")
filePath = Request.QueryString("path")
mimeType = Request.QueryString("type")
If Len(mimeType) = 0 Then
mimeType = "application/octet-stream"
End If
'
Dim adoStream, stream
Set adoStream = Server.CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = adTypeBinary
adoStream.LoadFromFile Server.MapPath(filePath & fileName)
If adoStream.Type = adTypeBinary Then
stream = adoStream.Read()
Else
stream = adoStream.ReadText()
End If
adoStream.Close()
Set adoStream = Nothing
'
Response.Buffer = True
Response.AddHeader "content-disposition", "attachment;filename=" & fileName
Response.AddHeader "content-length", Len(stream)
Response.ContentType = mimeType
Response.BinaryWrite stream
Response.Flush
%>

 

[mosyhey1]

با سلام
من به این asp های حرفه ای زیاد وارد نیستم اما بفرمایید چه Error ای می دهد. راستی مشکل از TimeOut نیست.