如何修改每行显示的留言数量呢？

如果是动易2005版、2006版等组件版本，恐怕只能增加自定义标签来实现了，需要替换多处。如果是PowerEasy® SiteWeaver™ CMS（动易 SiteWeaver™ 内容管理系统），那就简单了，只需修改Include/PowerEasy.GuestBook.asp中的函数GetGKindList()即可。该函数代码如下：

”=================================================
”函数名：GetGKindList()
”作  用：横向显示留言类别
”参  数：无
”=================================================
Private Function GetGKindList()
Dim rsGKind, sqlGKind, strGKind, i
sqlGKind = “select * from PE_Guestkind order by OrderID”
Set rsGKind = Conn.Execute(sqlGKind)
If rsGKind.BOF And rsGKind.EOF Then
strGKind = “| ” & XmlText(“Guest”, “KindList/Nofound”, “没有任何类别”)
Else
i = 1
strGKind = “| ”
Do While Not rsGKind.EOF
strGKind = strGKind & “<a href=”index.asp?KindID=” & rsGKind(“KindID”) & “”>” & rsGKind(“KindName”) & “</a>”
strGKind = strGKind & ” | ”
i = i + 1
If i Mod 10 = 0 Then
strGKind = strGKind & “<br>”
End If
rsGKind.MoveNext
Loop
End If
rsGKind.Close
Set rsGKind = Nothing
”If GuestBook_IsAssignSort = False Then
”strGKind = strGKind & “<a href=”index.asp?KindID=0”>” & XmlText(“xxxxx”, “xxxxxx”, “不属任何类别”) & “</a> |”
”End If
GetGKindList = strGKind
End Function

If GuestBook_EnableVisitor = False And UserLogined = False Then
FoundErr = True
ErrMsg = ErrMsg & “<li>” & XmlText(“Guest”, “ShowWrite/Notpermission”, “您尚未登录，请登录后再进行您的操作！”) & “</li>”
End If
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
Response.End
End If

增加以下代码

If  UserLogined = True And GroupID>6 Then
Response.Write(“您所在的会员组不能留言”)
Response.End
End If

GroupID为会员组id，后台会员组管理中可以看到。默认情况下，未验证会员、待审批会员的GroupID分别为7、8。 条件GroupID>6可以根据自己需要修改，上面if、end间的代码自己也可自行修改。