在线交流程序
<br>我修改了统计在线人数的perl程序,实现了简单的在线交流(聊天)的功能,我想你的个人主页一定需要它。
1 设计思路。<br>(1)由manyfram.htm初始化交流程序,这个框架窗口分2部分,左侧为输入姓名和留言内容的部分,由交流perl程序执行后返回;右侧显示当前的留言内容,并定时更新。<br>(2)perl程序把留言内容保存到一个messages.htm文件中。<br>(3)需要显示时从messages.htm中取出留言,然后输出返回。<br>2 源代码
(1)manyfram.htm 没有什么可说的,很简单的左右分屏的框架窗口<br><html><br><head><br><title>在线</title><br><meta http-equiv="目录类型" content="文本/html; 字符集=gb2312"><br></head><br><frameset cols="234,552" framespacing="1"><br><frame src="many.htm" scrolling="no" noresize><br><frame src="manycgi.htm" scrolling="no" noresize><br><noframes><br><body bgcolor="#FFFFFF" topmargin="0" leftmargin="0"><br></body><br></noframes><br></frameset><br><frameset><br></frameset><br></html>
(2)many.htm 一个 FORM ,其中的Javascript用于判断姓名和留言内容不能为空。<br><HTML><HEAD><TITLE>提问回答网在线统计</TITLE><br><script language="JavaScript"><br>function validate_form()
{<br>validity = true;<br>if (!check_empty(document.form.name.value))<br>{ <br>validity = false; <br>alert(’没有填写姓名!’); <br>}<br>if (!check_empty(document.form.send.value))<br>{ <br>validity = false; <br>alert(’缺少发送内容!’); <br>}<br>return validity;<br>}<br>function check_empty(text) {return (text.length > 0); }<br></script><br></HEAD><br><body bgcolor=#C0C0C0 leftmargin="0" topmargin="0"><br><table border="0" width="100%" height="30" cellspacing="0" cellpadding="0"><br><tr><br><td width="100%" valign="top"><br><form name = "form" method="POST" action=http://cgi.howtodo.533.net/talk.pl?id=send onSubmit="return validate_form()"><br><table border="0" width="100%" height="30" cellspacing="0" cellpadding="0"><br><tr><br><td width="50%"><font size="2">姓名</font></td><br><td width="50%"><font size="2">留言内容</font></td><br></tr><br><tr><br><td width="50%"><font size="2"><input type="text" name="name" value=在线朋友 size="10"></font></td><br><td width="50%"><font size="2"><input type="text" name="send" size="20"><input type="submit" name="B1" value="发送"></font></td><br></tr><br></table><br></form><br></td><br></tr><br></table><br></body><br></HTML>
(3)manycgi.htm 自动转向交流perl程序,完成初始化工作。<br><html><br><head><br><title>Untitled Document</title><br><meta http-equiv="目录类型" content="文本/html; 字符集=gb2312"><br><META HTTP-EQUIV="REFRESH" CONTENT="0;URL=http://cgi.howtodo.533.net/talk.pl"><br></head>
<body bgcolor="#FFFFFF">
</body><br></html>
(4)talk.pl 交流主程序,你需要修改第一行的perl路径和你的cgi程序路径,其中的红色数字为保存和显示的行数。<br>你可以在这里下载这个交流程序,拿回去随意修改。<br>#!/usr/bin/perl
$linksurl="http://cgi.howtodo.533.net/talk.pl"; #CGI程序URL<br>$filename="people.txt";
my @args = split(/&/, $ENV{’QUERY_STRING’});
foreach $pair (@args) <br>{
($name, $value) = split(/=/, $pair);<br>$value =~ tr/+/ /;<br>$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;<br>$FUNC{$name} = $value;<br>}<br>&get_form_data;
$|=1; <br>$file= "messages.html"; #记录谈话文件。<br>$iecompatible = 0;
print "Content-type: text/html
|
kehui
|
|
智慧家居颠覆传统智能家居
智慧云谷让智能家居变成有智慧的
智慧云谷引领智慧家居新生活
科技改变生活 智慧云谷智慧家居系
智慧家居领航者,智慧云谷助你玩
智能家居如何赢得市场美誉度?
智慧云谷智慧家居:创业者有无限
WiFi智能家居你还在用?这样的智
互联网+助推智能家居产业
智慧云谷为您打造真正的智能家居
智能家居产业需要的不是单品,而
新家如何选择开关?智慧云谷iWis
智能传感器-世界首款“智”为你的
智慧云谷开关智能安防智能空气质
智能开关品牌,如何选择智能开关
秋季干燥,智慧家居温湿度传感器
传感器助力智慧家居 感知爱家
iWiscloud智能触摸开关缔造家居装
※室内空气污染的危害及 [sensor]
※超声波风速传感器在生 [sensor]
※这么冷清 [gabc111]
※手机APP操作有问题 [ssy11407]
※智慧云谷智慧家居将在 [cici]
※上传下载 [cici]
※下载智慧家居 [apple2008]
※秋季干燥,智慧家居温 [apple2008]
※智慧家居紧扣热点 安全 [apple2008]
※办公大楼如何智慧化管 [apple2008]
※智慧云谷工业自控的优 [apple2008]
※传感器助力智慧家居 感 [apple2008]
※智能开关品牌,如何选 [apple2008]
※智慧云谷开关智能安防 [apple2008]
※没有专业人员,如何安 [apple2008]
※烟台智慧云谷董事长任 [apple2008]
※互联网+助推智能家居产 [apple2008]
※WiFi智能家居你还在用 [apple2008]
※智慧云谷智慧家居:创 [apple2008]
※智能家居如何赢得市场 [apple2008]
|