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

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

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

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

安装步骤
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 ["&TablePrefix&"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 ["&TablePrefix&"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.把chat.asp传上去

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

灿斌工作室Ajax无刷新聊天室 for BBSXP 2008.1.rar

［此帖子已被 admin 在 2007-12-10 17:58:25 编辑过］

［此帖子已被 admin 在 2007-12-10 18:03:36 编辑过］