2.8w+
社区成员
- 全部
一个用ASP实现的聊天室，有一个功能怎么加进去，哪位高手来帮一下忙，指点一下。
（源程序我传了几次都没传上来，我把它放在了hgd6370@163.com（临时申请的）草稿箱得附件里了，密码是125858，麻烦你们了（邮箱里就这一个东西））
本来是要用ASP实现聊天室功能的，但是不知道怎么实现列出在线人列表得功能，改了几次都不行，快崩溃了，还望高手指点一二。
本来是要用ASP实现聊天室功能的，但是不知道怎么实现列出在线人列表得功能，改了几次都不行，快崩溃了，还望高手指点一二。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
空无 2008-04-18
我用EDIT PLUS把源文件打开发上来，大家看看：一共四个ASP文件如下
文件1 send.asp
<%@ LANGUAGE="JSCRIPT" %>
<% flag=1;
username=Session("username");
no=Session("no");
mywords=Request("message");
mycolor=Request("mycolor");
len_mywords=mywords.length;
var i; for(i=1;i<=len_mywords;i++)
{ if("<"==mywords.subString(i,1))
{flag=0;}
}
if(1==flag)
{mywords="姓名："+username+" " +"机器号："+no +"说："+"<font color="+ mycolor +">"+mywords;
Application.Lock();
Application("talk")=Application("talk") +mywords +"</font> <br>";
Application.UnLock();
}
%>
<style type="text/css">
<!--
body {
background-color: #FFCCCC;
}
-->
</style>
<div align="center">
<h1><a href="send.htm"><strong><em>返回聊天页面</em></strong></a></h1>
</div>
文件二 loginfail.asp
<%@ language=JScript %>
<%try
{username=Request("username")(1);
no=Request("no")(1);
len_no=no.length;
len_username=username.length;
if(username.length>0)
{Session("username")=username;
Session("no")=no;
Response.Redirect("chatpage.asp");}
else{
Response.Write("登陆失败!<a href='login1.htm'>请重新登录</a>");
}
}
catch(e){ }
%>
文件三 chatpage.asp
<html>
<head>
<title>聊天页面</title>
</head>
<frameset rows="*,100" >
<frame src="end.asp">
<frame src="send.htm">
</frameset><noframes></noframes>
</html>
文件四 end.asp
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="refresh" content="5; url=end.asp">
<script language="JavaScript1.1">
function scrollWindow()
{ this.scroll(0,75000);
setTimeout('scrollWindow()',200);
}
scrollWindow();
</script>
<meta name="generator" content="Microsoft Visual Studio 7.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
background-color: #CCFF66;
}
-->
</style></head>
<body><p align="right">
</p>
<% Response.Write(Application("talk"));%>
</body>
</html>
还有我的HTML源文件：也是两个；如下：
文件一 login1.htm
<%@ Language=VBScript%>
<html>
<head>
<title>欢迎进入本聊天室</title>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.username.value=="")
{
window.alert("请输入姓名")
NotNull=false
}
if (document.Login.no.value=="")
{
window.alert("请输入机器号")
NotNull=false
}
return NotNull
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p align="right"><em><font color="#0080ff"><big><strong>本聊天室由busyants制作</strong></big></font></em></p>
<form name="Login" method="post" action="loginfail.asp" align="center" onSubmit="return Check()">
<div align="center"><center><table border="1" width="36%" bgColor="#ffe4b5" style="HEIGHT: 237px; WIDTH: 306px" bordercolor="#0000ff">
<tr>
<td width="100%" align="middle" bgcolor="#ffffff" bordercolor="#808080"><big><big><strong><font color="#008080" face="隶书">欢迎进入busyants聊天室</font></strong></big></big></td>
</tr>
<tr>
<td width="100%" align="middle" bgcolor="#ccffff">
<p style="BACKGROUND-COLOR: antiquewhite" align="center"><font color="#800080">请输入你的大名:<BR></font>
<input type="text" name="username" maxlength="10" > <br><font color="#800080">请输入你的机器号:<br></font>
<input type="text" name="no" maxlength="10" ><BR>
<input type="submit" value="提交" name="submit">
<input type="reset" value="清除" name="Reset"></p>
<tr>
<td width="100%" align="middle" bgcolor="#ffccff"><i><font face="隶书"><font color="#0000ff">
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008000">目前本聊天室共有<% =howmanyusers %>人聊天</marquee>
</font></font></i></td>
</tr></table>
</center></div>
</form>
</body>
</html>
</body>
</html>
文件二；send.htm
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<style type="text/css">
<!--
.style2 {color: #CC0066}
-->
</style>
<body bgcolor="lightblue">
<form method="post" action="send.asp">
<input name="message" type="text" size="50">
<select size="1" name="mycolor">
<option value="red" >红色</option>
<option value="blue">蓝色</option>
</select>
<input type="submit" value="send">
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008003">
<span class="style2">欢迎进入本聊天室 欢迎进入本聊天室</span>
</marquee>
</form>
</body>
</html>
写的很菜，让前辈们见笑了，还望多多指导哦啊。
-----诚挚的菜鸟
文件1 send.asp
<%@ LANGUAGE="JSCRIPT" %>
<% flag=1;
username=Session("username");
no=Session("no");
mywords=Request("message");
mycolor=Request("mycolor");
len_mywords=mywords.length;
var i; for(i=1;i<=len_mywords;i++)
{ if("<"==mywords.subString(i,1))
{flag=0;}
}
if(1==flag)
{mywords="姓名："+username+" " +"机器号："+no +"说："+"<font color="+ mycolor +">"+mywords;
Application.Lock();
Application("talk")=Application("talk") +mywords +"</font> <br>";
Application.UnLock();
}
%>
<style type="text/css">
<!--
body {
background-color: #FFCCCC;
}
-->
</style>
<div align="center">
<h1><a href="send.htm"><strong><em>返回聊天页面</em></strong></a></h1>
</div>
文件二 loginfail.asp
<%@ language=JScript %>
<%try
{username=Request("username")(1);
no=Request("no")(1);
len_no=no.length;
len_username=username.length;
if(username.length>0)
{Session("username")=username;
Session("no")=no;
Response.Redirect("chatpage.asp");}
else{
Response.Write("登陆失败!<a href='login1.htm'>请重新登录</a>");
}
}
catch(e){ }
%>
文件三 chatpage.asp
<html>
<head>
<title>聊天页面</title>
</head>
<frameset rows="*,100" >
<frame src="end.asp">
<frame src="send.htm">
</frameset><noframes></noframes>
</html>
文件四 end.asp
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="refresh" content="5; url=end.asp">
<script language="JavaScript1.1">
function scrollWindow()
{ this.scroll(0,75000);
setTimeout('scrollWindow()',200);
}
scrollWindow();
</script>
<meta name="generator" content="Microsoft Visual Studio 7.0">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body {
background-color: #CCFF66;
}
-->
</style></head>
<body><p align="right">
</p>
<% Response.Write(Application("talk"));%>
</body>
</html>
还有我的HTML源文件：也是两个；如下：
文件一 login1.htm
<%@ Language=VBScript%>
<html>
<head>
<title>欢迎进入本聊天室</title>
<script language="jscript">
<!--
function Check()
{
var NotNull
NotNull=true
if (document.Login.username.value=="")
{
window.alert("请输入姓名")
NotNull=false
}
if (document.Login.no.value=="")
{
window.alert("请输入机器号")
NotNull=false
}
return NotNull
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p align="right"><em><font color="#0080ff"><big><strong>本聊天室由busyants制作</strong></big></font></em></p>
<form name="Login" method="post" action="loginfail.asp" align="center" onSubmit="return Check()">
<div align="center"><center><table border="1" width="36%" bgColor="#ffe4b5" style="HEIGHT: 237px; WIDTH: 306px" bordercolor="#0000ff">
<tr>
<td width="100%" align="middle" bgcolor="#ffffff" bordercolor="#808080"><big><big><strong><font color="#008080" face="隶书">欢迎进入busyants聊天室</font></strong></big></big></td>
</tr>
<tr>
<td width="100%" align="middle" bgcolor="#ccffff">
<p style="BACKGROUND-COLOR: antiquewhite" align="center"><font color="#800080">请输入你的大名:<BR></font>
<input type="text" name="username" maxlength="10" > <br><font color="#800080">请输入你的机器号:<br></font>
<input type="text" name="no" maxlength="10" ><BR>
<input type="submit" value="提交" name="submit">
<input type="reset" value="清除" name="Reset"></p>
<tr>
<td width="100%" align="middle" bgcolor="#ffccff"><i><font face="隶书"><font color="#0000ff">
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008000">目前本聊天室共有<% =howmanyusers %>人聊天</marquee>
</font></font></i></td>
</tr></table>
</center></div>
</form>
</body>
</html>
</body>
</html>
文件二；send.htm
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<style type="text/css">
<!--
.style2 {color: #CC0066}
-->
</style>
<body bgcolor="lightblue">
<form method="post" action="send.asp">
<input name="message" type="text" size="50">
<select size="1" name="mycolor">
<option value="red" >红色</option>
<option value="blue">蓝色</option>
</select>
<input type="submit" value="send">
<marquee behavior="alternate" scrolldelay="200" scrollamount="3" style="COLOR: #008003">
<span class="style2">欢迎进入本聊天室 欢迎进入本聊天室</span>
</marquee>
</form>
</body>
</html>
写的很菜，让前辈们见笑了，还望多多指导哦啊。
-----诚挚的菜鸟
一把编程的菜刀 2008-04-18
没时间去调试这样的东西，不行的话，那就是你的每个会员在线的唯一标志获取不对，或者没有定义
空无 2008-04-18
说的是对啊，不过我试过很多方法了，就是不行，你们到邮箱里下下来试试，看是不是还有其他问题，麻烦你们了。可能是我太菜了吧，http://mail.163.com/
raoxu45 2008-04-18
Session和Application都可以实现在线人员的统计。
也可以把它写入数据库实现在线人员统计。
也可以把它写入数据库实现在线人员统计。
一把编程的菜刀 2008-04-17
那不是每一个在线的会员都会有一个不同的会话吗？
你根据这个来做不可以了？
既然有不同的标志那还不好弄？
你根据这个来做不可以了？
既然有不同的标志那还不好弄？
空无 2008-04-17
Session和Application
一把编程的菜刀 2008-04-17
http://blog.csdn.net/chinmo/archive/2008/03/04/2145674.aspx自己看这个ASP+AJAX的
tang3dashu 2008-04-17
刚好原来做过这块，说说我自己的做法。我是jsp做的。不过原来都差不多。
大概分三个部分
1 聊天
2 发言
3 人员
聊天 和 人员 因为要动态刷新 最好有ajax实现。
人员的话其实道理也很简单 div+table 5秒刷一次
人员必须有个一字段标识，“是否在线”
当人员点击进入聊天室的时候 改字段变化，
人员页面5秒刷一次 吧表中字段为在线的 数据取的。至于数据怎么封装的页面 你自己看的办list挺不错。
大概是这样做的。和你分享下。
期待更好的做法!
一把编程的菜刀 2008-04-17
你是怎么标志会员在线的？使用什么？
空无 2008-04-17
不好意思，弄错了，是在收件箱里，。
【新手请教简单问题】关于一个简单的ASP聊天室的2个小问题。 我是一个初学新手，想问两个问题，各位高手别笑我…… 我要写一个最简单的ASP聊天室，基本框架做好了。 但有2点不太会做，希望高手指点一下！先谢谢各位啦！ 1、 要求公共聊天室房间的开放时间为每天下午16时~18时，...
梦成真——一个普通学校计算机系学生的出国梦 2月24 号，周四，正如看手相那个人跟我说的...至此，我才有勇气去为这一路写一个总结，向自己微笑。。为了这一天，我付出了太多太多。这一路上，帮助过我的人太多太多。关于过去这四年。。。有很多很多话想说。。。。。
高性能Web开发技术”网上聊天活动 本期嘉宾：郭红俊（ghj1976）,孟宪会(孟子E章) ，刘如鸿(策划编辑）聊天...[2004-10-21 13:39:00]嘉宾[主持人]: 今天我们非常荣幸的请到了几位在Web开发方面非常有经验的嘉宾来CSDN聊天室作客。[2004-10-21 13:48:00]嘉
聊天主题：高性能的Web应用程序开发 本期嘉宾：郭红俊（ghj1976）,孟宪会(孟子E章) ，刘如鸿(策划编辑）聊天...[2004-10-21 13:39:00]嘉宾[主持人]: 今天我们非常荣幸的请到了几位在Web开发方面非常有经验的嘉宾来CSDN聊天室作客。[2004-10-21 13:48:00]嘉
“高性能Web开发技术”网上聊天活动 本期嘉宾：郭红俊（ghj1976）,孟宪会(孟子E章) ，刘如鸿(策划编辑）聊天...[2004-10-21 13:39:00]嘉宾[主持人]: 今天我们非常荣幸的请到了几位在Web开发方面非常有经验的嘉宾来CSDN聊天室作客。[2004-10-21 13:48:00]嘉
《当程序员的那些狗日日子》一 作此文，祭奠我当程序员的那些狗日日子，并与所有仍在艰苦...所以希望您可以带着平常心去看，只当看一个小程序员的职业故事，如果您看后没有骂我，那我就已经感到很欣慰了！ ──作者序 《当程序员的那些狗日日子...
我是一只 IT小小鸟 我是一只 IT小小鸟 作者序 2009 年 3 月的某个晚上，我跟侯磊同学...来，我们不由总结出，要是研一或更早，有师兄师姐能够这么提醒我们，这一路 我们可能就会走得更从容、更自觉。 现在我们都成师兄师姐了，
《当程序员的那些狗日日子》二 元旦前公司让我设计了一个A4产品宣传单，这是因为当时做美工设计的小京请假了，而公司又急于欲将一些主要产品对外进行宣传，所以我便自荐让小李总把设计任务交给我。这跟网页设计还是有很大的不同，因为设计图的...
java txt文本的问题
<br /> 有个按钮，就是想点击下按钮，就弹出txt文本，文本里有输入的内容，不是JOptionPane.showMessageDialog看LZ的职业定向了,你刚出来最好是找自己熟点的技术的方向.
因为走进社会,不仅仅是技术,得学...
我是一只IT小小鸟 一夜痛快淋漓地说下来，我们不由总结出，要是研一或更早，有师兄师姐能够这么提醒我们，这一路我们可能就会走得更从容、更自觉。
现在我们都成师兄师姐了，或许我们能够在毕业之前把这些经验教训留下，以期给...
《失业七个月，面试六十家公司》的深圳体验 《失业七个月，面试六十家公司》的深圳体验作者：色里调情 《失业a 七个月，面试六十家公司》的深圳体验 首先，坦白的讲，如果我现在不是找到了一份还合适的工作，我是根本不愿意再去回想那七个月的事情的。...
《msdn开发精选》“高性能Web开发技术”网上聊天活动 《msdn开发精选》“高性能Web开发技术”网上聊天活动 本期嘉宾：郭红俊（ghj1976）,孟宪会(孟子E...欢迎大家到CSDN嘉宾聊天室。 [2004-10-21 13:39:00] 嘉宾[主持人]: 今天我们非常荣幸的请到了几位在Web开...
高性能的Web应用程序开发 本期嘉宾：,郭红俊（ghj1976）,刘如鸿,孟宪会(孟子E章),主持人，聊天话题：高性能的Web应用程序开发 查看聊天记录 嘉宾发言区 问：B/S应用中怎样权衡客户端代码与服务器端代码，以提高性能呢？[2004-10-21 15:48:00...
经历。。 我不是计算机相关专业毕业的，我上的是大专，我的专业叫供用电技术，是跟电力行业相关的一个专业。高考填报志愿时，对计算机的了解还完全处于懵懂状态的我，在第二志愿里填报了计算机专业，结果便与计算机专业...
高并发高负载网站系统架构 我在CERNET做过拨号接入平台的搭建，而后在Yahoo&3721从事过搜索引擎前端开发，又在M...一个小型的网站，比如个人网站，可以使用最简单的html静态页面就实现了，配合一些图片达到美化效果，所有的页面均存放在一个目录
海量数据的并发处理 今天看网友看一个帖子征求网友的答案，我也来凑个热闹，问题本身是非常不错的，只不过回来起来真的是很难，就以这个问题作为，数据并发处理的学习开始吧。问题是这样的：原文地址 1、海量数据的处理 众所周知，...
高负载高并发网站架构分析 由于自己正在做一个高性能大用户量的论坛程序，对高性能高并发服务器架构比较感兴趣，于是在网上收集了不少这方面的资料和大家分享。希望能和大家交流 msn: defender_ios@hotmail.com ————————————...
说说大型高并发高负载网站的系统架构 转载请保留出处：俊麟 Michael’s blog (http://www.toplee.com/blog/?p=71) ... 我在CERNET做过拨号接入平台的搭建，而后在Yahoo&3721从事过搜索引擎前端开发，又在MOP处理过大型社区猫扑...
IT解惑真经 PS：观后大有启发，遂转至本博客，望众博友共进。十分抱歉，由于文字限制，删减了优质学生评论以及部分章节，想看其他内容请去原博客...IT学生解惑真经肖舸 杨中科 左飞 著目 录l 大学计算机课程学习路线l ...
Thinkpad常见问题大全（转载联想工程师博客） 想要收藏本篇文章请下载Word版 Q：我想升级成VISTA，想问一下，升级之后一键恢复是恢复到XP还是VISTA?A：如果从隐含分区恢复出厂设置，那当然是恢复到出厂时预装的系统；如果是用R&
高并发 高负载 网站系统架构 高并发 高负载 网站系统架构 ...不过还是要谢谢哪位作者了。这样的文章很少。 转自：http://www.toplee.com/blog/71.html 我在CERNET做过拨号接入平台的搭建，而后在Yahoo&3721从事过搜索引擎前端开发，
