创建信息发送页

信息发送页的目的就是允许用户发送新的信息,用户在文本框中添入要发送的信息,然后按发送按钮就进行自身调用回到同样的页面(当然,脚本里面包括了信息的处理发送)。

这个脚本做两件事情,首先,检查是否有多于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 信息发送页