创建信息发送页
信息发送页的目的就是允许用户发送新的信息，用户在文本框中添入要发送的信息，然后按发送按钮就进行自身调用回到同样的页面（当然，脚本里面包括了信息的处理发送）。
这个脚本做两件事情，首先，检查是否有多于4个信息存在。如果多于的话，将Tplace置0，这样防止Talk队列的信息过于繁多见图17.3）。
然后，在Talk队列的Tplace位置中添加新的信息，同时将Tplace指向下一个位置。
下面是该例子完整的脚本程序
例17.2
<%
IF not Request.Form(“message”)=”” THEN
Application.Lock
IF Application(“Tplace”)>4 THEN
Application(“Tplace”)=0
END IF
TempArray=Application(“Talk”)
TempArray(Application(“Tplace”))=Request.Form(“Message”)
Application(“Talk”)=TempArray
Application(“Tplace”)=Application(“Tplace”)+1
END IF
%>
<HTML>
<HEAD><TITLE>迈至科聊天室应用示例之信息发送</TITLE></HEAD>
<BODY BGCOLOR=”LIGHTBLUE”>
<FORM Method=”POST” Action=”message.asp”>
<Input Name=”message” Type=Text SIZE=50>
<input type=submit Value=”发送”>
</form>
</Body>
</html>
图17.3 信息发送页
文章来源于领测软件测试网 https://www.ltesting.net/
