我手动修了下，但是c_system_lib.asp文件的差别较大。最后生成的目录静态页没有数据。
plus版本的c_system_lib.asp那几行代码是
Public Function ExportByCache(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
Dim strType
Dim i,j,s,t
Dim intAllPage
Dim intTagsID
Call CheckParameter(intPage,"int",1)
Call CheckParameter(intCateId,"int",Empty)
Call CheckParameter(intAuthorId,"int",Empty)
Call CheckParameter(dtmYearMonth,"dtm",Empty)
i=InStr(1,TagsList,vbTab & strTagsName & vbVerticalTab,vbBinaryCompare)
If i>0 Then
j=Left(TagsList,i-1)
i=InStrRev(j,vbTab)
intTagsID=Right(j,Len(j)-i)
Call CheckParameter(intTagsID,"int",Empty)
End If
If dtmYearMonth<>"" Then
strType="Date" & CStr(Year(dtmYearMonth) & "-" & Month(dtmYearMonth)) & "Page" & CStr(intPage) & "["
s="Date" & CStr(Year(dtmYearMonth) & "-" & Month(dtmYearMonth)) & "Page"
Title=Year(dtmYearMonth) & " " & ZVA_Month(Month(dtmYearMonth))
Application.Lock
If Year(dtmYearMonth)=Year(Now) And Month(dtmYearMonth)=Month(Now) Then
Template_Calendar=Application(ZC_BLOG_CLSID & "CACHE_INCLUDE_CALENDAR")
Else
Template_Calendar="<script language=""JavaScript"" src="""&ZC_BLOG_HOST&"c_html_calendar.asp?date="&dtmYearMonth&""" type=""text/javascript""></script>"
End If
Application.UnLock
ElseIf intTagsID>0 Then
strType="Tags" & CStr(intTagsID) & "Page" & CStr(intPage) & "["
s="Tags" & CStr(intTagsID) & "Page"
Title=strTagsName
ElseIf intCateID>0 Then
strType="Cate" & CStr(intCateId) & "Page" & CStr(intPage) & "["
s="Cate" & CStr(intCateId) & "Page"
i=InStr(1,CateList,vbTab & intCateId & vbTab,vbBinaryCompare)
If i>0 Then
i=i+Len(vbTab & intCateId & vbTab)
j=InStr(i,CateList,vbVerticalTab,vbBinaryCompare)
t=Mid(CateList,i,j-i)
Title=t
End If
ElseIf intAuthorID>0 Then
strType="Auth" & CStr(intAuthorId) & "Page" & CStr(intPage) & "["
s="Auth" & CStr(intAuthorId) & "Page"
i=InStr(1,AuthList,vbTab & intAuthorId & vbTab,vbBinaryCompare)
If i>0 Then
i=i+Len(vbTab & intAuthorId & vbTab)
j=InStr(i,AuthList,vbVerticalTab,vbBinaryCompare)
t=Mid(AuthList,i,j-i)
Title=t
End If
Else
strType="All" & "Page" & CStr(intPage) & "["
s="All" & "Page" '此行估计是对应原1609行的修改，以此为类推，觉得有点问题
Title=ZC_BLOG_SUBTITLE
End If
i=InStrRev(AllList,s)
If i>0 Then
j=InStr(i,AllList,"[",vbBinaryCompare)
s=Mid(AllList,i+Len(s),j-i-Len(s))
intAllPage=CInt(s)
End If
i=InStr(1,AllList,strType,vbBinaryCompare)
If i>0 Then
i=Len(strType)+i
j=InStr(i,AllList,"]",vbBinaryCompare)
s=Mid(AllList,i,j-i)
aryArticle=Split(s,";")
End If
Dim objArticle
If IsArray(aryArticle) Then
Redim aryArticleList(UBound(aryArticle))
For i=LBound(aryArticle) To UBound(aryArticle)-1
Set objArticle = New TArticle
objArticle.ID=aryArticle(i)
If objArticle.LoadCache Then
aryArticleList(i)=objArticle.Template_Article_Multi
End if
Set objArticle = Nothing
Next
Template_Article_Multi=Join(aryArticleList)
End If
If IsEmpty(Template_Calendar) Or Len(Template_Calendar)=0 Then
Application.Lock
Template_Calendar=Application(ZC_BLOG_CLSID & "CACHE_INCLUDE_CALENDAR")
Application.UnLock
End If
Call ExportBar(intPage,intAllPage,intCateId,intAuthorId,dtmYearMonth,strTagsName)
ExportByCache=True
End Function
修改的是：
1579行修改为：
s=ZC_BLOG_HOST & "catalog.asp?"& t &"page=1"
1598行修改为：
s=ZC_BLOG_HOST & "catalog.asp?"& t &"page="& i
1609行修改为：
s=ZC_BLOG_HOST & "catalog.asp?"& t &"page="& intAllPage
