张振峰 » guestbook

将动易SiteWeaver留言板由讨论区模式改为留言板模式

阵风 — Wed, 16 Jan 2008 06:02:27 +0000

PowerEasy SiteWeaver CMS 6.5 Build 0115的留言板首页默认显示方式为讨论区模式，如果想改为留言板模式，只需修改系统的默认值即可。
修改方法：修改Include/PowerEasy.GuestBook.asp中的函数ShowGueststyle()，将默认方式由 1 改为 2。

''================================================= ''函数名：ShowGueststyle() ''作用：获取查看方式 ''参数：无 ''================================================= Private Function GuestStyle() ShowGStyle = Request.Cookies("ShowGStyle") If ShowGStyle = "" Or Not IsNumeric(ShowGStyle) Then ShowGStyle = 2 Else ShowGStyle = Int(ShowGStyle) End If GuestStyle = ShowGStyle End Function

修复SiteWeaver™ CMS 6.5 Build 0115留言板bug

阵风 — Wed, 16 Jan 2008 04:14:19 +0000

PowerEasy? SiteWeaver? CMS 6.5 Build 0115后台设置留言板允许游客发布,但游客发布留言是提示:对不起，您尚未通过邮件验证，不能发表留言！
修复办法：修改GuestBook/Guest_Write.asp，将顶部代码改为

If GuestBook_EnableVisitor = False Then If GuestBook_EnableVisitor = False And UserLogined = False Then FoundErr = True ErrMsg = ErrMsg & "
" & XmlText("Guest", "ShowWrite/Notpermission", "您尚未登录，请登录后再进行您的操作！") & "
" Else If GroupType < 1 Then FoundErr = True ErrMsg = ErrMsg & "" & XmlText("Guest", "SaveGuest/Err8", "对不起，您尚未通过邮件验证，不能发表留言！") & " " ElseIf GroupType = 1 Then FoundErr = True ErrMsg = ErrMsg & "" & XmlText("Guest", "SaveGuest/Err9", "对不起，您尚未通过管理员审核，不能发表留言！") & " " End If End If End If

即增加一个判断语句——粗体部分代码。

修改留言频道每行显示留言类别数量

阵风 — Mon, 14 Jan 2008 02:07:14 +0000

默认情况下，动易留言频道栏目导航处每行只显示10个留言类别（第一行9个）。有时留言类别名称较短，每行仅显示10个的话行尾空白较多，影响美观。

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

如果是动易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 & “” & rsGKind(“KindName”) & “”
strGKind = strGKind & ” | ”
i = i + 1
If i Mod 10 = 0 Then
strGKind = strGKind & “
”
End If
rsGKind.MoveNext
Loop
End If
rsGKind.Close
Set rsGKind = Nothing
”If GuestBook_IsAssignSort = False Then
”strGKind = strGKind & “” & XmlText(“xxxxx”, “xxxxxx”, “不属任何类别”) & “ |”
”End If
GetGKindList = strGKind
End Function