Sultan

Помогите пожалуйста перевести с JavaScript на VBScript.
Это из глобал аса.

<script language='JavaScript' Runat='Server'>
function Application_OnStart()
{
Application('Users') = 0
build_config()
}

function Session_OnStart()
{
if (!configSito.Exists('root'))
build_config()
Session.Timeout = 1
Application.Lock
Application('Users') = parseInt(Application('Users')) + 1
Application.UnLock
if (String(Session('IM_nickname'))=='' ||
String(Session('IM_nickname'))==
undefined')
{
Session('IM_nickname')=String(Session.SessionID)
online(Session('IM_nickname'))=new utente(0,0)
}


}

function Session_OnEnd()
{
Application.Lock()
Application('Users') = parseInt(Application('Users')) - 1
Application.UnLock()
is_logged=parseInt(online(Session('IM_nickname')).login)
if (online.Exists(Session('IM_nickname')))
{
Application.Lock()
online.Remove(Session('IM_nickname'))
Application.UnLock()
}
if (is_logged)
{
lista_utenti=(new VBArray(online.Keys())).toArray();
for (utenti in lista_utenti)
{
current_key=lista_utenti[utenti]
Application.Lock()
online(current_key).new_user=1
online(current_key).messaggi+='#__exit__&'+Session('IM_nickn ame')
Application.UnLock()
}
}
}

</script>

@sl_play

Ты вообще хоть понимаешь о чём речь?
Ты выставил пример JSP просишь его перекинуть на VBscript?)
логичнее на ASP....
А вообще, ті фигнёй занимаешься!

0