数字人整合动网论坛的方法

　　在网络上看到的数字人整合动网论坛的方法都非常不全,站长们都是抄人家的,也不说明可不可用,提供下载的文件也不能下载.现在我提供一些信息。

　　一、整合全站方法-动网论坛7版用户cookie及登陆全站共享的修改方法
　　让动网论坛7版用户cookie及登陆全站共享的修改方法

以下内容为程序代码:
让动网论坛7版用户登陆全站共享的修改方法
''''==============声明及说明==================
1、本方法适用于动网论坛 Dvbbs ver7.0及其以上版本。
2、本方法依存于动网论坛 Dvbbs ver7.0，修改仅限于个人使用，商业使用者请联系动网开发小组以获得授权。
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
找到第28行(增加上两行后就是第31行)，本行原文是：
CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
改为
CacheName = "ilovecsw"
找到第31行(增加上两行后就是第34行)，本行原文是：
Forum_sn = CacheName:Vipuser = False:Boardmaster = False
改为
Forum_sn = "ilovecsw"
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("ilovecsw")("username") ''''用户名，对应[dv_user]表的username字段
Request.Cookies("ilovecsw")("password") ''''用户随机密码，对应[dv_user]表的truepassword字段
Request.Cookies("ilovecsw")("userid") ''''用户id，对应[dv_user]表的userid字段 主要修改部分就这么多。