哪位大哥帮帮忙翻译一下代码！！！急急！！25号前！！

来源：百度知道 编辑：UC知道 时间：2024/06/18 15:42:30
< SCRIPT LANGUAGE = VBScript RUNAT = Server >
Sub Application_OnStart
Application("visitor") = 1
End Sub
'==============================================================
Sub Session_OnStart
Session.Timeout = 5
Application.lock
Application("visitor") = Application("visitor") + 1
Application.unlock
Session("LoginName") = ""
Session("ID") = Session.SessionID
End Sub
'===================================================================
Sub Session_OnEnd
Application.lock
Application("visitor") = Application("visitor") + 1
Application.unlock
End Sub
< /SCRIPT >
<HTML><BODY>
< % @ Language = VBScript % >
< %

Response.Buffer = true

% >
<form name = "

这个应该是global.asa文件中的代码吧

任何客户首次访问该应用程序的首页时运行
Sub Application_OnStart
Application("visitor") = 1 设置服务器变量visitor=1
End Sub

客户首次运行 ASP 应用程序中的任何一个页面时运行
Sub Session_OnStart Session.Timeout = 5 设置session超时时间为5分钟
Application.lock 锁定服务器变量
Application("visitor") = Application("visitor") + 1
Application.unlock 解锁
Session("LoginName") = "" 设置session
Session("ID") = Session.SessionID
End Sub

当一个客户的会话超时或退出应用程序时运行
Sub Session_OnEnd
Application.lock
Application("visitor") = Application("visitor") + 1 这里应该-1吧。。。
Application.unlock
End Sub

表单页面：设置数据并提交到chat.aspx
<HTML><BODY>< % @ Language = VBScript % >
< %

Response.Buffer = true

% >
<form name = "Login" method = "get" action = "chat.aspx" runat = s