IIS6 から IIS7 への変換を行っていますが、ダウンロード セクション以外はすべて順調に進んでいます。ダウンロードが開始されますが、リダイレクトが行われているように見え、ユーザーが要求したファイルの代わりに default.aspx ページがダウンロードされます。以下は、IIS6 で使用したコードです。
Private Sub GetFile(ByVal ReportQueueId As System.Int32, _
ByVal FileName As System.String _
)
Dim stream As System.IO.MemoryStream = Nothing
Dim lngRecordCount As System.Int32 = 0
Dim objWebClient As New System.Net.WebClient
Dim strServerName As System.String
Try
strServerName = Page.Request.Item("SERVER_NAME").ToString()
Dim fURI As New System.Uri("http://" & strServerName & "/reportmonitor/" & FileName)
' Open the file into a stream.
stream = New System.IO.MemoryStream(objWebClient.DownloadData(fURI), False)
' Total bytes to read:
Dim bytesToRead As Long = stream.Length
Page.Response.Clear()
Page.Response.ContentType = "application/octet-stream"
Page.Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName.ToString())
Page.Response.AddHeader("Content-Length", bytesToRead.ToString())
' Read the bytes from the stream in small portions.
While bytesToRead > 0
' Make sure the client is still connected.
If Response.IsClientConnected Then
' Read the data into the buffer and write into the output stream.
Dim buffer As Byte() = New Byte(9999) {}
Dim length As Integer = stream.Read(buffer, 0, 10000)
Response.OutputStream.Write(buffer, 0, length)
Response.Flush()
' We have already read some bytes.. need to read
' only the remaining.
bytesToRead = bytesToRead - length
Else
' Get out of the loop, if user is not connected anymore..
bytesToRead = -1
End If
End While
'Update status
lngRecordCount = UpdateStatus(ReportQueueId, _
listcounts_common.ListCountsCommon_CL.ReportQueueStatus.rqsDownloaded _
)
Catch SystemException As System.Exception
'Update status
lngRecordCount = UpdateStatus(ReportQueueId, _
listcounts_common.ListCountsCommon_CL.ReportQueueStatus.rqsOnHold _
)
'most likely a 404 file not found error
Me.lblErrorMessage.Text = CLASS_NAME & ":GetFile: " & SystemException.Message.ToString
Me.lblErrorMessage.Visible = True
Finally
objWebClient = Nothing
stream = Nothing
End Try
End Sub
このコードが実行された後、私が読んだ唯一の他のことは、GetFile() を呼び出す親関数にある可能性があります。次のコードがあります。
' stops page html output. If this is not done, un-desired html code will be added to csv files
Page.Response.End()
IIS6 と 7 の違いとこのプロセスについて何か考えはありますか? 私が試したことはすべてうまくいきませんでした。新しいサイトは反復モード、.NET 4 で実行されています。
ありがとうございました...
アップデート
fURI を外部ファイルに変更しました。
fURI = New System.Uri("http://manuals.info.apple.com/en_US/ipad_user_guide.pdf")
このファイルは完全にダウンロードされるため、IIS7 のアクセス許可の問題であると想定しています。