|
荣誉勋章修改设置
3、修改论坛文件“dispbbs.asp”：
----------------------------------------------------------------------------------------------------------
找到：
Dim AnnounceID, ReplyID, Replyid_a, AnnounceID_a, RootID_a
在下边添加
Dim ExMedal,ExMedalDataList
----------------------------------------------------------------------------------------------------------
找到：
G_UserItemQuery = "userid,username,useremail,userpost,usertopic,usersign,usersex,userface,userwidth,userheight,joindate,lastlogin,userlogins,lockuser,userclass,userwealth,userep,usercp,userpower,userdel,userisbest,usertitle,userhidden,usermoney,userticket,titlepic,usergroupid,userim,useremail" '查询用户的字段列表
在“useremail”后边添加：
,ex_medal
----------------------------------------------------------------------------------------------------------
找到：
LoadUserListData
在下边添加：
GetExMedal
----------------------------------------------------------------------------------------------------------
找到：
G_UserList = Rs.GetRows(-1)
在下边添加：
ExMedalDataList = ""
For I=0 To UBound(G_UserList,2)
If Not IsNull(G_UserList(29,I)) And Not IsEmpty(G_UserList(29,I)) And Not Len(G_UserList(29,I))=0 Then
If Len(ExMedalDataList)=0 Then
ExMedalDataList=G_UserList(29,I)
Else
ExMedalDataList=ExMedalDataList & "," & G_UserList(29,I)
End If
End If
Next
----------------------------------------------------------------------------------------------------------
找到：
Sub LoadAndParseVote(sTemplate)
在上边添加：
Sub GetExMedal()
Dim Rs
If IsNull(ExMedalDataList) Or IsEmpty(ExMedalDataList) Or Len(ExMedalDataList)=0 Then Exit Sub
Set Rs=Dvbbs.Execute("Select id,medalname,medaltext,medalpic,medalnum,addtime From [Ex_MedalData] Where id In ("& ExMedalDataList &")")
If Not (Rs.Eof And Rs.Bof) Then ExMedal=Rs.GetRows(-1)
End Sub
----------------------------------------------------------------------------------------------------------
找到：
Dim i, p, s, s2, bShowAll
替换为：
Dim i,j, p, s, s2, bShowAll
----------------------------------------------------------------------------------------------------------
找到：
TPL_Echo G_UserList(27, i-1)(6)
在下边添加：
Case "usermedal"
s="无":s2=G_UserList(29, i-1)
If Not IsNull(s2) And Not IsEmpty(s2) And Not Len(s2)=0 And IsArray(ExMedal) Then
s="":s2=Split(s2,",")
For I=0 To Ubound(s2)
For J=0 To UBound(ExMedal,2)
If Int(s2(I))=Int(ExMedal(0,J)) Then s=s&"<img src=""plus/ex_medal/pic/"&ExMedal(3,J)&""" alt="""&ExMedal(1,J)&"
"&ExMedal(2,J)&""" style=""width:20px;height:35px;margin-right:3px;margin-bottom:5px;""/>"
Next
Next
End If
TPL_Echo s
----------------------------------------------------------------------------------------------------------
4、进入论坛后台-风格界面-风格界面模板总管理-分页面模板(page_dispbbs)-界面风格-template.html(0)：
----------------------------------------------------------------------------------------------------------
找到：
<span>等级：{$user.userclass}</span>
在上边添加：
<span style="width:125px;">勋章：<br/>{$user.usermedal}</span>
----------------------------------------------------------------------------------------------------------
其它：修改模板“<span style="width:125px;">”中的125可以调整行勋章数量。 |
狗仔卡
楼主