"
dim UserIM,sTemp,i
Set ClUbb= New Cls_UbbCode
sqlComment = rsComment.GetRows(-1)
rsComment.close:set rsComment=Nothing
sTemp=""
For i=0 to Ubound(sqlComment,2)
sTemp=sTemp & ""&Cl.GetUserGroupName(sqlComment(3,i))&"『"
if sqlComment(3,i)=5 then
sTemp=sTemp & "" & sqlComment(4,i) & ""
else
sTemp=sTemp & "" & sqlComment(4,i) & ""
end if
sTemp=sTemp & "』于" & sqlComment(6,i) & "发表评论:"
if Cl.UserLevel=1 then
if sqlComment(12,i)=True then
sTemp=sTemp & " [取消]"
else
sTemp=sTemp & " [审核]"
end if
'sTemp=sTemp & " [修改]"
sTemp=sTemp & " [删除]"
end if
sTemp=sTemp & " | 评分:"&sqlComment(7,i)&"分 | "
sTemp=sTemp & ""
sTemp=sTemp & " " & ClUbb.UbbCode(sqlComment(8,i)) & " "
if sqlComment(9,i)<>"" then
sTemp=sTemp & " ★ 管理员『" & sqlComment(10,i) & "』于 " & sqlComment(11,i) & " 回复道: " & ClUbb.UbbCode(sqlComment(9,i)) & " "
end if
sTemp=sTemp & "
| "
Next
Set ClUbb=Nothing
sTemp=sTemp & " "
strHTML=strHTML & sTemp &" |
"
strHTML=strHTML & "