一个用ASP实现的聊天室，有一个功能怎么加进去，哪位高手来帮一下忙，指点一下。

空无 2008-04-17 02:39:17
（源程序我传了几次都没传上来，我把它放在了hgd6370@163.com（临时申请的）草稿箱得附件里了，密码是125858，麻烦你们了（邮箱里就这一个东西））
本来是要用ASP实现聊天室功能的，但是不知道怎么实现列出在线人列表得功能，改了几次都不行，快崩溃了，还望高手指点一二。
...全文
254 10 打赏 收藏 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
空无 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>

写的很菜，让前辈们见笑了，还望多多指导哦啊。
-----诚挚的菜鸟













一把编程的菜刀 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.net做一个简易的聊天室
要求： 结果： 关键代码： Default.aspx <form id="form1" runat="server"> <div> <asp:Label ID="username_label" runat="server" Text="用户名：" Width="80px"></asp:Label> <asp:TextBox ID="username_text" runat="server" ></a
用Asp.net做一个简易聊天室
用Asp.net做一个简易聊天室
ASP + SQL Server聊天室设计实例
ASP + SQL Server聊天室设计实例 目   录第一章：绪论1.1  设计思想1.2   开发工具和相关技术简介第二章：聊天室总体分析和设计2.1  聊天室的运行原理2.2  聊天室的功能2.3  聊天室的页面结构设计2.4        聊天室的程序结构设计2.5        数据库结构设计第三章：聊天室的详细设计１．  变量说明
ASP.NET 使用Application实现聊天室(超详细,先收藏)
本实例添加了私聊功能，有关Application对象的应用如下。Application对象是建立在应用程序级上并为所有客户提供共享信息的对象。该对象所存储的信息可以被多个客户使用，并且在整个Web应用程序运行期间持久地保存。一个客户停止了自己的应用程序，释放了Application对象的共享信息后，并不影响其他客户应用。1．变量定义Application对象的主要功能就是为Web应用程序提供全局变量。它是由用户根据需要自行定义的。2．信息读取应用程序中可以通过给定的变量名读取指定变量的值。
基于ASP的简单聊天室功能实现项目
默认浏览器滚动条太宽、太丑、还占地方。特别是在移动端，6px宽的滚动条简直是浪费空间。我们可以用WebKit伪元素来定制：width: 6px;对于Firefox，可以用：效果立竿见影：原本粗笨的滚动条变成了一条低调的小细线，既节省空间又不破坏整体美感。
ASP

28,402

社区成员

356,940

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章