Global.asa

[hpires24]

Boa tarde gostaria de saber se atraves do global.asa eu consigo determinar permissoes para acesso a uma aplicação, casa me saibam esclarecer a duvida como tenho de o fazer sei q o global.asa compreende 4 etapas mas não sei como fazer essas etapas eu estou usando esse codigo abaixo mas não funciona. Atenciosamente grato a todos.

<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	Application.Lock
	Application("permAll")  	= 1
	Application("permAdminAll")  	= 1
	Application("permAdmin")  	= 1
	Application("permAdminDatabaseSetup")  	= 1
	Application("permFuncionariosAdd")  	= 1
	Application("permFuncionariosEdit")  	= 1
	Application("permFuncionariosDelete")  	= 1
	Application.UnLock
End Sub



Sub Session_OnStart
Application.Lock
	Session("permAll")  	= 1
	Session("permAdminAll")  	= 1
	Session("permAdmin")  	= 1
	Session("permAdminDatabaseSetup")  	= 1
	Session("permFuncionariosAdd")  	= 1
	Session("permFuncionariosEdit")  	= 1
	Session("permFuncionariosDelete")  	= 1
Application.UnLock
End Sub

Sub Session_OnEnd  
Application.Lock
	Session("permAll")  	= 0
	Session("permAdminAll")  	= 0
	Session("permAdmin")  	= 0
	Session("permAdminDatabaseSetup")  	= 0
	Session("permFuncionariosAdd")  	= 0
	Session("permFuncionariosEdit")  	= 0
	Session("permFuncionariosDelete")  	= 0
Application.UnLock
end sub


Sub Application_OnEnd

End Sub





</SCRIPT>

terei q chamar o global.asa em alguma página???

[Guest Guest]

não entendi a finalidade dessas variáveis.. você vai dar permissões completas para todos? se for, para testar na aplicação você tera q fazer o seguinte...

if Application("permAll")<>1 then response.redirect "/acesso_negado.asp"