上一篇
下一篇
Lightbox For PJBlog2 v2.7
作者:bluer 日期:2007-12-12
发现PJblog出了新补丁，于是升级了至现在的PJBlog2 v2.7 Build 05，并为图片添加了Lightbox效果，很漂亮。PJ论坛虽然有Lightbox的教程，但是是2.6版本的覆盖包，下载后查看了一下，所要做的修改很简单。
首先是header.asp，在</head>之前插入以下代码：
程序代码
程序代码<script type="text/javascript" src="Lightbox/prototype.js"></script>
<script type="text/javascript" src="Lightbox/scriptaculous.js?load=effects"></script>
<script type="text/javascript" src="Lightbox/lightbox.js"></script>
<link rel="stylesheet" href="Lightbox/lightbox.css" type="text/css" media="screen" />
<script type="text/javascript" src="Lightbox/scriptaculous.js?load=effects"></script>
<script type="text/javascript" src="Lightbox/lightbox.js"></script>
<link rel="stylesheet" href="Lightbox/lightbox.css" type="text/css" media="screen" />
第二步修改\common\common.js，将//查找网页内宽度太大的图片进行缩放以及PNG纠正之下的一段修改如下：
程序代码
//查找网页内宽度太大的图片进行缩放以及PNG纠正
程序代码function ReImgSize(){
for (i=0;i<document.images.length;i++)
{
if (document.all){
if (document.images[i].width>550)
{
document.images[i].width="550"
}
}
else{
if (document.images[i].width>550) {
document.images[i].title="在新窗口打开图片"
document.images[i].style.cursor="pointer"
document.images[i].onclick=function(e){window.open(this.src)}
}
}
}
}
for (i=0;i<document.images.length;i++)
{
if (document.all){
if (document.images[i].width>550)
{
document.images[i].width="550"
}
}
else{
if (document.images[i].width>550) {
document.images[i].title="在新窗口打开图片"
document.images[i].style.cursor="pointer"
document.images[i].onclick=function(e){window.open(this.src)}
}
}
}
}
其实删除了点击图片在新窗口打开图片的代码。
最后一步，修改\common\ubbcode.asp，将IF Not DisUBB=1 Then 之下改为：
程序代码
程序代码 IF Not DisUBB=1 Then
IF Not DisIMG=1 Then
re.Pattern="(\[img\])(.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"<a href="""&tmpStr1&""" rel=""lightbox[roadtrip]"" title=""www.880218.com这里可改成你的域名或者博客名""><img src="""&tmpStr1&""" border=""0"" alt=""""/></a>",1,-1,0)
Next
IF Not DisIMG=1 Then
re.Pattern="(\[img\])(.[^\]]*)\[\/img\]"
Set strMatchs=re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=(strMatch.SubMatches(1))
strContent=replace(strContent,strMatch.Value,"<a href="""&tmpStr1&""" rel=""lightbox[roadtrip]"" title=""www.880218.com这里可改成你的域名或者博客名""><img src="""&tmpStr1&""" border=""0"" alt=""""/></a>",1,-1,0)
Next
如何你没有修改上述文件，直接下载Lightbox覆盖即可。
点击下载此文件come on ,test !!
文章来自: 
引用通告: 
Tags: 评论: 2 | 引用: 0 | 查看次数: -
bluer[2007-12-21 10:17 AM | 
]请楼上的说清楚呀．．，我没有明白您的意思．．hehe 
不行阿..之前大图缩小还可以打开新窗口预览 现在大图缩放就贴死在上面了..也没有小手指..怎么弄阿?..
发表评论