不好意思！总是麻烦大家！ - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 不好意思！总是麻烦大家！

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1574 人关注过本帖

标题：不好意思！总是麻烦大家！

只看楼主加入收藏

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

楼主

问题点数：0 回复次数：14

不好意思！总是麻烦大家！

我做的一个练习:通过数据库实现简单的聊天室功能！
还有最后一点问题请教各位朋友！
当用户用呢称(nickname)登录后将nickname写入一个Seiion变量.
如:session("nickname")=nickname 并将nickname写入在线表online及聊天内
容表中，现在我想在用户离线后利用Session_OnEnd事件从在线用户表(online)
中删除该用户呢称：于是将其写入global.asa文件，并将该文件保存在我的WEB
站点根目录下(不知这样对吗？我的chat程序在根目录的更下级目录中)：
global.asa代码如下：
--------------------------------------------------------------
<Script language=VBScript runat=server>
Sub Session_OnEnd()
  dim nickname
  nickname=session("nickname")
  set conn=server.createobject("adodb.connection")
  dbpath=server.mappath("img\chatroom.mdb")
  conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
  set rs=server.createobject("adodb.recordset")
  sqlstr="delete from online where 呢称='"&nickname&"'"
  rs.open sqlstr,conn
  session("nickname")=""
  session.abandon
End Sub
</Script>
--------------------------------------------------------------
不知错在哪里了，并不能实现用户下线(或关闭IE一次)时删除online表中
他呢称的效果，即所有登入聊天室的呢称都一直存在,程序应该没问题(我
存到另外文件中试过了)，不知问题出在什么地方了！小弟初学！对ASP知
之甚少，请各位哥哥姐姐弟弟妹妹看年问题出在什么地方了！
小菜先谢谢大家!给大家鞠个躬先！！！

搜索更多相关主题的帖子: 麻烦　

2004-06-22 22:58

风

等　级：新手上路
帖　子：98
专家分：0
注　册：2004-3-30

第 2 楼

得分:0

把整个聊天室的程序发布上来行吗，我调试调试

在风中迷茫的男孩

2004-06-23 00:56

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

第 3 楼

得分:0

发上来可以！很烂的噢！大家不许笑噢！

2004-06-23 11:20

belin2000

等　级：论坛游侠
威　望：5
帖　子：975
专家分：194
注　册：2004-6-2

第 4 楼

得分:0

谁没有做过新手？

59ita点com(我就爱TA)

2004-06-23 12:06

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

第 5 楼

得分:0

=============那我贴了：请大家帮忙看看在哪里，谢谢！================
这是一个很简单的聊天室练习，主要特征就是提供实时更新的数据库信息：更新采用浏览器每隔一段
时间(我设为4S)刷新一次页面的简单办法来实现
聊天室共用到7段简单的小代码:
(1)chatroom.mdb   :整个聊天室的数据库(有两个表:chat表存储聊天信息，online表存储在线名单)
(2)default.asp    :输入呢称登录页面
(3)chat.asp       :整个聊天室的框架页面
(4)display.asp    :即时显示用户聊天信息的框架
(5)online.asp     :显示在线用户的框架
(6)talk.asp       :用户输入聊天内容的框架
(7)talkinsert.asp :处理用户聊天话语，把每个话语插入数据库中
另加一个global.asa  :用于当用户下线时触发其中的session_onend事件，以在online表中删除其呢称。

=====================<1>default.asp=========================
<%
session("isconnected")=true
%>
<html>
<title>==聊天练习程序--登录窗口==</title>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
</head>
<body>
<form method="post"  action="chat.asp" name="chatform">
输入你的呢称:<input type=text name="nickname" size=20>&nbsp;&nbsp;
<input type=submit name=button value=进入聊天室>
</form>
</body>
</html>

[此贴子已经被作者于2004-06-23 12:24:47编辑过]

2004-06-23 12:10

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

第 6 楼

得分:0

===========================<2>chat.asp:================================ <% '过滤用户输入的呢称 function sqlstr(data) sqlstr="'"&replace(data,"'","''")&"'" end function '判断用户是否经过登录页面 if isempty(session("isconnected")) then response.redirect "default.asp" response.end end if '获取nickname nickname=trim(request("nickname")) if nickname="" then response.write "呢称不能为空！请<a href=default.asp><font color=red>返回</font></a>重新输入呢称！" response.end end if '判断数据库中是否存在同样呢称的用户，并且该用户正在线上 dim conn,dbpath on error resume next set conn=server.createobject("adodb.connection") dbpath=server.mappath("img\chatroom.mdb") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath set rs=server.createobject("adodb.recordset") 'sqlstring="select * from online where 姓名='"&nickname&"'" '这里去死吧 sqlstring="select * from online where 姓名="&sqlstr(nickname) rs.open sqlstring,conn if not rs.eof then response.write "你选择的呢称已被使用！请<a href=default.asp><font color=red>返回</font></a>更换呢称然后再次进入！" response.end end if '关闭rs rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sqlstr1="insert into online(姓名) values('"&nickname&"')" '把该用户的呢称插入online表中 application.lock rs.open sqlstr1,conn application.unlock rs.close conn.close set rs=nothing set conn=nothing '将用户存入一个session变量中 session("nickname")=nickname %>  <html> <head><title>★★★聊天室练习★★★</title> <meta http-equiv="content-type" content="text/html;charset=gb2312"> </head> <frameset rows="*,80" frameborder="yes" border=0 framespacing="0"> <frameset cols="*,201" frameborder="yes" border=0 framespacing="0"> <frame name="mainframe" src="display.asp" scrolling="yes"> <frame name="rightframe" src="online.asp" scrolling="no" noresize> </frameset> <frame name="bottomframe" scrolling="no" noresize src="talk.asp"> </frameset> <noframes> <body gbcolor="#ffffff" text="#000000">你的浏览器不支持框架！</body> </noframes> </html>

[此贴子已经被作者于2004-06-23 12:18:49编辑过]

2004-06-23 12:16

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

第 7 楼

得分:0

==================<3>talk.asp============================== <html><head> <title>==发言窗口==</title> <meta http-equiv="content-type" content="text/html;charset=gb2312"> </head> <body bgcolor="navyblue" text="#000000" leftmargin=100> <form name="talk" method="post" action="talkinsert.asp"> <input type="text" name="content" size=80 maxlength=40> <input type="hidden" name="whotalk" value=<%=session("nickname")%>>  <input type="submit" name="submit" value="发 言"> </form> </body> </html> =======================<4>talkinsert.asp========================== <% dim content content=trim(request.form("content")) '如果发言不为空再执行操作 if content<>"" then nickname=trim(request.form("whotalk")) '获取讲话人呢称 set conn=server.createobject("adodb.connection") dbpath=server.mappath("img\chatroom.mdb") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath set rs=server.createobject("adodb.recordset") sqlstr="insert into chat(姓名,内容) values('"&nickname&"','"&content&"')" '将该用户的发言插入到chat表中: application.lock rs.open sqlstr,conn application.unlock end if response.redirect "talk.asp" %> =======================<5>online.asp============================= <html> <head> <title>==在线人员==</title> </head> <body bgcolor=lavender> <br><br>

<% dim conn,dbpath dbpath=server.mappath("img\chatroom.mdb") set conn=server.createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath set rs=server.createobject("adodb.recordset") sqlstr="select * from online" rs.open sqlstr,conn,3,3 rs.movefirst count=rs.recordcount %> <font color=red face=幼圆>当前在线[共<font color=blue><%=count%></font>人]:</font><div align=left><hr color=blue size=5 width=130></div> <% while not rs.eof response.write " <font color=blue>"&rs("姓名")&"</font><br>" rs.movenext wend set rs=nothing %> </body> </html>

2004-06-23 12:20

hell

等　级：新手上路
帖　子：81
专家分：0
注　册：2004-6-3

第 8 楼

得分:0

===========================<6>display.asp=========================== <html><head> <title>聊天内容窗口</title> <meta http-equiv="content-type" content="text/html;charset=gb2312"> <meta http-equiv="refresh" content="3";url="<%=request.servervariables("path_info")%>"> </head> <body background="img\bg04.gif" bgproperties="fixed" text="#000000" leftmargin=10> <font color=blue face=幼圆 size=4><font color=red>★</font>聊天室小程序</font> <hr size=3 color=blue>

<% set conn=server.createobject("adodb.connection") dbpath=server.mappath("img\chatroom.mdb") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath set rs=server.createobject("adodb.recordset") sqlstr="select top 20 * from chat order by 时间 desc" rs.open sqlstr,conn

do while not rs.eof response.write rs("时间")&"[<font color=red>"&rs("姓名")&"</font>说:]" response.write " "&rs("内容")&"<br>" rs.movenext loop response.write "<br>"

set rs=nothing %> </body> </html> ===========================<7>global.asa======================== <Script language=VBScript runat=server> Sub Session_OnEnd() dim nickname nickname=session("nickname") set conn=server.createobject("adodb.connection") dbpath=server.mappath("img\chatroom.mdb") conn.open "provider=microsoft.jet.oledb.4.0;data source="&dbpath 'dbpath="d:\hell\asp\chat\img\chatroom.mdb" 'conn.open "provider=microsoft.jet.oledb.4.0;data source='"&dbpath&"'" set rs=server.createobject("adodb.recordset") sqlstr="delete from online where 姓名='"&nickname&"'" rs.open sqlstr,conn session("nickname")="" session.abandon End Sub </Script> ------------------------------------------------------------------------------------------------ 现在的主要问题是：当每个用户下线后，无法在online表中删除其呢称 global.asa程序应该没什么问题(我copy在别的文件中测试过了，可以达到删除呢称的效效果) 所以我感觉是在用户下线后session_onend事件并没有执行搞了一天了，实在不懂什么原因! 请大家看看：谢谢大家！！！

2004-06-23 12:24