[转帖]让动网论坛7版用户cookie及登陆全站共享的修改方法

金光 · 发表于 2004 年 1 月 27 日 00:00:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

<TABLE class=tablebody2 cellSpacing=0 cellPadding=6 width="100%" border=0>
<TBODY>
<TR>
<TD>以下内容为程序代码: 

让动网论坛7版用户登陆全站共享的修改方法

 '==============声明及说明================== 1、本方法适用于动网论坛 Dvbbs ver7.0及其以上版本。 2、本方法依存于动网论坛 Dvbbs ver7.0，修改仅限于个人使用，商业使用者请联系动网开发小组以获得授权。 3、本方法修改结果请参看中国维修网。 　　网站地址：<A href="http://www.weixiuwang.com/" target="_blank" >http://www.weixiuwang.com</A> 　　论坛地址：<A href="http://www.weixiuwang.com/club" target="_blank" >http://www.weixiuwang.com/club</A> 　　测试用户：admin 密码：adminadmin 4、本方法修改者：中国维修网-惊云（动网论坛ID：中维网）。 5、本方法修改使用为个人自愿行为，本人不对任何人自行修改带来的任何结果及后果承担任何责任。 6、本人联系方法： 　　　　QQ：11402641 　　　　email: <A href="mailto:zy@21wx.net" target="_blank" >zy@21wx.net</A> 　　　　电话：13882019461(短信不回，只接电话） 7、这一点就是私心了，呵呵，本方法本人参悟了近3天时间，耗费了不少心思，不过修改方法倒是简单，我不提供修改后的文件下载，大家可以参考一下方法自行修改。有一点希望，就是希望使用的朋友给我做个友情连接，也是宣传嘛，连接是自愿的，先谢过了。 '==============声明结束=====================

修改步骤： 1、修改工具：UltraEdit编辑器 2、需要修改的文件名称 本次修改的文件共有三个 1) inc/Dv_ClsMain.asp 2) login.asp 3) logout.asp

3、修改方法 1）定义为通用名称 打开inc/Dv_ClsMain.asp 这一步的主要目的是将论坛的COOKIE名称定义为通用名称

 在本文件的开头定义变量

 dim mybbsdir MyBbsDir = "/club/" '你论坛所在目录 

Class Cls_Forum Rem Const dim MyCookieName

 MyCookieName = "ilovecsw" '通用cookie名称 找到第28行(增加上两行后就是第31行)，本行原文是： CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","") 改为 CacheName = MyCookieName

 找到第31行(增加上两行后就是第34行)，本行原文是： Forum_sn = CacheName:Vipuser = False:Boardmaster = False 改为 Forum_sn = MyCookieName

 2）更改Cookies目录

 这一步的主要目的将论坛的cookies目录定义为全局目录，即根目录"/"

 ①打开inc/Dv_ClsMain.asp 寻找 Response.Cookies(Forum_sn).path=cookiepath 应该共有三个 替换为： Response.Cookies(Forum_sn).path="/"

 ② 打开login.asp 寻找 Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath 应该共有五个，其中一个是：Response.Cookies(Dvbbs.Forum_sn).path = Dvbbs.cookiepath（等号两旁有空格） 替换为： Response.Cookies(Dvbbs.Forum_sn).path="/"

 ③ 打开logout.asp 寻找 Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath 第27行 应该只有一个 替换为： Response.Cookies(Dvbbs.Forum_sn).path="/"

 至此，修改完毕，即可以达到cookies全站通用的目的了

 3）更改用户登陆是返回地址 目的：让从非bbs目录登陆的用户能够返回登陆页 方法：

 ① 打开login.asp 找到第125行： Dim comeurlname If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then comeurlname="" comeurl="index.asp" Else comeurl=request("comeurl") comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>" End If

 改为

 Dim comeurlname If request.servervariables("http_referer")<>"" and InStr(request.servervariables("http_referer"),MyBbsDir)>0 Then If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then comeurlname="" comeurl="index.asp" Else comeurl=request("comeurl") comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>" End If Else Response.Redirect request.servervariables("http_referer") End If 

 ②打开logout.asp 寻找第36行 Response.Redirect Dvbbs.Forum_Info(11) 改为 If request.servervariables("http_referer")<>"" and InStr(request.servervariables("http_referer"),MyBbsDir)>0 Then Response.Redirect Dvbbs.Forum_Info(11) Else Response.Redirect request.servervariables("http_referer") End If

好了，修改完了

到了这里，你的整个网站就都可以使用论坛的cookies了，而且登陆和退出时都会自动返回你所在的页面

你可以在其他地方取的COOKIES数据为：

 Request.Cookies(MyCookieName)("username") '用户名，对应[dv_user]表的username字段 Request.Cookies(MyCookieName)("password") '用户随机密码，对应[dv_user]表的truepassword字段 Request.Cookies(MyCookieName)("userid") '用户id，对应[dv_user]表的userid字段

主要修改部分就这么多，其他的目录权限设置等等，请自行解决，谢谢。

</TD></TR></TBODY></TABLE>

bbs2006 · 发表于 2004 年 8 月 6 日 18:16:23

有些麻烦，怕有后遗症啊

枫恋 · 发表于 2004 年 10 月 7 日 23:34:10

不敢改啊

账号		自动登录	找回密码
密码			注册