上一篇：修改Global >>

创建信息发送页

作者：整理

创建信息发送页

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

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

</form>

</Body>

</html>

图17.3 信息发送页

　

　

　

　

　

　

　

　

　

返回顶部