pjblog首页及全站日志纯静态插件v1.1[6月7日更新]

作者:小戒日期:2007-05-27

字体大小: 小中大

整站静态FOR PJBLOG V2.6
作者：戒聊
网址：http://www.muzili.com
已在干净PJBLOG V2.6上测试成功。演示：http://www.muzili.com/pjblog，用户名：admin 密码：admin88
转载请注明来源，谢谢合作。
6月7日更新：优化查看次数调用代码，减小压力，运行更快。修改文件：cls_article.asp和cls_default.asp及压缩包中的comm.asp和view.asp。
*********************************************

改动的东西比较多，请做好备份。

解压，直接上传到BLOG目录。

.makehtml.asp（生成首页静态页面）第七行：

复制内容到剪贴板

程序代码

index.htm

为首页静态文件名，按你的需要修改。按本文章修改完所有过程后运行文件后可删除。

2.makehtml_cate.asp（生成所有日志页面）第三十行：

复制内容到剪贴板

程序代码

http://www.muzili.com

，修改成你的BLOG地址。按本文章修改完所有过程后运行文件后可删除。

3.打开common\library.asp文件，在第二行开始添加以下代码（同样将其中的网址改成你的）：

复制内容到剪贴板

程序代码

function blog_makehtml(log_id)
    dim strUrl,id,FileName,FilePath,Do_Url,Html_Temp
    Do_Url = "http://www.muzili.com"
    if log_id<0 then
        FileName = "index.htm"
        Do_Url = Do_Url&"/default.asp"
    else
        FileName = "article"&log_id&".html"
        Do_Url = Do_Url&"/article.asp?id="&log_id
    end if
    FilePath = Server.MapPath("/")&"\"&FileName
    Html_Temp = Html_Temp&FilePath
    strUrl = Do_Url
    dim objXmlHttp
    set objXmlHttp = Server.Cr�ateObject("Microsoft.XMLHTTP")
    objXmlHttp.open "GET",strUrl,false
    objXmlHttp.send()
    Dim binFileData
    binFileData = objXmlHttp.responseBody
    Dim objAdoStream
    set objAdoStream = Server.Cr�ateObject("ADODB.Stream")
    objAdoStream.Type =
    objAdoStream.Open()
    objAdoStream.Write(binFileData)
    objAdoStream.SaveToFile FilePath,2
    objAdoStream.Close()
end function

找到：

复制内容到剪贴板

程序代码

'用户面板处理
    Dim user_code
    user_code=userPanel
    side_html_default=replace(side_html_default,"$user_code$",user_code)
    side_html=replace(side_html,"$user_code$",user_code)

'归档面板处理
    Dim archive_code
    archive_code=archive()
    side_html_default=replace(side_html_default,"$archive_code$",archive_code)
    side_html=replace(side_html,"$archive_code$",archive_code)

'树形分类处理
    CategoryList()
    side_html_default=replace(side_html_default,"$Category_code$",Category_code)
    side_html=replace(side_html,"$Category_code$",Category_code)

'显示统计信息
    side_html_default=info_code(side_html_default)
    side_html=info_code(side_html)

'处理最新评论内容
    Dim Comment_code
    Comment_code=NewComment()
    side_html_default=replace(side_html_default,"$comment_code$",Comment_code)
    side_html=replace(side_html,"$comment_code$",Comment_code)

'处理友情链接内容
    Dim Link_Code
    Link_Code=Bloglinks()
    side_html_default=replace(side_html_default,"$Link_Code$",Link_Code)
    side_html=replace(side_html,"$Link_Code$",Link_Code)

修改成：

复制内容到剪贴板

程序代码

'用户面板处理
    side_html_default=replace(side_html_default,"$user_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""userPanel.asp""></SCRIPT>")
    side_html=replace(side_html,"$user_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""userPanel.asp""></SCRIPT>")

'归档面板处理
    side_html_default=replace(side_html_default,"$archive_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/archive.js"" charset=""gb232""></SCRIPT>")
    side_html=replace(side_html,"$archive_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/archive.js"" charset=""gb232""></SCRIPT>")

'树形分类处理
    side_html_default=replace(side_html_default,"$Category_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/Category_s.js"" charset=""gb232""></SCRIPT>")
    side_html=replace(side_html,"$Category_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/Category_s.js"" charset=""gb232""></SCRIPT>")

'显示统计信息
    side_html_default=info_code(side_html_default)
    side_html=info_code(side_html)

'处理最新评论内容
    side_html_default=replace(side_html_default,"$comment_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/NewComment.js"" charset=""gb232""></SCRIPT>")
    side_html=replace(side_html,"$comment_code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/NewComment.js"" charset=""gb232""></SCRIPT>")

'处理友情链接内容
    side_html_default=replace(side_html_default,"$Link_Code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/bloglinks.js"" charset=""gb232""></SCRIPT>")
    side_html=replace(side_html,"$Link_Code$","<SCRIPT LANGUAGE=""JavaScript"" SRC=""js/bloglinks.js"" charset=""gb232""></SCRIPT>")

[1] [2] [3] [4] [5] [6] [7] 下一页

[本日志由小戒于 2008-05-27 08:24 AM 编辑]
收藏到QQ书签 文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: PJBLOG PJBLOG 静态静态插件插件日志日志

评论: 7 | 引用: 0 | 查看次数: -

回复 Jared [2007-07-09 11:39 PM | ]
你好！
可以把修改好的原版用邮箱发给我吗?官网上面这个下载有木马，我下了好多次都不行，谢谢了。
shenshu#188.com

非病毒，纯属误报。关掉再解压就行了。生成HTML时的代码被当成病毒了。
回复小戒 [2007-06-07 10:16 PM | ]
回SKYII.CN,如果是新站可以直接覆盖。但我本地测试的新站删掉了。在服务器上。呆会放上去。
回复 skyii.cn [2007-06-07 10:08 PM | ]
可以直接提供修改的文件吗?
回复小戒 [2007-06-05 05:17 PM | ]
蔷薇，你的网站我打不开。
回复蔷薇 [2007-06-05 04:35 PM | ]
你好啊，我完全用了你的方法已经修改过了，但是还是不行呢，为什么啊，
请看看我的地址依然是动态的，http://rose.0start.cn
回复小戒 [2007-05-28 09:28 AM | ]
推荐你用Macromedia Dreamweaver 8
回复 he [2007-05-28 08:55 AM | ]
你的博客不错，请问，用什么来编辑asp文件，

发表评论

昵　称:

密　码: 游客发言不需要密码.

邮　箱: 博主回复后，系统将发送通知邮件到您的邮箱，可不填.

网　址:

内　容:

正在加载编辑器...

验证码:

选　项: 禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.

昵　称:
密　码:	游客发言不需要密码.
邮　箱:	博主回复后，系统将发送通知邮件到您的邮箱，可不填.
网　址:
内　容:	正在加载编辑器...
验证码:
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.

pjblog首页及全站日志纯静态插件v1.1[6月7日更新]

作者:小戒 日期:2007-05-27

作者:小戒日期:2007-05-27