上一篇
下一篇
为pj3添加内分页
作者:情留メ蚊子 日期:2008-11-16
pjbloger一直想要的功能，正好有时间所以做了一做，支持全动态，全静态 暂时不支持半静态。
演示，本文
没有修改过程序的可以覆盖：
以下静态化修改：
打开：connt.asp 在 最后一个%>前加入其中[pagebreak]是分页符
打开：control/c_article.asp 找到
在上面插入：
打开class/cls_logAction.asp 找到：
在上面插入：
演示，本文
没有修改过程序的可以覆盖：
以下静态化修改：
打开：connt.asp 在 最后一个%>前加入
复制内容到剪贴板
程序代码
程序代码dim fenyefu:fenyefu="[pagebreak]"
打开：control/c_article.asp 找到
复制内容到剪贴板 程序代码
程序代码conn.execute("Delete * from blog_Content where log_ID="&Log_Dele(i))
在上面插入：
复制内容到剪贴板 程序代码
程序代码 '删除静态内分页文件——by：情留メ蚊子 Start
Set log_View = conn.Execute("Select * FROM blog_Content Where log_ID=" & Log_Dele(i))
dim arrcontent,rollnum,log_View
If InStr(log_View("log_Content"),fenyefu)>0 Then
arrcontent=split(log_View("log_Content"),fenyefu)
for rollnum=1 to ubound(arrcontent)
if fso.FileExists(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm")) then
fso.DeleteFile(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm"))
end if
next
end if
'删除静态内分页文件——by：情留メ蚊子 end
Set log_View = conn.Execute("Select * FROM blog_Content Where log_ID=" & Log_Dele(i))
dim arrcontent,rollnum,log_View
If InStr(log_View("log_Content"),fenyefu)>0 Then
arrcontent=split(log_View("log_Content"),fenyefu)
for rollnum=1 to ubound(arrcontent)
if fso.FileExists(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm")) then
fso.DeleteFile(server.MapPath("article/"&Log_Dele(i) &"_"&(rollnum)&".htm"))
end if
next
end if
'删除静态内分页文件——by：情留メ蚊子 end
打开class/cls_logAction.asp 找到：
复制内容到剪贴板 程序代码
程序代码Conn.Execute("Delete * FROM blog_Content Where log_ID="&id)
在上面插入：
复制内容到剪贴板 程序代码
程序代码 '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent,rollnum
arrcontent=split(weblog("log_Content"),fenyefu)
If InStr(weblog("log_Content"),fenyefu)>0 Then
for rollnum=1 to ubound(arrcontent)
DeleteFiles Server.MapPath("article/"&logiD &"_"&(rollnum)&".htm")
next
end if
'删除静态内分页文件——by：情留メ蚊子 end
dim arrcontent,rollnum
arrcontent=split(weblog("log_Content"),fenyefu)
If InStr(weblog("log_Content"),fenyefu)>0 Then
for rollnum=1 to ubound(arrcontent)
DeleteFiles Server.MapPath("article/"&logiD &"_"&(rollnum)&".htm")
next
end if
'删除静态内分页文件——by：情留メ蚊子 end
文章来自: 
引用通告: 
Tags: 
相关日志:
评论: 3 | 引用: 0 | 查看次数: 3692
回复
百斯特
[2009-08-01 10:29:27 | 
| 
| 取消审核]你那个静态分页程序，我下载覆盖后出现了错误。 Object doesn't support this property or method: 'logMeta' /blogedit.asp, 第 272 行
情留メ蚊子 于 2009-08-01 10:45:37 回复
你的是什么版本，用这个版本覆盖。。
PJBlog3 v3.1.6.227能用吗？我直接替换到PJBlog3 v3.1.6.227版后发表不了日志。。
情留メ蚊子 于 2009-07-31 10:21:26 回复
任何一个版本手动修改都可以用！
我下载文件直接盖原文件后不能自动分页，不知何故？希望PJ尽快整合就好了！
情留メ蚊子 于 2008-11-27 00:07 AM 回复
这个是手动分页的。。。需要插入分页符的
发表评论
