Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
@nagaozen
executable file 76 lines (66 sloc) 3.138 kb
<!-- METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" -->
<!-- METADATA NAME="Microsoft ADO Ext. 2.5 for DDL and Security" TYPE="TypeLib" UUID="{00000600-0000-0010-8000-00AA006D2EA4}" -->
<script runat="server" language="vbscript">
' File: global.asa
'
' Here we are initializing the timer, defining some constants to be used later
' and setting a flag requiring to load application.configure.asp.
'
' See also:
'
' <application.configure.asp>
'
' License:
'
' This file is part of ASP Xtreme Evolution.
' Copyright (C) 2007-2012 Fabio Zendhi Nagao
'
' ASP Xtreme Evolution is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License as published by
' the Free Software Foundation, either version 3 of the License, or
' (at your option) any later version.
'
' ASP Xtreme Evolution is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License for more details.
'
' You should have received a copy of the GNU Lesser General Public License
' along with ASP Xtreme Evolution. If not, see <http://www.gnu.org/licenses/>.
'
' About:
'
' - Written by Fabio Zendhi Nagao <http://zend.lojcomm.com.br/> @ December 2007
' Subroutine: Application_onStart
'
' Define Application constants and load `/instance/config/settings.xml` data into application object.
'
sub Application_onStart
' Output standards to be used with indentedTransform
Application("Xslt.html5") = "<xsl:output method='html' version='1.0' encoding='UTF-8' doctype-system='about:legacy-compat' indent='yes' />"
Application("Xslt.xhtml") = "<xsl:output method='xml' version='1.0' encoding='UTF-8' omit-xml-declaration='yes' doctype-public='-//W3C//DTD XHTML 1.1//EN' doctype-system='http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd' indent='yes'/>"
Application("Xslt.text") = "<xsl:output method='text' version='1.0' encoding='UTF-8' omit-xml-declaration='yes' indent='yes'/>"
Application("Xslt.xml") = "<xsl:output method='xml' version='1.0' encoding='UTF-8' indent='yes'/>"
' Initial value indicating that the application hasn't been configured yet.
Application("isConfigured") = false
end sub
sub Application_onEnd
' Application.Contents.removeAll()
end sub
' Subroutine: Session_onStart
'
' In order to compute the execution time of a request, we need to start a timer.
'
sub Session_onStart
Session.timeout = 1' minimum allowed See: <http://msdn.microsoft.com/en-us/library/ms525473(v=vs.90).aspx>
' Required to track the execution time
Session("Request.time") = timer
' These statements affects dynamic strings in all responses in a session. See also <default.asp> for literal strings.
Session("Response.charset") = "UTF-8" ' See <base.asp> Response.charset.
Session.codePage = 65001 ' UTF-8
Session.lcid = 1033 ' en-us
end sub
sub Session_onEnd
' Session.Contents.removeAll()
end sub
</script>
Jump to Line
Something went wrong with that request. Please try again.