本次修改的文件共有三个 1) inc/Dv_ClsMain.asp 2) login.asp 3) logout.asp3、修改方法
1)定义为通用名称 打开inc/Dv_ClsMain.asp 这一步的主要目的是将论坛的COOKIE名称定义为通用名称
①在本文件的开头定义变量 dim mybbsdir MyBbsDir = "/club/"
②寻找Forum_sn 'Forum_sn为各cookies名称的前缀,应该有两个,它只是将两个连接起来再赋值给了Forum_sn,可去掉第一个,再改为Forum_sn = "andy" '自己喜欢用什么都可
2)更改Cookies目录这一步的主要目的将论坛的cookies目录定义为全局目录,即根目录"/"
①打开inc/Dv_ClsMain.asp 分别寻找 Response.Cookies(Forum_sn).path 和 Response.Cookies(Dvbbs.Forum_sn).path 将右侧的值均替换为"/" ,例: 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 寻找comeurlname,定位到 Dim comeurlname:在它下面的第一个if语句前再加一个if判断 改为 Dim comeurlname If request.servervariables("http_referer")<>"" and InStr(request.servervariables("http_referer"),MyBbsDir)>0 Then (原Dim comeurlname下面的12代码即第一个if语句所包含的代码) Else Response.Redirect request.servervariables("http_referer") End If
②打开logout.asp 寻找Dvbbs.Forum_Info(11) 对控制语句进行if判断 改为 If request.servervariables("http_referer")<>"" and InStr(request.servervariables("http_referer"),MyBbsDir)>0 Then (原script控制的三行代码) Else response.write"" response.write"setTimeout(""window.location='"&request.servervariables("http_referer")&"'"",1000);" response.write"" End If
好了,修改完了到了这里,你的整个网站就都可以使用论坛的cookies了,而且登陆和退出时都会自动返回你所在的页面你可以在其他地方取的COOKIES数据为: Request.Cookies("andy")("username") '用户名,对应[dv_user]表的username字段;此处andy就是我们开始设置的Forum_sn ,Request.Cookies("andy")("password") '用户随机密码,对应[dv_user]表的truepassword字段 Request.Cookies("andy")("userid") '用户id,对应[dv_user]表的userid字段