2017春晖中学分数线:那位高手可以帮忙把下面的代码翻译一下

来源:百度文库 编辑:神马品牌网 时间:2024/04/27 13:01:31
<SCRIPT LANGUAGE=vb-script RUNAT=Server>
Sub Application_OnStart
Application("visitors")=1
End Sub
'==============================================================================================================
Sub Session_OnStart
Session.Timeout=5
Application.lock
Application("visitors")=Application("visitiors")+1
Application.unlock
Session("LoginName")=" "
Session("ID")=Session.SessionID
End Sub
'==============================================================================================================
Sub Session_OnEnd
Application.lock
Application("visitiors")=Application("visitiors")-1
Application.unlock
End Sub
</SCRIPT>

chatLogin.aspx

<HTML><BODY>
< % @ Language=vb-script % >
<%
Response.Buffer=ture
%>
<form name="Login"method="get"action="chat.aspx"runat=server>
<asp:textbox id=LoginTect value="Happyhome"runat=server/><p>
<asp:button id="bSubmit"runat=server text="Going to Chatrome"/>
</form>
</BODY>
</HTML>

chat.aspx

< % @ Language=vb-script % >
<%
dim numVisitors
if request.querystring("LoginText")< >" "then
Session("LoginName")=reequest.querystring("LoginText")
Session("numVisitors")=Application("visitors")
End if
Response.clear
%>
<from method="Post"action="chat.aspx"name="ChatForm"runat=server>You Are< % =Sesseion("numVisitiors")% >
th<p> < % =Session("LoginName")% >Said:<input type="text"name="talk"size="50"><br>
<input type="submit"value="Submit"name="B1">
<input type="reset"value="Cancle"name="B2"></p>
</form>
<A HREF="/ASP%20Test/Example/ChatLogin.aspx">LogOut</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.ServerVariables("SERVER_NAME") & " "&Session("LoginName")
& time &Said:</font>"& talk &"</td></tr><tr><td width='100%'bgcolor='#C0C0C0'></td></tr></table><br>" & Application
("show")
Application.Unlock
Response.Write(Application("show"))
End If
%>

C的吧?看不懂