dim fenyefu:fenyefu="【pagebreak】"

打开：common/function.asp找到：Function Alias(id)
再其上面添加：
Function Aliasx(id, fen)
dim cname,ccate,chtml,ccateID,ccateExec,cnames,ctype,cc
set cc=conn.execute("select top 1 log_CateID,log_cname,log_ctype from blog_Content where log_ID="&id)

ccateID = cc(0)
cname = cc(1)
ctype = cc(2)

set ccateExec=conn.execute("select Cate_Part from blog_Category where cate_ID="&ccateID)

If not ccateExec.EOF and not ccateExec.bof Then
ccate = ccateExec(0).value
end if

if ccate="" or ccate=empty or ccate=null or len(ccate)=0 then
ccate="article/"
else
ccate="article/"&ccate&"/"
end if
if len(cname)<1 or cname="" or cname=empty or cname=null then
cnames=trim(id)
else
cnames=cname
end if

if ctype="0" then
chtml="htm"
else
chtml="html"
end if

chtml="."&chtml
set ccateExec = nothing
set cc = nothing
Aliasx=ccate&cnames&fen&chtml
End Function
[pagebreak]
打开:blogedit.asp
找到：

select log_cname,log_ctype

改成：

select log_cname,log_ctype,log_Content

找到：

">

下面插入：

">

打开control/c_article.asp

conn.execute("Delete * from blog_Content where log_ID="&Log_Dele(i))

在上面插入：
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent,rollnum,log_View
Set log_View = conn.Execute("Select log_Content,log_CommNums,log_edittype FROM blog_Content Where log_ID=" & Log_Dele(i))
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu)>0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles server.MapPath(Aliasx(Log_Dele(i),"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&Log_Dele(i)&"_"&(rollnum)&".asp")
next
End If
set log_View = Nothing
'删除静态内分页文件——by：情留メ蚊子 End[/code]
打开control/f_control.asp

Conn.Execute("Delete * FROM blog_Comment Where blog_ID="&LogID)

再上面插入
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent,rollnum,log_View
Set log_View = conn.Execute("Select log_Content,log_edittype FROM blog_Content Where log_ID=" &LogID)
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles server.MapPath(Aliasx(LogID(i),"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&LogID(i)&"_"&(rollnum)&".asp")
next
End If
'删除静态内分页文件——by：情留メ蚊子 end[/code]
[pagebreak]
打开：class/cls_logAction.asp 找第二个到

'输出日志到文件

再上面添加
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim E, f
f = Request.Form("oldMessage")
If logEditType = 0 Then fenyefu = "

"
If InStr(f,fenyefu) > 0 Then
For e = 1 to ubound(split(f,fenyefu))
DeleteFiles Server.MapPath(Aliasx(LogID,"_"&(e)))
DeleteFiles Server.MapPath("post/"&LogID&"_"&(e)&".asp")
Next
End If
'删除静态内分页文件——by：情留メ蚊子 End[/code]
找到

Conn.Execute("Delete * FROM blog_Content Where log_ID="&id)

再上面添加
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent, rollnum
If weblog("log_EditType") = 0 Then fenyefu = "

"
If InStr(weblog("log_Content"),fenyefu) > 0 Then
arrcontent = split(weblog("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles Server.MapPath(Aliasx(LogID,"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&LogID&"_"&(rollnum)&".asp")
Next
End If
'删除静态内分页文件——by：情留メ蚊子 End[/code]
找到并删除：
[code] '读取日志模块
LoadTemplate1 = LoadFromFile("Template/Article.asp")

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到：

Temp1 = Replace(Temp1, "<$Cate_icon$>", getCate.cate_icon)

再上面插入
[code]Dim arrcontent, rollnum, pagelist, howpage
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
pagelist=""
For rollnum = 1 to ubound(arrcontent)
pagelist = pagelist & "["&(rollnum+1)&"] "
howpage = "

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到：

SaveArticle = SaveToFile(Temp1, "post/" & LogID & ".asp")

改成：
[code]If rollnum = 0 then
SaveArticle = SaveToFile(Temp1, "post/" & LogID & ".asp")
Else
SaveArticle = SaveToFile(Temp1, "post/" & LogID &"_"&(rollnum) & ".asp")
End If
Next[/code]
找到：
[code] '读取日志模块
LoadTemplate1 = LoadFromFile("Template/static.htm")

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'静态页面特有的属性
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
改成：
[code] '静态页面特有的属性
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))[/code]
[pagebreak]
找到：

If log_View("log_comorder") Then comDesc = "Desc" Else comDesc = "Asc" End If

在下面添加：
[code]Dim arrcontent, rollnum, pagelist, howpage
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
pagelist=""
For rollnum = 1 to ubound(arrcontent)
pagelist = pagelist & "["&(rollnum+1)&"] "
howpage = "

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到(2个)

UnCheckStr(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

改成：

UnCheckStr(UBBCode(HtmlEncode(arrcontent(rollnum)), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1)))&howpage)

找到(2个)

UnCheckStr(log_View("log_Content")))

改成：

UnCheckStr(arrcontent(rollnum))&howpage)

找到：

SaveArticle = SaveToFile(Temp1, Alias(LogID))

改成：
[code]If rollnum = 0 then
SaveArticle = SaveToFile(Temp1, Alias(LogID))
Else
SaveArticle = SaveToFile(Temp1, Aliasx(LogID,"_"&(rollnum)))
End If
Next[/code]
静态分页结束！

你可以看看相关的东东:

• 【PJ修改】文章来源添加“来自网络” (0)
  众所周知，PJBlog默认的文章来源只有一项“本站原创”，为防止转载来的文章引起版权纠纷，我们可以增...
• 把PJBlog换成全动态—自动分页！ (0)
  把PJBlog换成全动态了。因为有比较长的文章发表，早就想换了，但是根据论坛的大人修改了好几次都...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...
• 301重定向 (2)
  今天起床想把昨天没做完的事搞定了，就是301重定向的问题了。阿士一直烦恼怎么才能使通过【smile....

[code]

[/code]

把TopBlog.asp文件放到根目录
tabs文件夹放到skins目录下面
替换随机日志插件
替换热门日志插件

点我下载

你可以看看相关的东东:

• 【PJ修改】digg功能（基于jquery) (0)
  打开：Template\static.htm 、 Template\Article.asp 找到： ...
• 浏览器可显示原图片的JS (36)
          在逛Opera...
• 给你的wordpress文章添加缩略图 (31)
      创建日志缩略图我想很多wper都有用过这个方法，很多主题都自带这个功...
• 折腾一下-带头像显示的最新评论代码 (35)
      博客不折腾不行啊，用现在这个主题的时候本来想弄个头像缓存来着，不过在...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...
• 301重定向 (2)
  今天起床想把昨天没做完的事搞定了，就是301重定向的问题了。阿士一直烦恼怎么才能使通过【smile....
• ASP打包解包工具代码(xml) (1)
  网站备份通常是整站备份比较好，通过空间商的备份还是不太保险啊。原始人事件大家都知道，那么要如何备份呢...

步骤：

一、首先养成好习惯，备份我们接下来要修改的文件：blogpost.asp和blogedit.asp

二、接下来打开blogpost.asp文件，找到:

把它改成：

[code]

[/code]

三、继续，打开blogedit.asp，找到：

" />

把它改成：

[code]

[/code]

这样就OK了。

你可以看看相关的东东:

• 【PJ修改】文章内分页 (0)
  一、静态（测试可用） 打开：conn.asp 在 最后一个%>前加入 dim fenyefu:fen...
• NetBox（网络盒子）的使用说明、方法、教程 (0)
  NetBox 是北京一家公司自主研制的一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，它...
• PJBlog侧边栏左右对换 (0)
  改一下皮肤文件夹里的layout.css相应段落代码 找到 /*---工具条--*/ /*---主内...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...

下面是修改方法，贴出来吧！这个方法只支持全动态，支持PJ2 3，要改的朋友看清楚了。

打开class/cls_article.asp，找到：
[code] If log_ViewArr(10, 0) = 1 Then
response.Write (highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8, 0)), Mid(log_ViewArr(11, 0), 1, 1), Mid(log_ViewArr(11, 0), 2, 1), Mid(log_ViewArr(11, 0), 3, 1), Mid(log_ViewArr(11, 0), 4, 1), Mid(log_ViewArr(11, 0), 5, 1))), keyword))
Else
response.Write (highlight(UnCheckStr(log_ViewArr(8, 0)), keyword))
End If[/code]

替换成：
[code] dim Content
If log_ViewArr(10, 0) = 1 Then
content=highlight(UnCheckStr(UBBCode(HtmlEncode(log_ViewArr(8, 0)), Mid(log_ViewArr(11, 0), 1, 1), Mid(log_ViewArr(11, 0), 2, 1), Mid(log_ViewArr(11, 0), 3, 1), Mid(log_ViewArr(11, 0), 4, 1), Mid(log_ViewArr(11, 0), 5, 1))), keyword)
ContentPagination(Content)
Else
content=highlight(UnCheckStr(log_ViewArr(8, 0)), keyword)
ContentPagination(Content)
End If[/code]
[pagebreak]
在最后加入一下：
[code]
<%
Const maxPagesize=1000 '设置分页字数

Function InsertPageBreak(strText)
Dim strPagebreak,s,ss
Dim i,IsCount,c,iCount,strTemp,Temp_String,Temp_Array
strPagebreak="[hiweb_break]"
s=strText
If Len(s) InsertPageBreak=s
End If
s=Replace(s, strPagebreak, "")
s=Replace(s, "&nbsp;", "<&nbsp;>")
s=Replace(s, "&gt;", "<&gt;>")
s=Replace(s, "&lt;", "<&lt;>")
s=Replace(s, "&quot;", "<&quot;>")
s=Replace(s, "&#39;", "<&#39;>")
If s<>"" and maxPagesize<>0 and InStr(1,s,strPagebreak)=0 then
IsCount=True
Temp_String=""
For i= 1 To Len(s)
c=Mid(s,i,1)
If c="<" Then
IsCount=False
ElseIf c=">" Then
IsCount=True
Else
If IsCount=True Then
If Abs(Asc(c))>255 Then
iCount=iCount+2
Else
iCount=iCount+1
End If
If iCount>=maxPagesize And i strTemp=Left(s,i)
If CheckPagination(strTemp,"table|a|b>|i>|strong|div|span") then
Temp_String=Temp_String & Trim(CStr(i)) & ","
iCount=0
End If
End If
End If
End If
Next
If Len(Temp_String)>1 Then Temp_String=Left(Temp_String,Len(Temp_String)-1)
Temp_Array=Split(Temp_String,",")
For i = UBound(Temp_Array) To LBound(Temp_Array) Step -1
ss = Mid(s,Temp_Array(i)+1)
If Len(ss) > 380 Then
s=Left(s,Temp_Array(i)) & strPagebreak & ss
Else
s=Left(s,Temp_Array(i)) & ss
End If
Next
End If
s=Replace(s, "<&nbsp;>", "&nbsp;")
s=Replace(s, "<&gt;>", "&gt;")
s=Replace(s, "<&lt;>", "&lt;")
s=Replace(s, "<&quot;>", "&quot;")
s=Replace(s, "<&#39;>", "&#39;")
InsertPageBreak=s
End Function

Function CheckPagination(strTemp,strFind)
Dim i,n,m_ingBeginNum,m_intEndNum
Dim m_strBegin,m_strEnd,FindArray
strTemp=LCase(strTemp)
strFind=LCase(strFind)
If strTemp<>"" and strFind<>"" then
FindArray=split(strFind,"|")
For i = 0 to Ubound(FindArray)
m_strBegin="<"&FindArray(i)
m_strEnd =" n=0
do while instr(n+1,strTemp,m_strBegin)<>0
n=instr(n+1,strTemp,m_strBegin)
m_ingBeginNum=m_ingBeginNum+1
Loop
n=0
do while instr(n+1,strTemp,m_strEnd)<>0
n=instr(n+1,strTemp,m_strEnd)
m_intEndNum=m_intEndNum+1
Loop
If m_intEndNum=m_ingBeginNum then
CheckPagination=True
Else
CheckPagination=False
Exit Function
End If
Next
Else
CheckPagination=False
End If
End Function

Function ContentPagination(hiwebstr)
Dim ContentLen, maxperpage, Paginate
Dim arrContent, strContent, i,CurrentPage,ArticleContent,UserArticle,IsURLRewrite
Dim m_strFileUrl,m_strFileExt,ArticleID
ArticleID=Request.QueryString("ID")
strContent = InsertPageBreak(hiwebstr)
ContentLen = Len(strContent)
CurrentPage=Request.QueryString("Page")
If CurrentPage="" Then CurrentPage=0
If InStr(strContent, "[hiweb_break]") <= 0 Then
ArticleContent = "

"
Else
arrContent = Split(strContent, "[hiweb_break]")
Paginate = UBound(arrContent) + 1
If CurrentPage = 0 Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
End If
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Paginate Then CurrentPage = Paginate
strContent = "

"
Else
ArticleContent = ArticleContent & "