创建信息发送页

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

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