创建信息发送页
信息发送页的目的就是允许用户发送新的信息,用户在文本框中添入要发送的信息,然后按发送按钮就进行自身调用回到同样的页面(当然,脚本里面包括了信息的处理发送)。
这个脚本做两件事情,首先,检查是否有多于4个信息存在。如果多于的话,将Tplace置0,这样防止Talk队列的信息过于繁多见图17.3)。
然后,在Talk队列的Tplace位置中添加新的信息,同时将Tplace指向下一个位置。
下面是该例子完整的脚本程序
例17.2
<%
IF not Request.Form(
“message”)=”” THENApplication.Lock
IF Application(
“Tplace”)>4 THENEND IF
TempArray=Application(
“Talk”)TempArray(Application(
“Tplace”))=Request.Form(“Message”)Application(
“Talk”)=TempArrayApplication(
“Tplace”)=Application(“Tplace”)+1END 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 信息发送页