<%@ CodePage="65001" %>
<%
Response.Buffer = EW_RESPONSE_BUFFER
%>
<!--#include file="ewcfg.asp"-->
<!--#include file="aspfn.asp"-->
<!--#include file="Grievanceinfo.asp"-->
<!--#include file="userfn.asp"-->
<%
Dim file
Set file = New cfile
Call file.Page_Main
Set file = Nothing

'
' Page class for file viewer
'
Class cfile

	' Page ID
	Dim PageID

	' Project ID
	Dim ProjectID

	' Page object name
	Dim PageObjName

	' Page name
	Function PageName()
		PageName = ew_CurrentPage()
	End Function

	' Page URL
	Function PageUrl()
		PageUrl = ew_CurrentPage() & "?"
	End Function

	' Initialize
	Private Sub Class_Initialize()
		PageID = "file"
		ProjectID = "{8003004D-83C2-4A95-B99C-604B4C198F71}"
		PageObjName = "file"
	End Sub

	' Main
	' Uncomment '** for database connectivity / Page_Loading / Page_Unloaded server event
	Public Sub Page_Main()
		Dim key, folder, fn, table
		Set Language = New cLanguage
		Call Language.LoadPhrases

		' Get fn / table name parameters
		fn = ""
		table = ""
		key = EW_RANDOM_KEY & Session.SessionID
		If Request.QueryString("fn").Count > 0 Then fn = Request.QueryString("fn")
		fn = ew_Decrypt(fn, key) ' File path is always encrypted
		If Request.QueryString("t").Count > 0 Then table = Request.QueryString("t")
		table = ew_Decrypt(table, key)

		' User profile
		Set UserProfile = New cUserProfile

		' Security
		Set Security = New cAdvancedSecurity
		If Not Security.IsLoggedIn() Then Security.AutoLogin()
		If Not Security.IsLoggedIn() Then Exit Sub ' No permission

		' Global Page Loading event (in userfn*.asp)
		'**Call Page_Loading
		' Get resize parameters

		Dim resize, width, height, interpolation
		width = 0
		height = 0
		resize = (Request.QueryString("resize").Count > 0)
		If Request.QueryString("width").Count > 0 Then width = Request.QueryString("width")
		If Request.QueryString("height").Count > 0 Then height = Request.QueryString("height")
		If width = 0 And height = 0 Then
			width = EW_THUMBNAIL_DEFAULT_WIDTH
			height = EW_THUMBNAIL_DEFAULT_HEIGHT
		End If
		If Request.QueryString("interpolation").Count > 0 Then
			interpolation = Request.QueryString("interpolation")
		Else
			interpolation = EW_THUMBNAIL_DEFAULT_INTERPOLATION
		End If

		' Resize image from physical file
		If fn <> "" Then
			Dim fso, data, filename, ext, download
			fn = Replace(fn, "\", "/")
			folder = Mid(fn, 1, InStrRev(fn, "/")) ' Get folder path
			filename = Mid(fn, Len(folder)+1)
			ext = LCase(Mid(filename, InStrRev(filename,".")+1))
			Set fso = Server.Createobject("Scripting.FileSystemObject")
			If fso.FileExists(fn) Then
				If ew_InArray(ext, Split(EW_IMAGE_ALLOWED_FILE_EXT, ",")) Then
					If width > 0 Or height > 0 Then
						data = ew_ResizeFileToBinary(fn, width, height, interpolation)
					Else
						data = ew_LoadBinaryFile(fn)
					End If
				ElseIf ew_InArray(ext, Split(EW_DOWNLOAD_ALLOWED_FILE_EXT, ",")) Then
					data = ew_LoadBinaryFile(fn)
				Else
					Set fso = Nothing
					Response.End
				End If
				Response.ContentType = ew_ContentType(LeftB(data,11), "")
				download = Request.QueryString("download").Count = 0 Or Request.QueryString("download")&"" = "1"
				If download Then
					Response.AddHeader "Content-Disposition", "attachment; filename=""" & filename & """"
				End If
				Response.BinaryWrite data
			End If
			Set fso = Nothing

			'Response.End
		End If

		' Global Page Unloaded event (in userfn*.asp)
		'**Call Page_Unloaded
		' Close connection
		'**Call ew_CloseConn

	End Sub
End Class
%>