灿斌工作室Ajax无刷新聊天室 for BBSXP 2007

By admin at 2007-12-15 • 0人收藏 • 1479人看过

灿斌工作室Ajax无刷新聊天室 for BBSXP 2007

本插件有灿斌工作室的CEO林灿斌亲自开发,未经许可,禁止修改和转载!
若想转载,请登陆http://cbgzs.8800.org发帖申请!
技术支持:
网站支持:http://cbgzs.8800.org
QQ:517038270


此插件适用与BBSXP 2007
若想要其他版本的
请联系林灿斌定做
本插件无须升级数据库
绝对安全


安装步骤
1.打开Loading.asp
找到
 case "Preview"
  Subject=unescape(Request.Form("Subject")&Request.Form("PostSubject"))
  Body=unescape(Request.Form("Body"))
在下面加上
case "response"
Response.ContentType="text/html; charset=gb2312" '//输出简体中文数据
Sql="Select * From [BBSXP_PrivateMessages] where Subject='群消息' order by MessageID"
Rs.Open Sql, Conn, 1,1
Do While Not Rs.Eof%>
<%if Rs("SenderUserName")=CookieUserName then%>
<p>
&nbsp;&nbsp;&nbsp;<font color=#008040><b><%=Rs("SenderUserName")%></b>&nbsp;&nbsp;(<%=Rs("CreateTime")%>)</font>
<br>&nbsp;&nbsp;&nbsp;&nbsp;<%=BodyEncode(Rs("Body"))%>
</p>
<%else%>
<p>
&nbsp;&nbsp;&nbsp;<font color=#0000FF><b><%=Rs("SenderUserName")%></b>&nbsp;&nbsp;(<%=Rs("CreateTime")%>)</font>
<br>&nbsp;&nbsp;&nbsp;&nbsp;<%=BodyEncode(Rs("Body"))%>
</p>
<%end if
Rs.Movenext
Loop
Rs.Close


case "receive"
if CookieUserName<>empty then
Text=HTMLEncode(Request("Text"))
Sql="Select * From [BBSXP_PrivateMessages]"
Rs.Open Sql,Conn,1,3
Rs.Addnew
Rs("SenderUserName")=CookieUserName
Rs("Body")=Text
Rs("CreateTime")=Now
Rs("Subject")="群消息"
Rs.Update
Rs.Close
end if

2.打开Setup.asp
找到<a href="Search.asp?ForumID=<%=RequestInt("ForumID")%>">搜索</a>
在下面加上
 | <a href=javascript:BBSXP_Modal.Open('chat.asp',528,320) title=点击在新窗口中打开聊天室 style=cursor:hand>聊天室</a>

3.完成了
感谢林灿斌吧!!!

[ybbtopic=3]灿斌工作室Ajax无刷新聊天室 for BBSXP 2007.rar[/ybbtopic]

[此帖子已被 admin 在 2007-12-22 15:10:07 编辑过]

41 个回复 | 最后更新于 2008-09-19
2007-12-17   #1
没想到你做东西这么快,谢谢站长啊!
2007-12-17   #2

左面出现如下问题:

Microsoft VBScript ????? ?? '800a03f6'

?? 'End'

/iisHelp/common/500-100.asp???242

Microsoft VBScript ????? ?? '800a0409'

δ??????

/bbs/Loading.asp???226

Rs("Body
--------^

 

右面:

在线列表 
群公告:
各位若有问题请先到论坛发帖!那样能留下记录供后来者作为资料。群里主要是一般交谈与闲聊 
正在加载中……

没有所谓的会员列表

2007-12-19   #3

7.3.1 的 好像不行啊

2007-12-19   #4

是啊,我用着也不行.

2007-12-19   #5

那奇怪了

我可以用啊

2007-12-20   #6
你再仔细看看是否有相关链接的程序没有提供给大家?
2007-12-20   #7

全部给了啊

我用的是纯净原版2007

我按更新时间看了一遍

没有啊

2007-12-21   #8
还是不行,怎么办啊?
2007-12-22   #9

真不好意思

我编辑的时候疏忽了

现在已经可以用了

2007-12-22   #10
这个插件真是不错,非常感谢
2007-12-22   #11
01
2007-12-22   #12
02
2007-12-22   #13
03
2007-12-23   #14
2008也不行
2007-12-23   #15

如何在其他网页中应用你那聊天室?

2007-12-25   #16
看看 确实不错的说
2007-12-25   #17
太感谢了要下`
2007-12-25   #18

我按更新时间看了一遍

没有啊

2007-12-27   #19

还是不行啊,发布信息栏和用户栏都是空的,没有任何登录用户,发布信息时,信息也发不上去,这是怎么回事啊?

登录后方可回帖

登 录
信息栏
购买PHP虚拟主机 / VPS

Carbon Forum是一个基于话题的高性能轻型PHP论坛

下载地址:Carbon Forum v5.0.1
QQ群:12607708(QQ我不常上)

donate

手机支付宝扫描上方二维码可向本项目捐款

Loading...