📄 17-5-4.cfm.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>创建信息发送页</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body>
<font FACE="宋体"><b>
<p ALIGN="JUSTIFY">创建信息发送页</p>
</b></font><font FACE="宋体" SIZE="3">
<p ALIGN="JUSTIFY">信息发送页的目的就是允许用户发送新的信息，用户在文本框中添入要发送的信息，然后按发送按钮就进行自身调用回到同样的页面（当然，脚本里面包括了信息的处理发送）。</p>
<p ALIGN="JUSTIFY">这个脚本做两件事情，首先，检查是否有多于4个信息存在。如果多于的话，将Tplace置0，这样防止Talk队列的信息过于繁多见图17.3）。</p>
<p ALIGN="JUSTIFY">然后，在Talk队列的Tplace位置中添加新的信息，同时将Tplace指向下一个位置。</p>
<p ALIGN="JUSTIFY">下面是该例子完整的脚本程序</p>
<p ALIGN="JUSTIFY">例17.2</p>
<p ALIGN="JUSTIFY"><%</p>
<p ALIGN="JUSTIFY">IF not Request.Form(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">message</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)=</font><font
SIZE="3">””</font><font FACE="宋体" SIZE="3"> THEN</p>
<p ALIGN="JUSTIFY">Application.Lock</p>
<p ALIGN="JUSTIFY">IF Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">Tplace</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)>4 THEN<br>
Application(</font><font SIZE="3">“</font><font FACE="宋体" SIZE="3">Tplace</font><font
SIZE="3">”</font><font FACE="宋体" SIZE="3">)=0</p>
<p ALIGN="JUSTIFY">END IF</p>
<p ALIGN="JUSTIFY">TempArray=Application(</font><font SIZE="3">“</font><font
FACE="宋体" SIZE="3">Talk</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)</p>
<p ALIGN="JUSTIFY">TempArray(Application(</font><font SIZE="3">“</font><font
FACE="宋体" SIZE="3">Tplace</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">))=Request.Form(</font><font
SIZE="3">“</font><font FACE="宋体" SIZE="3">Message</font><font SIZE="3">”</font><font
FACE="宋体" SIZE="3">)</p>
<p ALIGN="JUSTIFY">Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">Talk</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)=TempArray</p>
<p ALIGN="JUSTIFY">Application(</font><font SIZE="3">“</font><font FACE="宋体"
SIZE="3">Tplace</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">)=Application(</font><font
SIZE="3">“</font><font FACE="宋体" SIZE="3">Tplace</font><font SIZE="3">”</font><font
FACE="宋体" SIZE="3">)+1</p>
<p ALIGN="JUSTIFY">END IF</p>
<p ALIGN="JUSTIFY">%></p>
<p ALIGN="JUSTIFY"><HTML></p>
<p ALIGN="JUSTIFY"><HEAD><TITLE>迈至科聊天室应用示例之信息发送</TITLE></HEAD></p>
<p ALIGN="JUSTIFY"><BODY BGCOLOR=</font><font SIZE="3">”</font><font FACE="宋体"
SIZE="3">LIGHTBLUE</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">></p>
<p ALIGN="JUSTIFY"><FORM Method=</font><font SIZE="3">”</font><font FACE="宋体"
SIZE="3">POST</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3"> Action=</font><font
SIZE="3">”</font><font FACE="宋体" SIZE="3">message.asp</font><font SIZE="3">”</font><font
FACE="宋体" SIZE="3">></p>
<p ALIGN="JUSTIFY"><Input Name=</font><font SIZE="3">”</font><font FACE="宋体"
SIZE="3">message</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3"> Type=Text
SIZE=50></p>
<p ALIGN="JUSTIFY"><input type=submit Value=</font><font SIZE="3">”</font><font
FACE="宋体" SIZE="3">发送</font><font SIZE="3">”</font><font FACE="宋体" SIZE="3">></p>
<p ALIGN="JUSTIFY"></form></p>
<p ALIGN="JUSTIFY"></Body></p>
<p ALIGN="JUSTIFY"></html></p>
<b>
<p ALIGN="JUSTIFY">图17.3 信息发送页</p>
<p><img SRC="../Image131.gif" tppabs="http://210.74.168.175/guide/asp/Image131.gif" WIDTH="511" HEIGHT="289" ALIGN="LEFT"> </p>
</font>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
<p><font FACE="宋体" SIZE="3"> </font></p>
</b>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -