UC知道请教,帮我解释一段ASP代码
来源：百度知道 编辑：UC知道 时间：2024/05/05 20:18:48
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
session.Timeout=10
flag=false
If Request.Form("Submit")="进入聊天室" Then
UserName=Request.Form("UserName")
If trim(UserName)="" Then%>
<script language='javascript'>
alert('请输入昵称！');
</script>
<%response.Redirect("index.asp")
End If
head=Request.Form("head")
A_Username=split(Application("UserName"),",")
for i=0 to uBound(A_Username)
If A_username(i)=username then%>
<script language="javascript">
alert("该用户昵称已经存在，请换一个吧！");
</script>
<%flag=true
End if
Next
If flag=false Then
application.Lock()
application("UserName")=application("UserName")+","+UserName
session("UserName&q
<%
session.Timeout=10
flag=false
If Request.Form("Submit")="进入聊天室" Then
UserName=Request.Form("UserName")
If trim(UserName)="" Then%>
<script language='javascript'>
alert('请输入昵称！');
</script>
<%response.Redirect("index.asp")
End If
head=Request.Form("head")
A_Username=split(Application("UserName"),",")
for i=0 to uBound(A_Username)
If A_username(i)=username then%>
<script language="javascript">
alert("该用户昵称已经存在，请换一个吧！");
</script>
<%flag=true
End if
Next
If flag=false Then
application.Lock()
application("UserName")=application("UserName")+","+UserName
session("UserName&q
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> //声明程序脚本语言为vbscript
<%
session.Timeout=10 //设置session超时时间为10分钟
flag=false //定义一个变量flag，并初始化为flase
If Request.Form("Submit")="进入聊天室" Then //如果参数Submit的值为“进入聊天室”
UserName=Request.Form("UserName") //把参数UserName的值赋给UserName
If trim(UserName)="" Then%> //如果UserName的值为空
<script language='javascript'> //执行javascript脚本。
alert('请输入昵称！'); //弹出对话框“请输入呢称”
</script>
<%response.Redirect("index.asp") //页面跳转到index.asp
End If
head=Request.Form("head") //把参数head的值赋给head
A_Username=split(Application("UserName"),",") //分割UserName的值，以，为标记分割。把结果给A_UserName(一数组)
for i=0 to uBound(A_Username) //循环，从0到数组元素的个数
If A_username(i)=username then%> //如果有一个元素值与username值相等
<script language="javascript">
alert("该用户昵称已经存在