高考问答适合婚礼录像的配音:哪位大哥帮帮忙翻译一下代码！！！急急！！25号前！！
来源：百度文库 编辑：高考问答 时间：2024/04/29 12:38:57
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 = "Login" method = "get" action = "chat.aspx" runat = server>
<aso:textbox id = LoginText Value= "Happyhome" runat = server/> <p>
<asp:button id = "bSubmit" tunat = server text = "Going to CharRoom"/>
</form>
</BODY></HTML><HTML><BODY>< % @ Language = VBScript % >
< %
Response.Buffer = true
% >
<form name = "Login" method = "get" action = "chat.aspx" runat = server>
<aso:textbox id = LoginText Value= "Happyhome" runat = server/> <p>
<asp:button id = "bSubmit" tunat = server text = "Going to CharRoom"/>
</form>
</BODY></HTML>
< % @ Language =VBScript % >
< %
dim numvisitors
if request.querystring( " LoginName " )<> ""then
Session( " Login " ) = request.querytring( " LoginText " )
Session( " numVisitors " ) = Application( " visitor " )
End if
Response.clear
% >
<form method = " POST " action = " chat.aspx " name = " chatForm " runat = server> You Are < % = Session( " numVisitor " ) % >th<P> < % =Session( " LoginName ") % > Said: <input type = "Text"name= "talk"size="50" > <br>
<input type="submit"value= "submit"name= "B1">
<input type= "reset"value= "Cancel"name= "B2"></p>
</form >
<A HREF="/ASP%20Test/Exampie/chatLogin.asp">Login</a><br.<br>
<%
dim talk
If trim(Request.Form("talk"))=""then
Response.End
Else
talk=trim(Request.Form("talk"))
Application.lock
Application("show")="Form"&Request.ServerVariabless("SERVER_NAME")&" "&Session("LoginName")&time&"Siad:</font>"&talk&"</td></tr><tr><td width='100%'bgcloor='#c0c0c0'>
</td></tr<table><br>"&Application("show")
Appliction.Unlock
Response.Write(Application("show")
End If
%>
这个应该是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 = server>
<aso:textbox id = LoginText Value= "Happyhome" runat = server/> <p>
<asp:button id = "bSubmit" tunat = server text = "Going to CharRoom"/>
</form>
</BODY></HTML>
表单页面
< % @ Language =VBScript % >
< %
dim numvisitors
if request.querystring( " LoginName " )<> ""then ---接收GET传递的变量LoginName
Session( " Login " ) = request.querytring( " LoginText " ) --接收GET传递的变量给session赋值
Session( " numVisitors " ) = Application( " visitor " ) --把服务器变量赋给SESSION
End if
Response.clear
% >
<form method = " POST " action = " chat.aspx " name = " chatForm " runat = server> You Are < % = Session( " numVisitor " ) % >th<P> < % =Session( " LoginName ") % > Said: <input type = "Text"name= "talk"size="50" > <br>
<input type="submit"value= "submit"name= "B1">
<input type= "reset"value= "Cancel"name= "B2"></p>
</form >
<A HREF="/ASP%20Test/Exampie/chatLogin.asp">Login</a><br.<br>
<%
dim talk
If trim(Request.Form("talk"))=""then
Response.End
Else
talk=trim(Request.Form("talk"))
Application.lock
Application("show")="Form"&Request.ServerVariabless("SERVER_NAME")&" "&Session("LoginName")&time&"Siad:</font>"&talk&"</td></tr><tr><td width='100%'bgcloor='#c0c0c0'>
</td></tr<table><br>"&Application("show")
Appliction.Unlock
Response.Write(Application("show")
End If
%>
不好意思，没学过VB
一行20
埃菲社地方官时代感