[实用修改]帖子评价详细信息显示 For Dvbbs7.1SP1 0716

注意：我修改的动网版本是打了0716补丁的DV7.1SP1，版本不对的请自行对照修改！
2

admin_postings.asp
4

查找
6

Dim CanRewardMoney,GiveMoney
7

后面添加,DoWealth,DoUserEP,DoUserCP,title
8

即修改为
9

Dim CanRewardMoney,GiveMoney,DoWealth,DoUserEP,DoUserCP,title
10

查找
12

GiveMoney = Request.FORM("GiveMoney")
13

下面添加
14

DoWealth = Request.FORM("DoWealth")
15

DoUserEP = Request.FORM("DoUserEP")
16

DoUserCP = Request.FORM("DoUserCP")
17

title = Request.FORM("title")
18

If title = "" Then title=Request.FORM("content")
19

If title = "" Then title=Dvbbs.HtmlEncode(Replace(Request.FORM("content"),"|",""))
20

查找
23

If ReAct = 1 Then
24

UpIsagree = GiveMoney&"|0"
25

Else
26

UpIsagree = "0|"&GiveMoney
27

End If
28

Else
29

TempString = Split(TempString,"|")
30

If ReAct = 1 Then
31

TempString(0) = TempString(0) + GiveMoney
32

Else
33

TempString(1) = TempString(1) + GiveMoney
34

End If
35

UpIsagree = TempString(0) &"|"& TempString(1)
36

End If
37

全部替换为
40

'帖子评价数据字段 = 金钱数|经验数|魅力数|金币数|操作人
42

Else
43

TempString = Split(TempString,"|")
44

TempString(0) = clng(TempString(0)) + DoWealth
45

TempString(1) = clng(TempString(1)) + DoUserEP
46

If Ubound(TempString)>1 Then
48

TempString(2) = clng(TempString(2)) + DoUserCP
50

TempString(3) = clng(TempString(3)) + GiveMoney
51

Else
53

End If
55

End If
56

查找 If GiveMoney = 0 Then Dvbbs.AddErrCode(35) : Exit Sub
58

删除或者加'注释掉，可以修正不奖励金币就无法评价的错误
60

查找GiveMoney = Abs(GiveMoney)
62

删除或注释掉，可以修正扣除金币也显示成奖励的错误
64

查找
66

UpGetMoney = UpGetMoney - GiveMoney
68

Sql = "Update Dv_user Set UserMoney=UserMoney-"&GiveMoney&" where UserID="&TopicUserID
69

改成
71

UpGetMoney = UpGetMoney + GiveMoney
74

Sql = "Update Dv_user Set UserMoney=UserMoney+"&GiveMoney&" where UserID="&TopicUserID
75

--------------------------------------------------------------------------------
80

dispbbs.asp
81

查找
83

Next
85

For Each Node In postuserlist.documentElement.SelectNodes("user")
86

Rem 分解userIM数组
87

在Next的上面插入这段
88

'————————————————————————————————————
90

'帖子评价显示开始
91

dim isagree,CNode
92

isagree=Split(Node.selectSingleNode("@isagree").text,"|") '分割isagree字段
93

If UBound(isagree)>4 Then '判断是否是新的评价方式以免
94

数组下标越限
96

Set CNode = XMLDOM.createNode(2,"UserWealth","")
97

Cnode.text=isagree(0)
98

node.attributes.setNamedItem(Cnode)
99

100

Set CNode = XMLDOM.createNode(2,"UserCP","")
101

Cnode.text=isagree(1)
102

node.attributes.setNamedItem(Cnode)
103

104

Set CNode = XMLDOM.createNode(2,"UserCP","")
105

Cnode.text=isagree(2)
106

node.attributes.setNamedItem(Cnode)
107

108

Set CNode = XMLDOM.createNode(2,"GiveMoney","")
109

Cnode.text=isagree(3)
110

node.attributes.setNamedItem(Cnode)
111

112

Set CNode = XMLDOM.createNode(2,"Reason","")
113

Cnode.text=isagree(4)
114

115

node.attributes.setNamedItem(Cnode)
116

Set CNode = XMLDOM.createNode(2,"AdminName","")
117

Cnode.text=isagree(5)
118

node.attributes.setNamedItem(Cnode)
119

End If
120

'帖子评价显示结束
121

'————————————————————————————————————
122

123

124

--------------------------------------------------------------------------------
125

126

127

后台风格模版(page_dispbbs)template.html(1)
128

129

查找并删除下面这段
130

131

<xsl:if test="@isagree != ''and contains(@isagree,'|')">
132

<xsl:if test="substring-after(@isagree,'|') > 0"> <img src="<xsl:value-of select="/post/setting/@picurl" />agree.gif" border="0" alt="好评，获得<xsl:value-of select="substring-after(@isagree,'|')" />个金币奖励" / > </xsl:if>
133

<xsl:if test="substring-before(@isagree,'|') > 0"> <img src="<xsl:value-of select="/post/setting/@picurl" />DisAgree.gif" border="0" alt="差评，扣除<xsl:value-of select="substring-before(@isagree,'|')" />个金币"/> </xsl:if>
134

</xsl:if>
135

136

137

再查找
138

139

<xsl:if test="$postinfo !=''"><div class="info">
140

<xsl:value-of select="$postinfo" disable-output-escaping="yes"/>
141

</div></xsl:if>
142

143

把这段替换为下面这段
144

145

<xsl:if test="@AdminName != ''">
146

<div class="info">
147

<xsl:text disable-output-escaping="yes" >该贴已被</xsl:text>
148

<xsl:value-of select="@AdminName"/>
149

<xsl:if test="@UserWealth > 0">
150

<img src="{/post/setting/@picurl}agree.gif" border="0" title="继续加油哦~！" align="absmiddle"/>
151

152

<xsl:text disable-output-escaping="yes" >奖励现金</xsl:text>
153

<xsl:value-of select="@UserWealth"/>
154

<xsl:text disable-output-escaping="yes" >元</xsl:text>
155

156

</xsl:if>
157

<xsl:if test="@UserWealth < 0">
158

<img src="{/post/setting/@picurl}DisAgree.gif" border="0" title="下次别犯错啦~！" align="absmiddle"/>
159

160

<xsl:text disable-output-escaping="yes" >扣除现金</xsl:text>
161

<xsl:value-of select="-@UserWealth"/>
162

<xsl:text disable-output-escaping="yes" >元</xsl:text>
163

164

</xsl:if>
165

166

<xsl:if test="@UserEP > 0">
167

<img src="{/post/setting/@picurl}agree.gif" border="0" title="继续加油哦~！" align="absmiddle"/>
168

169

<xsl:text disable-output-escaping="yes" >奖励经验</xsl:text>
170

<xsl:value-of select="@UserEP"/>
171

<xsl:text disable-output-escaping="yes" >点</xsl:text>
172

173

</xsl:if>
174

<xsl:if test="@UserEP < 0">
175

<img src="{/post/setting/@picurl}DisAgree.gif" border="0" title="下次别犯错啦~！" align="absmiddle"/>
176

177

<xsl:text disable-output-escaping="yes" >扣除经验</xsl:text>
178

<xsl:value-of select="-@UserEP"/>
179

<xsl:text disable-output-escaping="yes" >点</xsl:text>
180

181

</xsl:if>
182

<xsl:if test="@UserCP > 0">
183

<img src="{/post/setting/@picurl}agree.gif" border="0" title="继续加油哦~！" align="absmiddle"/>
184

185

<xsl:text disable-output-escaping="yes" >奖励魅力</xsl:text>
186

<xsl:value-of select="@UserCP"/>
187

<xsl:text disable-output-escaping="yes" >点</xsl:text>
188

189

</xsl:if>
190

<xsl:if test="@UserCP < 0">
191

<img src="{/post/setting/@picurl}DisAgree.gif" border="0" title="下次别犯错啦~！" align="absmiddle"/>
192

193

<xsl:text disable-output-escaping="yes" >扣除魅力</xsl:text>
194

<xsl:value-of select="-@UserCP"/>
195

<xsl:text disable-output-escaping="yes" >点</xsl:text>
196

197

</xsl:if>
198

<xsl:if test="@GiveMoney > 0">
199

<img src="{/post/setting/@picurl}agree.gif" border="0" title="继续加油哦~！" align="absmiddle"/>
200

201

<xsl:text disable-output-escaping="yes" >奖励金币</xsl:text>
202

<xsl:value-of select="@GiveMoney"/>
203

<xsl:text disable-output-escaping="yes" >元</xsl:text>
204

205

</xsl:if>
206

<xsl:if test="@GiveMoney < 0">
207

<img src="{/post/setting/@picurl}DisAgree.gif" border="0" title="下次别犯错啦~！" align="absmiddle"/>
208

209

<xsl:text disable-output-escaping="yes" >扣除金币</xsl:text>
210

<xsl:value-of select="-@GiveMoney"/>
211

<xsl:text disable-output-escaping="yes" >元</xsl:text>
212

213

</xsl:if>
214

215

<xsl:if test="@UserWealth=0 and @UserEP=0 and @UserCP=0 and @GiveMoney=0">
216

<xsl:text disable-output-escaping="yes" >进行了无分值评价</xsl:text>
217

</xsl:if>
218

219

<xsl:text disable-output-escaping="yes" >　　　　操作理由：</xsl:text><xsl:value-of select="@Reason"/>
220

</div>
221

</xsl:if>
222

223

224

--------------------------------------------------------------------------------
225

226

227

注意：修改之前做的帖子评价都不会显示，只有修改之后的才显示
228

229

演示地址：http://bbs.52tian.com/dispbbs.asp?boardID=24&ID=23216
230

231

Dvbbs7.1 的修改方法请看
232

233

http://bbs.dvbbs.net/dispbbs.asp?BoardID=13&ID=1032635
234

posted on 2006-09-16 03:47 rym1020 阅读(358) 评论(0) 收藏举报

刷新页面返回顶部

[实用修改]帖子评价详细信息显示 For Dvbbs7.1SP1 0716

导航

公告