User270757467 posted
Sorry, forgot the paste the code.
Partial
Class
OpenDoc
Inherits System.Web.UI.Page
Protected
Sub Page_Load(ByVal sender
As
Object,
ByVal e
As System.EventArgs)
Handles
Me.Load
Dim DocName
As
String = Request.QueryString("DocName")
'check if file exists if not upload it
loadfile(DocName)
'open the file
ForceDownload(DocName)
'Response.Redirect(System.Configuration.ConfigurationManager.AppSettings("XLSPathUrl") & DocName)
End
Sub
'''
<summary>
''' this is to make sure the open/save/cancel dialog box comes up
''' if you just do a redirect, the file opens in the browser.
'''
</summary>
'''
<param name="DocName"></param>
'''
<remarks></remarks>
Private
Sub ForceDownload(ByVal DocName
As
String)
Dim fullPath
As
String = System.Configuration.ConfigurationManager.AppSettings("XLSPath")
& DocName
Dim MyFile
As
New
FileInfo(fullPath)
Response.Clear()
Response.AddHeader("Content-Disposition",
"inline;attachment; filename=" & DocName)
'Response.AddHeader("Content-Length", MyFile.Length.ToString())
Response.ContentType =
"application/octet-stream"
Response.TransmitFile(MyFile.FullName)
Response.End()
End
Sub
Public
Function loadfile(ByVal docname
As
String)
As
Boolean
'Check if file exists
If
File.Exists(System.Configuration.ConfigurationManager.AppSettings("XLSPath")
& docname) = False
Then
Dim myTable
As Data.DataTable = LASPBS_Classes.dbCalls.DBbySQL("select
doc_blob from laspbs_general_docs where doc_name = '" & docname &
"'")
Dim binary(myTable.Rows(0).Item(0).ToString.Length)
As
Byte
Dim filename
As
String = LASPBS_Classes.LASPBS_Master.GetStateVariable(Context,
"UserId").ToString & Format(Now,
"yyyyMMddHHmmss").ToString
binary = myTable.Rows(0).Item(0)
Dim ms
As
New System.IO.MemoryStream(binary, 0, binary.Length)
ms.Write(binary, 0, binary.Length)
ms.Close()
Response.Clear()
Response.Buffer =
True
Response.ContentType =
"application/octet-stream"
Dim filepath
As
String = System.Configuration.ConfigurationManager.AppSettings("XLSPath")
& docname
Dim fs1
As
FileStream =
New
FileStream(filepath,
FileMode.OpenOrCreate,
FileAccess.Write)
fs1.Write(binary, 0, binary.Length)
fs1.Close()
End
If
End
Function
End
Class
