| 让动网论坛7版用户登陆全站共享的修改方法 |
|
| 添加日期：2006-11-6 9:45:55 [大 中 小] |
|
'==============声明及说明==================
1、本方法适用于动网论坛 Dvbbs ver7.0及其以上版本。
2、本方法依存于动网论坛 Dvbbs ver7.0，修改仅限于个人使用，商业使用者请联系动网开发小组以获得授权。
3、本方法修改者：中国维修网-惊云（动网论坛ID：中维网）。
4、本方法修改使用为个人自愿行为，本人不对任何人自行修改带来的任何结果及后果承担任何责任。
'==============声明结束=====================
修改步骤：
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字段
主要修改部分就这么多，其他的目录权限设置等等，请自行解决，谢谢。 |
|
| 出处：论坛转载 作者：中国维修网-惊云 点击： | |
|
