数字人整合动网论坛的方法
发布时间:2009-05-29 18:23:00
在网络上看到的数字人整合动网论坛的方法都非常不全,站长们都是抄人家的,也不说明可不可用,提供下载的文件也不能下载.现在我提供一些信息。
一、整合全站方法-动网论坛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字段 主要修改部分就这么多。
猜你喜欢
- 1、800*600下,网页宽度保持在778以内,就不会出现水平滚动条,高度则视版面和内容决定。2、1024*768下,网页宽度保持在1002
- 仿google的asp分页代码index.asp(文件1)<%@LANGUAGE="VBSCRIPT" CODEP
- 你知道(X)HTML中最多余的标签中是什么吗?在我看来就是这个<a>标签,不错,就是每个网站使用最多的超级链接标签<a&g
- 一套javascript摇奖程序,随机6+1选号码,类似游戏彩票摇奖效果,实时滚动。截图:<style>.inp{ width:
- 先来看看什么是书签查找: 当优化器所选择的非聚簇索引只包含查询请求的一部分字段时,就需要一个查找(lookup)来检索其他字段来满足请求。对
- 在web2.0的站中用户互动性是很强的,例如用户留言我们可能放开img标签,允许用户外链其他站点的图片,那么我们就需要解决图片尺寸过大所带来
- 这段时间服务器崩溃2次,一直没有找到原因,今天看到论坛发出的错误信息邮件,想起可能是mysql的默认连接数引起的问题,一查果然,老天,默认
- 分页设计我们经常会见到,这里有30个分页设计,以供大家欣赏欣赏借鉴。
- 为新项目写的一份规范文档, 分享给大家. 我想前端开发过程中, 无论是团队开发, 还是单兵做站, 有一份开发文档做规范, 对开发工作都是很有
- 50个常用sql语句 Student(S#,Sname,Sage,Ssex) 学生表 Course(C#,Cname,T#) 课程表 SC(
- 一个表单焦点效果javascript函数,可以用在美化表单界面,挺好看的。function validForms(){  
- 我在程序首端添加了On Error Resume Next ,以更好地处理执行时引起的错误,但在数据库访问中引出了麻烦,因为我在一个查询操作
- 测试需求 为了更好的测试你的ASP程序,你首先需要决定你的程序将来需要面对多大的压力。简单的说,压力或负载可以分解成以下数字:· 最低用户数
- 1、将css与javascript全部用下边的方法分离到外部文件中去。<link rel="stylesheet"
- 最简单的:<textarea name="A" cols="45" rows="2&
- 爱如风过 问:js如何能知道浏览者计算机或者浏览器使用的语言是繁体还是简体?如题,我想用jS检测到浏览者使用的是繁体还是简体中文,以便设置页
- 先声明一下,这是本人在某个项目中用到的,本人自己写的,如有雷同纯属巧合。同时也欢迎高人指正。这种星级的投票效果很常见,但是目前线上大多都是通
- 影响用户访问的最大部分是前端的页面。网站的划分一般为二:前端和后台。我们可以理解成后台是用来实现网站的功能的,比如:实现用户注册,用户能够为
- 如果要得到返回值,需要用Command的方法。 首先说明,返回值有两种。一种是在存储过程中直接return一个值,就象C和VB的函数返回值那
- 知识点: 函数 replicate 以下代码是实现如下功能: 代码如下:declare @sql varchar(200), --需填充的字