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

如果是动易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

下面举例说明我的修改方法（1、查找：通过DreamWeaver在全站范围内的源代码搜索 2、修改：语言包、系统文件——多为admin和include两个文件夹中的文件）。首先先提醒一下：修改内容要有记录，以便查错、恢复和升级。

例如修改标签{$ShowChannel}，首先通过DreamWeaver在全站范围内的源代码搜索ShowChannel，发现Include/PowerEasy.Common.Front.asp中有如下代码

If InStr(strHtml, “{$ShowChannel}”) > 0 Then strHtml = Replace(strHtml, “{$ShowChannel}”, GetChannelList(0))

这说明标签{$ShowChannel}取决于GetChannelList()。再搜索GetChannelList，发现Include/PowerEasy.Common.Front.asp中有Function GetChannelList(NumNewLine)，已经找到了。

下面就是如何修改。
大部分情况下，http://www.zhangzhenfeng.com/ 与 http://www.zhangzhenfeng.com/index.asp 的 Google PageRank 是不同的。据说，在google 看来，目录的权重比文件大。默认情况下，动易的标签 {$ShowChannel} 输出时，网站首页、频道首页的地址都是{$InstallDir}index.htm、{$InstallDir}Article/index.asp 的形式，如何才能修改为 {$InstallDir}、{$InstallDir}Article/ 的形式呢？详情请参考http://www.zhangzhenfeng.com/showchannel-getchannelList/

其中Function GetChannelList(NumNewLine)中的XmlText(“BaseText”, “FirstPage”, “网站首页”) 表明调用的是语言包文件Language/Gb2312.xml的内容，在<BaseText>与</BaseText>中的<FirstPage>、</FirstPage>之间的内容，默认值为”网站首页”，可自行修改。

另外，有时修改系统默认值可以在后台直接通过浏览器查看编译后的html代码帮助查找。例如想修改添加软件时默认外部地址“下载地址1|http://”，在后台添加时右击查看源代码，会发现这取决于JavaScript函数function AddUrl()。利用这一点在“admin_soft.asp”第839、840行找到如下代码

Response.Write “function AddUrl(){” & vbCrLf
Response.Write “  var thisurl=”” & XmlText(“Soft”, “DownloadUrlTip”, “下载地址”) & “”+(document.myform.DownloadUrl.length+1)+”|http://”; ” & vbCrLf

也就找到了修改的地方了，修改就很容易了。修改语言包可以替换“下载地址1|http://”中的“下载地址”，删除+(document.myform.DownloadUrl.length+1)可以删除其中的数字1，还可以修改“http://”为更接近你的软件下载地址的代码如http://down.free8.net.cn/Files/

补充一个源代码中的注释：

”**************************************************
”函数名：XmlText
”作  用：从语言包中读取指定节点的值
”参  数：iBigNode —- 大节点
”        iSmallNode —- 小节点
”        DefChar —- 默认值
”返回值：语言包中指定节点的值
”**************************************************
Function XmlText(ByVal iBigNode, ByVal iSmallNode, ByVal DefChar)

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间的代码自己也可自行修改。

7-Zip 主要特征:

• 更新了算法来加大 7z 格式 的压缩比
• 7-Zip 是基于 GNU LGPL 之下发布的软件  
• 支持格式：    
      
  • 压缩及解压缩：7z、ZIP、GZIP、BZIP2 和 TAR
  • 仅解压缩：RAR、CAB、ISO、ARJ、LZH、CHM、WIM、Z、CPIO、RPM、DEB 和 NSIS
• 对于 ZIP 及 GZIP 格式，7-Zip 能提供比使用 PKZip 及 WinZip 高 2-10% 的压缩比
• 7z 格式支持创建自释放(SFX)压缩档案
• 集成 Windows 外壳扩展
• 强大的的文件管理
• 强大的命令行版本
• 支持 FAR Manager 插件
• 支持 63 种语言

通常使用 7-Zip 的 7z 格式能比使用 zip 格式的压缩档案小 30-70%。并且使用 7-Zip 创建的 zip 格式比大多数其它压缩软件创建的都小 2-10%。