首先，编辑admin/admin_Login.asp，找到第125行的如下代码

onFocus=’this.select();’

在后面添加如下代码。

value=’admin’

接下来，如法炮制，在第129、132、134行相应位置分别添加如下代码：

value=’admin888′

value=’PowerEasy2008

value=’caoger’

最后，编辑inc/CheckCode.asp第29行，修改为

Session(“CheckCode”) = “caoger”

上面两处值不必是caoger，但必须保持一致。

这样就修改完成了，下次访问Admin/Admin_login.asp，只需要按下回车键或者鼠标点击登录按钮即可进入管理后台了。懒得修改的用户，可以直接下载这两个文件覆盖即可。

修改后的Admin/Admin_login.asp和inc/CheckCode.asp压缩包下载：http://www.zhangzhenfeng.com/wp-content/uploads/2011/03/admin-login-checkcode.rar

修复这一问题的办法很简单，修改admin/Admin_CommonCode_Content.asp，修改Sub SaveVote()，确保每个rsVote.Update语句之前都有如下的一行内容(需要修改两处)。

rsVote("VoteNum") = 0

系统调用显示投票总数VoteNum时会自动更新这项数据，所以修改网站调查后VoteNum=0也不会影响显示效果。

对于栏目页不生成HTML的情况，直接修改频道目录下的ShowClass.asp即可。以文章频道为例，打开ShowClass.asp找到如下内容（大概是第54行）：

strTemplate = GetTemplate(ChannelID, 2, TemplateID)

在其下方添加如下代码：


dim ZZFpage,ZZFtitle
ZZFpage = PE_CLng(Trim(Request("page")))
IF ZZFpage>1 Then
ZZFtitle="（第" & Trim(Request("page")) & "页）</title>"
strTemplate = Replace(strTemplate,"</title>",ZZFtitle)
End IF

再打开栏目页，就会发现：除栏目首页外，各分页标题后面都会增加类似”第8页“这样的内容了。

但是，为了进一步进行搜索引擎优化，可能会采用“栏目名-频道名-网站名”这样的标题，将栏目名称放在前面，网站名称放在后面，这样的话标题尾部增加“第8页”似乎不太合适。这种情况下，我们可以根据网站模板有针对性地进行修改。可以将模板中网站标题相关代码修改为类似下面的内容（带有栏目标签{$ClassName}）：

<title>{$ClassName}{$ZZF_CurrentPage}_{$ChannelName}_{$SiteName}</title>

接下来需要ShowClass.asp的增加代码改成下面的内容：


dim ZZFpage,ZZFtitle
ZZFpage = PE_CLng(Trim(Request("page")))
IF ZZFpage>1 Then
ZZFtitle="（第" & Trim(Request("page")) & "页）"
strTemplate = Replace(strTemplate,"{$ZZF_CurrentPage}",ZZFtitle)
Else
strTemplate = Replace(strTemplate,"{$ZZF_CurrentPage}","")
End IF

至于栏目页生成HTML的情况，思路差不多，不过修改的文件不是频道目录下的ShowClass.asp，而是后台管理目录下的Admin_CreateCommon.asp中的Sub CreateClass()部分。对于这个Sub过程的代码，从后往前查找到第一个“Call WriteToFile(tmpFileName, strHtml)”，在其前面增加一行，代码如下

strHtml = Replace(strHtml,"{$ZZF_CurrentPage}","(第" & CurrentPage & "页)")

再找到第三处，在其前面增加一行如下内容的代码即可。

strHtml = Replace(strHtml,"{$ZZF_CurrentPage}","")

当然，这需要栏目模板中标题部分含有{$ClassName}{$ZZF_CurrentPage}

如果不想替换，在文章内容中用 {$ZZFdomain} 取代对应的网站地址如 http://www.zhangzhenfeng.com 。然后修改Include/PowerEasy.Article.asp中的函数GetArticleContent，在“End Function”前添加一行代码

GetArticleContent =  PE_Replace(GetArticleContent , "{$ZZFdomain}", "http://www.zhangzhenfeng.com")

以PowerEasy® SiteWeaver™ CMS 6.5 Build 0128为例，修改Include/PowerEasy.Article.asp，将Function GetArticleList中的如下代码

If ShowType = 2 Or Cols > 1 Then
        strInfoList = strInfoList & "</tr></table>"

替换为

    If ShowType = 2 Or Cols > 1 Then
      ZZF_remainder=Cols-(iCount Mod Cols)
      If ZZF_remainder<Cols
             If iCount Mod 2 = 0 Then
                CssName = CssName1
             Else
               CssName = CssName2
             End If
            Do while ZZF_remainder>0
                strInfoList = strInfoList & "<td valign='top' class='" & CssName & "'>&nbsp;</td>"  
                ZZF_remainder=ZZF_remainder-1
            Loop
     End If
        strInfoList = strInfoList & "</tr></table>"

当然，要在前面补充定义变量 ZZF_remainder。

昨天写本文时，忘了考虑ZZF_remainder等于Cols的情况，导致求余为零时出错，刚才又添加了判断

      If ZZF_remainder<Cols
******************
     End If

（更新于2008-02-01 17:34）。

在开源版中，可以去掉这个限制。以PowerEasy? SiteWeaver? CMS 6.5 Build 0128为例，修改Admin/Admin_CollectionManage.asp，删除其中的如下代码即可。


                         Else
                            FoundErr = True
                            ErrMsg = ErrMsg & "<li>只发现一个有效链接？：" & NewsArrayCode & "</li>"



''=================================================
''函数名：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



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

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

For iTemp = 0 To UBound(arrDownloadUrls)

在其后增加一行，

if iTemp>0 then strUrls = strUrls & “<br />”

则软件有多个下载地址时会自动换行。

软件栏目设置——栏目选项中，“是否启用此栏目的防止复制、防盗链功能”的选项无效，始终启用防盗链功能，内容页不显示真实下载地址。

修复办法：修改include/powereasy.soft.asp，在大约1354行找到如下代码，将其中的注释符(行首的单引号)去掉即可。

”If EnableProtect = True Or ClassPurview > 0 Or rsSoft(“InfoPoint”) > 0 Then
strUrls = strUrls & “<a href=”” & ChannelUrl_ASPFile & “/ShowSoftDown.asp?UrlID=” & iTemp + 1 & “&SoftID=” & rsSoft(“SoftID”) & “” target=”_blank”>” & arrUrls(0) & “</a>”
”Else
”    If Left(arrUrls(1), 1) <> “/” And InStr(arrUrls(1), “://”) <= 0 Then
”        strUrls = strUrls & “<a href=”” & ChannelUrl & “/” & UploadDir & “/” & arrUrls(1) & “” target=”_blank”>” & arrUrls(0) & “</a>”
”    Else
”        strUrls = strUrls & “<a href=”” & GetFirstSeparatorToEnd(arrDownloadUrls(iTemp), “|”) & “” target=”_blank”>” & arrUrls(0) & “</a>”
”    End If
”End If

>

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

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