修改 SiteWeave
将动易默认文档Index
如何修改每行显示的留言数量呢？
如果是动易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
