论坛会员等级、图片分性别显示方法 for dv 8.2
<P>不想修改代码的，可以下载附件，文件是原版8.2的模板的，其他版本没测试过！</P><P><FONT face=Verdana>解压 修改男女等级区分文件，上传至空间 <BR>如果有误，可以上传 备份：男女等级区分原文件</FONT></P><FONT size=2></FONT>
<P><BR>一、修改login.asp文件<BR>找到UserClass=rsUser(0)，大概是734行，将UserClass=rsUser(0)修改为：<BR><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(rsUser(0),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>UserClass=rsUser(0)<BR>Else<BR>UserClass=SexUserClass(Dvbbs.UserSession.documentElement.selectSingleNode(\"</FONT><FONT color=#ff0000>userinfo/@usersex\").text</FONT></FONT><FONT size=2><FONT color=#ff0000>)<BR>End If</FONT><BR>二、修改reg.asp文件<BR>找到UserClass=rs(0)，大概是422行，将UserClass=rs(0)修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(rs(0),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>UserClass=rs(0)<BR>Else<BR>UserClass=SexUserClass(Sex)<BR>End If</FONT><BR>三、修改savepost.asp文件<BR>找到UserClass=rs(0)，大概是1316（1324）行，将UserClass=rs(0)修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(rs(0),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>UserClass=rs(0)<BR>Else<BR>UserClass=SexUserClass(Dvbbs.UserSession.documentElement.selectSingleNode(\"</FONT><FONT color=#ff0000>userinfo/@usersex\").text</FONT></FONT><FONT size=2><FONT color=#ff0000>)<BR>End If</FONT><BR>四、修改admin/group.asp文件<BR>（1）找到390行UserTitle=Replace(Request.Form(\"usertitle\")(i),\"\'\",\"\")下面添加：<BR></FONT><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(Request.Form(\"usertitle\")(i),\"|\")</FONT><BR>（2）找到396行将<BR>If Rs(\"UserTitle\")<>Trim(UserTitle) Or Rs(\"GroupPic\")<>Trim(TitlePic) Then<BR>Dvbbs.Execute(\"Update Set UserClass=\'\"&UserTitle&\"\',TitlePic=\'\"&TitlePic&\"\' Where UserGroupID=\"&UserTitleID)<BR>End If<BR>修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>If Rs(\"UserTitle\")<>Trim(UserTitle) Or Rs(\"GroupPic\")<>Trim(TitlePic) Then<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then<BR>Dvbbs.Execute(\"Update Set UserClass=\'\"&UserTitle&\"\',TitlePic=\'\"&TitlePic&\"\' Where UserGroupID=\"&UserTitleID)<BR>Else<BR>Dvbbs.Execute(\"Update Set UserClass=\'\"&SexUserClass(0)&\"\',TitlePic=\'\"&TitlePic&\"\' Where usersex=0 and UserGroupID=\"&UserTitleID)<BR>Dvbbs.Execute(\"Update Set UserClass=\'\"&SexUserClass(1)&\"\',TitlePic=\'\"&TitlePic&\"\' Where usersex=1 and UserGroupID=\"&UserTitleID)<BR>End If<BR>End If<BR></FONT>五、修改admin/user.asp文件<BR>（1）找到665行将<BR>if not (rs.eof and rs.bof) then<BR>userclass=rs(\"usertitle\")<BR>usertitlepic=rs(\"grouppic\")<BR>end if<BR>Dvbbs.Execute(\"update set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&userclass&\"\',titlepic=\'\"&usertitlepic&\"\' where userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")<BR>修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>if not (rs.eof and rs.bof) then<BR>Dim SexUserClass<BR>SexUserClass=Split(rs(\"usertitle\"),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>UserClass=rs(\"usertitle\")<BR>End If<BR>usertitlepic=rs(\"grouppic\")<BR>end if<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>UserClass=replace(UserClass,\"|\",\"\")<BR>Dvbbs.Execute(\"update set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&userclass&\"\',titlepic=\'\"&usertitlepic&\"\' where userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")<BR>Else<BR>Dvbbs.Execute(\"update set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&SexUserClass(0)&\"\',titlepic=\'\"&usertitlepic&\"\' where usersex=0 and userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")<BR>Dvbbs.Execute(\"update set UserGroupID=\"&replace(request(\"selusergroup\"),\"\'\",\"\")&\",userclass=\'\"&SexUserClass(1)&\"\',titlepic=\'\"&usertitlepic&\"\' where usersex=1 and userid in (\"&replace(request(\"userid\"),\"\'\",\"\")&\")\")<BR>End If<BR></FONT>（2）找到1128行将<BR>iUserClass = Rs(\"UserTitle\")<BR>修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(Rs(\"UserTitle\"),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then <BR>iUserClass=Rs(\"UserTitle\")<BR>Else<BR>iUserClass=SexUserClass(request.form(\"sex\"))<BR>End If</FONT><BR>六、修改admin/update.asp文件<BR>（1）找到994行将<BR>Dvbbs.Execute(\"Update 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\")&\" )\")<BR>修改为：<BR></FONT><FONT size=2><FONT color=#ff0000>Dim SexUserClass<BR>SexUserClass=Split(rs(\"UserTitle\"),\"|\")<BR>If Not IsArray(SexUserClass) or Ubound(SexUserClass)<>1 Then<BR>Dvbbs.Execute(\"Update 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\")&\" )\")<BR>Else <BR>Dvbbs.Execute(\"Update 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\")&\" )\")<BR>Dvbbs.Execute(\"Update 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\")&\" )\")<BR>End If<BR></FONT>七、后台用户组（等级）设置规则：如果你按照上述方法做了修改你可以登陆后台找到用户管理——论坛用户组(等级)管理修改注册用户组(等级)，修改方法是：<STRONG><FONT color=#ff0000>女用户等级名称|男用户等级名称</FONT></STRONG>。比如：<BR>小丫头|小野人<BR>野丫头|野人<BR>土妹子|土人<BR>小丸子|咕噜<BR>魔法丸子|大咕噜<BR>超级丸子|咕噜队长<BR>美少女|初级守卫<BR>银河美少女|守卫者<BR>宇宙美少女|守卫队长<BR>小魔女|斗士<BR>超级魔女|大斗士<BR>精灵|斗士长<BR>小公主|骑士<BR>豌豆公主|青铜骑士<BR>白雪公主|白银骑士<BR>月影公主|黄金骑士<BR>百变公主|圣骑士<BR>天使|长老<BR>女神|大长老<BR>雅典娜|守护神</FONT></P>
<P><FONT size=2></FONT></P>
<P></P>
页:
[1]