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(生成首页静态页面)第七行:为首页静态文件名,按你的需要修改。按本文章修改完所有过程后运行文件后可删除。
2.makehtml_cate.asp(生成所有日志页面)第三十行:,修改成你的BLOG地址。按本文章修改完所有过程后运行文件后可删除。
3.打开common\library.asp文件,在第二行开始添加以下代码(同样将其中的网址改成你的):
找到:
修改成:
4
作者:戒聊
网址: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
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.CrateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CrateObject("ADODB.Stream")
objAdoStream.Type =
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
end function
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.CrateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CrateObject("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)
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>")
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>")
4
评论: 7 | 引用: 0 | 查看次数: -
回SKYII.CN,如果是新站可以直接覆盖。但我本地测试的新站删掉了。在服务器上。呆会放上去。
可以直接提供修改的文件吗?
蔷薇,你的网站我打不开。
你好啊,我完全用了你的方法已经修改过了,但是还是不行呢,为什么啊,
请看看我的地址依然是动态的,http://rose.0start.cn
请看看我的地址依然是动态的,http://rose.0start.cn
推荐你用Macromedia Dreamweaver 8
你的博客不错,请问,用什么来编辑asp文件, 
发表评论
上一篇
下一篇

文章来自:
Tags:
回复

可以把修改好的原版用邮箱发给我吗?官网上面这个下载有木马,我下了好多次都不行,谢谢了。
shenshu#188.com
非病毒,纯属误报。关掉再解压就行了。生成HTML时的代码被当成病毒了。