云联天下首页 |  登陆 |  注册 |  密码找回 |  关于我们 | 加入收藏 
首页技术资料Perl 编程→在线交流程序 【字号: 】 【背景色 杏仁黄 秋叶褐 胭脂红 芥末绿 天蓝 雪青 灰 银河白(默认色)

在线交流程序

网址来源:http://www.kehui.net发布时间: 2002-01-21 18:12:12
<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 

相关新闻
v EOF在留言程序中引起的问题 2002-01-21 18:12:12
v perl编程比php编程如何 2016-02-23 22:24:08
  最新新闻
智慧家居
智慧家居颠覆传统智能家居
智慧云谷让智能家居变成有智慧的
智慧云谷引领智慧家居新生活
科技改变生活 智慧云谷智慧家居系
智慧家居领航者,智慧云谷助你玩
智能家居如何赢得市场美誉度?
智慧云谷智慧家居:创业者有无限
WiFi智能家居你还在用?这样的智
互联网+助推智能家居产业
智慧云谷为您打造真正的智能家居
智能家居产业需要的不是单品,而
新家如何选择开关?智慧云谷iWis
智能传感器-世界首款“智”为你的
智慧云谷开关智能安防智能空气质
智能开关品牌,如何选择智能开关
秋季干燥,智慧家居温湿度传感器
传感器助力智慧家居 感知爱家
iWiscloud智能触摸开关缔造家居装

  最新帖子
 ※这么冷清  [gabc111]
 ※手机APP操作有问题  [ssy11407]
 ※智慧云谷智慧家居将在  [cici]
 ※上传下载  [cici]
 ※下载智慧家居  [apple2008]
 ※秋季干燥,智慧家居温  [apple2008]
 ※智慧家居紧扣热点 安全  [apple2008]
 ※办公大楼如何智慧化管  [apple2008]
 ※智慧云谷工业自控的优  [apple2008]
 ※传感器助力智慧家居 感  [apple2008]
 ※智能开关品牌,如何选  [apple2008]
 ※智慧云谷开关智能安防  [apple2008]
 ※没有专业人员,如何安  [apple2008]
 ※烟台智慧云谷董事长任  [apple2008]
 ※互联网+助推智能家居产  [apple2008]
 ※WiFi智能家居你还在用  [apple2008]
 ※智慧云谷智慧家居:创  [apple2008]
 ※智能家居如何赢得市场  [apple2008]
 ※为什么国外市场很难打  [apple2008]
 ※智能家居产业需要的不  [apple2008]
钯碳回收 硝酸银回收 银浆回收 银焊条回收 回收银浆 氯化钯回收 氯化钯回收 氧化钯回收 回收硝酸钯 钯水回收价格 海绵钯回收 钯炭回收价格 回收镀金板 深圳钯碳回收 镇江氯化钯回收 杭州钯浆回收 银浆回收多少钱 回收钯碳公司 硝酸银的价格 那里有回收金 氯化钯回收价格 江苏擦银布回收 硝酸银价格 德州钯粉回收 银铜回收 回收钯粉 回收铂碳催化剂 佛山钯碳回收 金盐回收价格 海绵钯回收 钯碳高价回收 钯回收价格 钯炭回收