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

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

本插件有灿斌工作室的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%>

   <%=Rs("SenderUserName")%>  (<%=Rs("CreateTime")%>)
     <%=BodyEncode(Rs("Body"))%>

<%else%>

   <%=Rs("SenderUserName")%>  (<%=Rs("CreateTime")%>)
     <%=BodyEncode(Rs("Body"))%>

<%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]