找回密码
 注册
查看: 4522|回复: 8
收起左侧

论坛一些美化的地方

[复制链接]

5312

主题

8317

帖子

1万

积分

管理员

出售国内外虚拟空间

Rank: 10Rank: 10Rank: 10

积分
14660
帖子
8317
精华
67
体力
14660 点
蓝豆
2391 点
注册时间
2007-6-8

终身成就奖LY官方团队会员身份ID卡

发表于 2007-6-13 14:06:00 | 显示全部楼层 |阅读模式
完美在帖子中显示个人信息、登陆次数等的修改方法

首先修改dispbbs.asp 找到

Set Rs=Dvbbs.Execute(\"Select

userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us

erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney

,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN (\"& postuseridlist &\")\")

修改为

Set Rs=Dvbbs.Execute(\"Select

userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,us

erEP,userCP,Userbirthday,User***,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney

,UserTicket,UserAvaSetting,UserIsAva,userlogins From dv_user Where UserID IN (\"& postuseridlist &\")\")

然后后台风格模板 page_dispbbs template.html(0)

查找 文章找到

文章:

后面的省略了。然后替换成

文章:

经验:

魅力:

现金:

金币:

点券:

登陆:

生日:

就ok了

首页个人信息美化修改

动网默认的在首页显示的个人信息比较凌乱,看起来一点都不爽,所以只得自己动手了。

方法如下:

动网默认风格分页面模板(page_index)界面风格管理template.html(0)

找到:

注册: 登录
等级:

金钱: 积分: 魅力:

主题: 文章: 精华: 被删:

改为:

注册:[]

等级:[]

登录:[] 次

金钱:[] 元

积分:[] 分

魅力:[] 点

主题:[] 篇

文章:[] 篇

精华:[] 篇

被删:[] 篇

鼠标指向超链接变换色彩的修改方法

第一步
打开const.asp找到 上面插入一行:

第二步
新建记事本文件,把以下代码拷入,并重新命名记事本文件为:click_js.asp

代码如下:

把签名框起来

在后台动网默认风格分页面模板(page_dispbbs)界面风格管理template.html(0)找到


改为

100%;overflow-x: hidden;\">

这是的签名,帅吧!

红色数是框的宽度。

注册时将“填写详细资料”默认为打开

在:动网默认风格分页面模板(page_login)界面风格管理template.html(13)

找到:

将色的代码删除掉即可。

实现版主等级和发贴等级分离

版主不管发多少贴,等级总是版主,是不是有点乏味?此修改的目的就是让版主以上等级的用户的等级称号按照发贴数对应注册会员组的等级,但是不影响版主的权限。

修改方法:

1、修改savepost.asp。找到

If Not (Rs.Eof And Rs.Bof) Then
If Rs(2)<>3 Then
\'用户等级不按照文章升级,用户为系统或特殊或多属性组
UserClass=Rs(3)
TitlePic=Rs(4)
FoundGrade=True
End If
End If


修改为

If Not (Rs.Eof And Rs.Bof) Then
If Rs(2)<>3 Then
\'用户等级不按照文章升级,用户为系统或特殊或多属性组
\'UserClass=Rs(3)
\'TitlePic=Rs(4)
FoundGrade=True
End If
End If
If FoundGrade Then
\'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID
Set Rs=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&UserPost&\" Order By MinArticle Desc,UserGroupID\")
If Not (Rs.Eof And Rs.Bof) Then
UserClass=Rs(0)
TitlePic=Rs(1)
\'GroupID=Rs(2)
\'FoundGrade=True
End If
End If
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

2、修改login.asp。找到

If Not (rsUser.Eof And rsUser.Bof) Then
If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then
\'用户等级不按照文章升级,用户为系统或特殊或多属性组
\'UserClass=rsUser(3)
\'TitlePic=rsUser(4)
FoundGrade=True
End If
End If

修改为

If Not (rsUser.Eof And rsUser.Bof) Then
If rsUser(2)=1 Or rsUser(2)=2 Or rsUser(2)=4 Or rsUser(2)=5 Then
\'用户等级不按照文章升级,用户为系统或特殊或多属性组
\'UserClass=rsUser(3)
\'TitlePic=rsUser(4)
FoundGrade=True
End If
End If
If FoundGrade Then
\'如果属于系统或特殊或多属性组,则只更新UserClass和TitlePic而不更新GroupID
Set rsUser=Dvbbs.Execute(\"Select Top 1 usertitle,GroupPic,UserGroupID From Dv_UserGroups Where ParentGID=3 And Minarticle<=\"&Article&\" Order By MinArticle Desc,UserGroupID\")
If Not (rsUser.Eof And rsUser.Bof) Then
UserClass=rsUser(0)
TitlePic=rsUser(1)
\'GroupID=rsUser(2)
\'FoundGrade=True
End If
End If
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

3、按照上面的修改以后,当版主重登录的时候,等级称号和图片就开始按照发贴数变化了。但是在帖子用户信息里面,无法知道是不是版主,所以要修改模板page_dipbbs_html(0)。找到

等级:

在前面加上:
职务:论坛版主

职务:总版主

职务:管理员

修改完毕,如果你的论坛还有其它的非注册用户组的会员,参照修改3添加相应的区分。

贴子美化修改for DVBBS7.1SP1

默认风格分页面模板(page_dispbbs)界面风格管理template.html(0)


发贴心情









therwise>therwise>

加强检查注册昵称,防止全数字及简单重复ID注册

在Reg.asp第180行左右找到代码:

If Dvbbs.forum_setting(78)=\"1\" Then

前面加入以下几行代码:

\'===加强检查注册昵称代码==
If IsNumeric(username) then
ErrCodes=ErrCodes+\"
  • 不能使用纯数字ID进行注册,谢谢合作!\"
    End If
    For I=1 to Len(username)
    If left(Username,1)<>mid(Username,i,1) or asc(Left(Username,1))<0 Then I=0:Exit For
    Next
    If I>0 Then
    ErrCodes=ErrCodes+\"
  • 昵称不能全部使用重复字符!\"
    End If
    \'==============

    如果想在检测用户名称的时候就通知用户的话,请在第627左右找到代码:

    If ErrCodes<>\"\" Then Showerr()

    再在前面插入这段检测的代码即可。

    如何去除帖子后面的符合XHML规范的字样

    打开Dv_ubbcode.asp 文件第十行左右可以看到:

    Rem 是否让管理员看到是贴子是否符合XHTML格式

    Const showisxhtml=1

    设置为0 ,

    动网论坛首页去掉一搜、通行证的代码--适合新手和懒人

    代码很简单,COPY到动网INDEX.ASP保存最后面就可以了~~

    !!!!有红色代码会造成帖子列表左下角的“快速搜索”的文本输入框隐藏。请根据自己要求决定。

    7.1sp1精华帖子标题后(上)面加精华图章的修改方法

    在新版的7.1.0sp1中测试后可以用

    后台模板page_dispbbstemplate.html(0)中找到如下代码:

    发贴心情

    在其后面加入以下代码即可:

    top: 340; left:350 ;\">

    注:代码中,图章图片“jhtz.gif”必须是透明背景的 *.gif 格式,其存放位置和鼠标经过图章图片时的提示文字“蓝雨论坛的精华帖子”需自己设置。红色数字为图章显示的位置

    防止微软ANI光标漏洞挂马的临时解决办法

    inc/dv_ubbcode.asp文件

    大约563行,找到

    QUOTE:
    If (style_a<>\"xss\" and InStr(style_b,\"expression\")=0 and InStr(style_a,\"script\")=0) Then

    改为

    QUOTE:
    If (style_a<>\"xss\" and InStr(style_b,\"expression\")=0 and InStr(style_a,\"script\")=0 And style_a<>\"cursor\") Then

    说明:屏蔽style样式中的cursor属性,避免被破坏分子利用

    [此贴子已经被作者于2007-6-13 14:07:38编辑过]
  • 填写详细资料
    出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031

    5312

    主题

    8317

    帖子

    1万

    积分

    管理员

    出售国内外虚拟空间

    Rank: 10Rank: 10Rank: 10

    积分
    14660
    帖子
    8317
    精华
    67
    体力
    14660 点
    蓝豆
    2391 点
    注册时间
    2007-6-8

    终身成就奖LY官方团队会员身份ID卡

     楼主| 发表于 2007-6-16 18:33:00 | 显示全部楼层
    自己看看
    出售国内或美国高性能虚拟空间,高速VPS以及服务器! 同时承接各种类型的网站制作,网站维护,支付宝交易安全放心!    联系QQ:6102031
    懒得打字嘛,点击右侧快捷回复
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    网站公告上一条 /2 下一条

    GMT+8, 2024-4-20 17:24 , Processed in 0.109375 second(s), 24 queries , Gzip On.

    © 2006-2022 Powered by Discuz! X3.4