一个简单地利用缓存技术聊天室与BBSXp整合的实例

By admin at 2007-07-01 • 0人收藏 • 677人看过

一个简单地利用缓存技术聊天室与BBSXp整合的实例

废话少说

看代码

<!-- #include file="Setup.asp" -->
<title>聊天室</title>

<%
Response.Buffer=true ' 设 置 输 出 缓 存,用 于 显 示 不 同 页 面。
On error resume next ' 忽 略 程 序 出 错 部 分
If Request.ServerVariables("Request_Method")="GET" then
' 判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面
'------------------------
' 客 户 登 陆 界 面
'------------------------
%>

<form method="POST" action="bbschat.asp"><p align="center">
<!--webbot bot="Validation" S-Data-Type="String" B-Allow-Letters="TRUE" B-Allow-Digits="TRUE" B-Value-Required="TRUE" I-Minimum-Length="1" I-Maximum-Length="16" -->
<input type="text" disabled=true readonly=true name="nick" size="20" value="<%=CookieUserName%>" style="background-color: rgb(192,192,192)" maxlength="16"><br>
<input type="submit" value=" 进 入 聊 天 室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">
<p><input type="hidden" name="log" size="20" value="1"><br></p>
</form>

<%
Response.End ' 结 束 程 序 的 处 理
Else
Response.clear ' 清 空 缓 存 中 的 内 容
dim talk
If Request.Form("nick")<>"" then
' 判 断 客 户 是 是 否 在 聊 天 界 面 中
Session("nick")=Request.Form("nick")
End If
'------------------------
'客 户 聊 天 界 面
'------------------------
%>

<form method="POST" action="bbschat.asp" name=form1> <p><%=Session("nick")%> 说 话:<input type="text" name="talk" size="20"><br>
<input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 取 消 " name="B2"></p>
</form>
<A HREF="bbschat.asp"> 离 开 </a><br><br>

<%
If Request.Form("log")<>1 then
If trim(Request.Form("talk"))="" then
' 判 断 用 户 是 否 没 有 输 入 任 何 内 容
talk=Session("nick")&" ,低调是好的,不过你在浪费偶服务器的资源啊"
Else
talk=trim(Request.Form("talk"))
' 去 掉 字 符 后 的 空 格
End If

Application.lock
Application("show")="<table border='0' cellpadding='0' cellspacing='0' width='85%'><tr><td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'><font color='#0000FF'> 来 自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说:</font>"&talk&"</td></tr><tr><td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show")
Application.UnLock

Response.Write Application("show")
End If
End If
%>

保存为bbschat.asp

其实就是先包含setup.asp这个核心文件

之后在用户名处只允许使用cookiesname

禁止空名字

这样就整合成功了

清除聊天纪录就是进入后台

在更新论坛资料时

清空缓存就OK了

16 个回复 | 最后更新于 2009-06-10
2007-07-01   #1

演示图片1

演示图片2

 

2007-08-05   #2
其实整合的重点就是缓存统一的问题
2007-08-06   #3

enger:
其实整合的重点就是缓存统一的问题

不是这样的

是登陆聊天室所用名称和论坛用的cookiename一样

2007-08-10   #4

怎么不是呢,用户名和密码缓存在服务器,跳转页面的时候判断

2007-08-10   #5
对哦,看来的确是这样!
2007-08-26   #6

怎样放入论坛?

2007-08-28   #7

保存为bbschat.asp

做个连接到bbschat.asp

2007-08-28   #8

谢谢,但界面简单了一点。

2007-08-28   #9
不会显示用户名,而且要提交才能显示对方的文字。
2007-08-29   #10

这也是缺点

你看见我站上面导航栏<A onmouseover="showmenu(event,'<div class=menuitems><iframe src=Chat.asp width=500 height=320></iframe></div>')" title="" style="CURSOR: hand" href="javascript:BBSXP_Modal.Open('chat.asp',518,320)" dypop="点击在新窗口中打开聊天室">聊天室 3字了吗

这是新版本的

2007-11-03   #11
男男女女男男女女奶奶
2008-05-03   #12
好,测试一下
2008-08-30   #13
好啊好得很快解放 
2008-12-12   #14
面板有点小了吧,看是放不下几行话呀!不过,还是不错,支持!
2008-12-25   #15

能不能在首页显示?

 

2009-06-10   #16
感觉不错~~~还要多多学习

登录后方可回帖

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

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

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

donate

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

Loading...