找回密码
 注册
查看: 6259|回复: 20
收起左侧

即时聊天插件 dv8.2.0

[复制链接]

5314

主题

8320

帖子

1万

积分

管理员

出售国内外虚拟空间

Rank: 10Rank: 10Rank: 10

积分
14665
帖子
8320
精华
67
体力
14665 点
蓝豆
2391 点
注册时间
2007-6-8

终身成就奖LY官方团队会员身份ID卡

发表于 2008-3-19 11:04:22 | 显示全部楼层 |阅读模式
★★★使用方法如下★★★ ------------------------ 首先将chat文件夹拷贝到论坛根目录 ****************1、设置管理员名字(可最多设两个管理员)**************** 把editm.asp和sendm.asp里面的aaaa、bbbb、cccc和dddd改为你的论坛管理员名称~~(或指定的任何一个注册会员) ------------------------------------------------- 只有管理员才能对聊天内容进行修改或删除。 不过一般不需要你管,因为程序会自动刷新聊天记录, 而且到一定时间会自动清理一次! 程序启用了防灌水机制,必须每隔5秒钟才能发一条消息。 这个时间可以在pros.asp文件中设置。 当聊天记录达到30行会自动清除旧的聊天记录,依次更新 更多功能请下载回去慢慢体会, 当然,你也可以根据自己的需要适当修改代码。 ------------------------------------------------- ****************2、设置刷新间隔时间**************** 打开showmsg.asp,找到以下代码: ------------------------------------------------ 其中的300为300秒,即每隔5分钟自动刷新一次,你可以 根据你的需要而设置。如果你不需要自动刷新, 请将这段代码标记为注释。 (建议使用此功能,推荐修改为180) *************3、做一个首页调用************* 请打开index.asp 找到下列代码 Case \"page\" ParsePageNode sTokenName Case \"forum_info\" ParseInfoNode sTokenName Case \"text_link\",\"logo_link\" ParseLinkNode sTokenName,LinkNode Case \"ad\" If sTokenName=\"forumtextad\" Then If Dvbbs.Boardid=0 Then TPL_Echo GetForumTextAd(0) 在代码下面加入下列代码 \'即时聊天代码开始 %><% response.write \"
\" \'即时聊天代码结束 *************4、强制增加即时聊天cookies***************** 首先打开论坛根目录 下的Login.asp找到(应该是倒数几行): select case usercookies case \"0\" Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies case 1 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies case 2 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies case 3 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies end select 用以下代码覆盖:------------>>>>可以实现和动网Cookie论坛同步 select case usercookies case \"0\" Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies Response.Cookies(\"aspsky\")(\"usercookies\") = usercookies case 1 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+1 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies Response.Cookies(\"aspsky\").Expires=Date+1 Response.Cookies(\"aspsky\")(\"usercookies\") = usercookies case 2 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+31 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies Response.Cookies(\"aspsky\").Expires=Date+31 Response.Cookies(\"aspsky\")(\"usercookies\") = usercookies case 3 Response.Cookies(Dvbbs.Forum_sn).Expires=Date+365 Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\") = usercookies Response.Cookies(\"aspsky\").Expires=Date+365 Response.Cookies(\"aspsky\")(\"usercookies\") = usercookies end select 再找到下面的代码: Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath Response.Cookies(Dvbbs.Forum_sn)(\"username\") = regname Response.Cookies(Dvbbs.Forum_sn)(\"userid\") = Dvbbs.UserID Response.Cookies(Dvbbs.Forum_sn)(\"password\") = TruePassWord Response.Cookies(Dvbbs.Forum_sn)(\"userclass\") = userclass Response.Cookies(Dvbbs.Forum_sn)(\"userhidden\") = userhidden 在下一行加上以下几行代码: \'强制增加即时聊天Cookies代码开始 Response.Cookies(\"aspsky\").path = Dvbbs.cookiepath Response.Cookies(\"aspsky\")(\"username\") = regname Response.Cookies(\"aspsky\")(\"userid\") = Dvbbs.UserID Response.Cookies(\"aspsky\")(\"password\") = TruePassWord Response.Cookies(\"aspsky\")(\"userclass\") = userclass Response.Cookies(\"aspsky\")(\"userhidden\") = userhidden \'强制增加即时聊天Cookies代码结束 然后打开logout.asp,找到(应该是倒数几行) Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath Response.Cookies(Dvbbs.Forum_sn)(\"username\")=\"\" Response.Cookies(Dvbbs.Forum_sn)(\"password\")=\"\" Response.Cookies(Dvbbs.Forum_sn)(\"userclass\")=\"\" Response.Cookies(Dvbbs.Forum_sn)(\"userid\")=\"\" Response.Cookies(Dvbbs.Forum_sn)(\"userhidden\")=\"\" Response.Cookies(Dvbbs.Forum_sn)(\"usercookies\")=\"\" 在下一行加上以下几行代码: \'强制清除即时聊天Cookies代码开始 Response.Cookies(\"aspsky\").path=Dvbbs.cookiepath Response.Cookies(\"aspsky\")(\"username\")=\"\" Response.Cookies(\"aspsky\")(\"password\")=\"\" Response.Cookies(\"aspsky\")(\"userclass\")=\"\" Response.Cookies(\"aspsky\")(\"userid\")=\"\" Response.Cookies(\"aspsky\")(\"userhidden\")=\"\" Response.Cookies(\"aspsky\")(\"usercookies\")=\"\" \'强制清除即时聊天Cookies代码结束 至此整个插件安装完毕,赶快刷新你的首页看看!!

聊天.rar

17 KB, 下载次数: 71, 下载积分: 体力 -1 点

出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031
懒得打字嘛,点击右侧快捷回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

网站公告上一条 /2 下一条

GMT+8, 2024-5-20 23:31 , Processed in 0.078125 second(s), 27 queries , Gzip On.

© 2006-2022 Powered by Discuz! X3.4

快速回复 返回顶部 返回列表