You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
3.0 KiB
76 lines
3.0 KiB
<%@ Language=VbScript%>
|
|
<% Option Explicit %>
|
|
<% '-------------------------------------------------------------------------
|
|
' Log_download.asp : This downloads the logevents in the specified format
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'-------------------------------------------------------------------------
|
|
%>
|
|
<!-- #include virtual="/admin/inc_framework.asp" -->
|
|
<!-- #include file="loc_event.asp" -->
|
|
<!-- #include file="inc_log.asp" -->
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' Global Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim page 'Framework varaibles
|
|
Dim rc 'Framework varaibles
|
|
Dim F_strEventName 'variable to store eventlog name
|
|
Dim arrTitle(1) 'Title
|
|
|
|
|
|
F_strEventName = Request.QueryString("Title")
|
|
|
|
arrTitle(0) = GetLocalizationTitle(F_strEventName)
|
|
L_DOWNLOADTITLE_TEXT = SA_GetLocString("event.dll", "403F00CD", arrTitle)
|
|
|
|
Call SA_CreatePage( L_DOWNLOADTITLE_TEXT, "", PT_AREA,page)
|
|
Call SA_ShowPage(page)
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnInitPage()
|
|
'Description: Called to signal first time processing for this page.
|
|
' Use this method to do first time initialization tasks
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnInitPage(ByRef PageIn,ByRef EventArg)
|
|
'the code that to be place here "F_strEventName = Request.QueryString("Title")"
|
|
'is removed here as already obtained at the top of the page.
|
|
OnInitPage = TRUE
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnServeAreaPage()
|
|
'Description: Called when the page needs to be served.Use this
|
|
' method to serve content
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnServeAreaPage(ByRef PageIn, Byref EventArg)
|
|
Dim oValidator
|
|
|
|
Set oValidator = new CSAValidator
|
|
If ( FALSE = oValidator.IsValidIdentifier(F_strEventName)) Then
|
|
Call SA_TraceOut(SA_GetScriptFileName(), "LogName is invalid: " & F_strEventName)
|
|
Call SA_ServeFailurepage(L_RETREIVEVALUES_ERRORMESSAGE)
|
|
Set oValidator = Nothing
|
|
Exit Function
|
|
End If
|
|
Set oValidator = Nothing
|
|
|
|
Call SA_ServeDefaultClientScript()
|
|
|
|
Dim strFrameURL
|
|
strFrameURL = "log_downloadview.asp?Title=" & F_strEventName & "&" & _
|
|
SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey()
|
|
Response.Write("<iframe name=IFDownload src='" & strFrameURL & "' width=100% height=300px frameborder=0>")
|
|
Response.Write("</iframe>")
|
|
|
|
OnServeAreaPage=True
|
|
End Function
|
|
|
|
%>
|