论坛会员等级、图片分性别显示方法 for dv 8.2

蓝雨

不想修改代码的，可以下载附件，文件是原版8.2的模板的，其他版本没测试过！

解压 修改男女等级区分文件，上传至空间
如果有误，可以上传 备份：男女等级区分原文件

一、修改login.asp文件
找到UserClass=rsUser(0)，大概是734行，将UserClass=rsUser(0)修改为：
Dim SexUserClass
SexUserClass=Split(rsUser(0),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rsUser(0)
Else
UserClass=SexUserClass(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@usersex\").text)
End If
二、修改reg.asp文件
找到UserClass=rs(0)，大概是422行，将UserClass=rs(0)修改为：
Dim SexUserClass
SexUserClass=Split(rs(0),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rs(0)
Else
UserClass=SexUserClass(Sex)
End If
三、修改savepost.asp文件
找到UserClass=rs(0)，大概是1316（1324）行，将UserClass=rs(0)修改为：
Dim SexUserClass
SexUserClass=Split(rs(0),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rs(0)
Else
UserClass=SexUserClass(Dvbbs.UserSession.documentElement.selectSingleNode(\"userinfo/@usersex\").text)
End If
四、修改admin/group.asp文件
（1）找到390行UserTitle=Replace(Request.Form(\"usertitle\")(i),\"\'\",\"\")下面添加：
Dim SexUserClass
SexUserClass=Split(Request.Form(\"usertitle\")(i),\"|\")
（2）找到396行将
If Rs(\"UserTitle\")<>Trim(UserTitle) Or Rs(\"GroupPic\")<>Trim(TitlePic) Then
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&UserTitle&\"\',TitlePic=\'\"&TitlePic&\"\' Where UserGroupID=\"&UserTitleID)
End If
修改为：
If Rs(\"UserTitle\")<>Trim(UserTitle) Or Rs(\"GroupPic\")<>Trim(TitlePic) Then
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&UserTitle&\"\',TitlePic=\'\"&TitlePic&\"\' Where UserGroupID=\"&UserTitleID)
Else
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&SexUserClass(0)&\"\',TitlePic=\'\"&TitlePic&\"\' Where usersex=0 and UserGroupID=\"&UserTitleID)
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&SexUserClass(1)&\"\',TitlePic=\'\"&TitlePic&\"\' Where usersex=1 and UserGroupID=\"&UserTitleID)
End If
End If
五、修改admin/user.asp文件
（1）找到665行将
if not (rs.eof and rs.bof) then
userclass=rs(\"usertitle\")
usertitlepic=rs(\"grouppic\")
end if
Dvbbs.Execute(\"update [dv_user] set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&userclass&\"\',titlepic=\'\"&usertitlepic&\"\' where userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")
修改为：
if not (rs.eof and rs.bof) then
Dim SexUserClass
SexUserClass=Split(rs(\"usertitle\"),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=rs(\"usertitle\")
End If
usertitlepic=rs(\"grouppic\")
end if
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
UserClass=replace(UserClass,\"|\",\"\")
Dvbbs.Execute(\"update [dv_user] set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&userclass&\"\',titlepic=\'\"&usertitlepic&\"\' where userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")
Else
Dvbbs.Execute(\"update [dv_user] set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&SexUserClass(0)&\"\',titlepic=\'\"&usertitlepic&\"\' where usersex=0 and userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")
Dvbbs.Execute(\"update [dv_user] set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&SexUserClass(1)&\"\',titlepic=\'\"&usertitlepic&\"\' where usersex=1 and userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")
End If
（2）找到1128行将
iUserClass = Rs(\"UserTitle\")
修改为：
Dim SexUserClass
SexUserClass=Split(Rs(\"UserTitle\"),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
iUserClass=Rs(\"UserTitle\")
Else
iUserClass=SexUserClass(request.form(\"sex\"))
End If
六、修改admin/update.asp文件
（1）找到994行将
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&Rs(\"UserTitle\")&\"\',TitlePic=\'\"&Rs(\"GroupPic\")&\"\',UserGroupID=\"&Rs(\"UserGroupID\")&\" Where (Not UserGroupID In (\"&SQL&\")) And (UserID>=\"&Request.Form(\"beginid\")&\" And UserID<=\"&Request.Form(\"endid\")&\") And (UserPost<\"&oldMinArticle&\" And UserPost>=\"&Rs(\"MinArticle\")&\" )\")
修改为：
Dim SexUserClass
SexUserClass=Split(rs(\"UserTitle\"),\"|\")
If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&replace(Rs(\"UserTitle\"),\"|\",\"\")&\"\',TitlePic=\'\"&Rs(\"GroupPic\")&\"\',UserGroupID=\"&Rs(\"UserGroupID\")&\" Where (Not UserGroupID In (\"&SQL&\")) And (UserID>=\"&Request.Form(\"beginid\")&\" And UserID<=\"&Request.Form(\"endid\")&\") And (UserPost<\"&oldMinArticle&\" And UserPost>=\"&Rs(\"MinArticle\")&\" )\")
Else
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&SexUserClass(0)&\"\',TitlePic=\'\"&Rs(\"GroupPic\")&\"\',UserGroupID=\"&Rs(\"UserGroupID\")&\" Where usersex=0 and (Not UserGroupID In (\"&SQL&\")) And (UserID>=\"&Request.Form(\"beginid\")&\" And UserID<=\"&Request.Form(\"endid\")&\") And (UserPost<\"&oldMinArticle&\" And UserPost>=\"&Rs(\"MinArticle\")&\" )\")
Dvbbs.Execute(\"Update [Dv_User] Set UserClass=\'\"&SexUserClass(1)&\"\',TitlePic=\'\"&Rs(\"GroupPic\")&\"\',UserGroupID=\"&Rs(\"UserGroupID\")&\" Where usersex=1 And (Not UserGroupID In (\"&SQL&\")) And (UserID>=\"&Request.Form(\"beginid\")&\" And UserID<=\"&Request.Form(\"endid\")&\") And (UserPost<\"&oldMinArticle&\" And UserPost>=\"&Rs(\"MinArticle\")&\" )\")
End If
七、后台用户组（等级）设置规则：如果你按照上述方法做了修改你可以登陆后台找到用户管理——论坛用户组(等级)管理修改注册用户组(等级)，修改方法是：女用户等级名称|男用户等级名称。比如：
小丫头|小野人
野丫头|野人
土妹子|土人
小丸子|咕噜
魔法丸子|大咕噜
超级丸子|咕噜队长
美少女|初级守卫
银河美少女|守卫者
宇宙美少女|守卫队长
小魔女|斗士
超级魔女|大斗士
精灵|斗士长
小公主|骑士
豌豆公主|青铜骑士
白雪公主|白银骑士
月影公主|黄金骑士
百变公主|圣骑士
天使|长老
女神|大长老
雅典娜|守护神