订阅 |

上一篇 |

原创插件

巴巴变相册For Oblog3.X

作者:wbc 日期:2006-06-23

字体大小: 小中大

本插件支持目前最新Oblog程序Oblog3.13& 3.12&3.1&3.0

安装方法

自动安装：

并执行 wbc_update.asp (输入http://你的blog地址/wbc_update.asp)

安装完成。

手动安装：进入本贴第二页

自动安装，自动删除安装文件，自动备份，自动随机修改数据库名。

卸载方法

执行此文件

卸载完成

文件下载

Oblog 3.13 & Oblog 3.12: 点击下载此文件

Oblog 3.1 & OBlog 3.0 : 点击下载此文件

效果

请稍等，图片正在下载中... 新窗口中打开

[split]

手动安装

打开inc/class_blog.asp

找到

show = "<title>" & Replace(Replace(Replace(title, "<", "＜"), ">", "＞"), " ", "　") & "</title>" & vbCrLf & show
show = "<meta name=""description"" content=""" & oblog.filt_html(desc) & """ />" & vbCrLf & show

在上面加入

'=================Add==By==WBC==
show="<script type=""text/javascript"" src=""../../Plugins/BBB/js/lightbox.js""></script>"&VbCrLf&show
show="<script type=""text/javascript"" src=""../../Plugins/BBB/js/scriptaculous.js?load=effects""></script>"&VbCrLf&show
show="<script type=""text/javascript"" src=""../../Plugins/BBB/js/prototype.js""></script>"&VbCrLf&show
show="<link rel=""stylesheet"" href=""../../Plugins/BBB/css/lightbox.css"" type=""text/css"" media=""screen"" />"&VbCrLf&show
'==============End===Add==

再找到

If en_photo = 1 Then
show = show & vbCrLf & " <a href="""&user_truepath&"cmd." & f_ext &"?uid="&user_id&"&do=album"">相册</a> "
End If

在下面添加

show = show & vbCrLf & " <a href="""&user_truepath&"cmd." & f_ext &"?uid="&user_id&"&do=bbb"">个人相册</a> "

打开inc/Class_UserCommand.asp

找到顶部的

在下面加入

再找到

Case "tags"
strReturn = GetUserTags()
Case "show"
strReturn = ShowOneBlog(Id,0)

在下面加入

'=================Add==By==WBC==
Case "bbb"
strReturn = bbb_list
'==============End===Add==

再在本页最后的

End Class

上面加入

'=================Add==By==WBC==
Function bbb_list()
dim page,reponseT,photo_total,page_total,Tdate,src,title,sizeStr,i
sizeStr=""
if BBB_showsize=800 then sizeStr="_"&800
page=request("page")
if page="" or not isnumeric(page) then page="1"
reponseT = photoGetPhotolistT(BBB_api_key, BBB_user_key, page, ""&BBB_pagesize&"", ""&bbb_picsize&"")
if err.number <>0 then
response.write ("<div atdgn=""center"" style=""margin-bottom:8px;""><span class=""alertTxt"">"&err.description&"</span></div>")
err.clear
else
photo_total = Cint(reponseT(0).item("photo_total"))
page_total = Cint(reponseT(0).item("page_total"))
end if
bbb_list="<style>"&_
".bbb_show{width:100%;list-style-type: none;margin:0px;padding:0px; text-align:center}"&_
".bbb_img {width:auto;}"&_
".bbb_img img{margin-top:20px;border:10px #eee solid;}"&_
"</style><table style=""text-align:center; line-height:200px;clear:both; width:100%"" atdgn=""center"">"&_
"<tr class=""bbb_show"">"
for i=1 to UBound(reponseT, 1)
Tdate = reponseT(i).item("date")
src = reponseT(i).item("src")
title = reponseT(i).item("title")
bbb_list=bbb_list&"<td class=""bbb_pho"" height=""120px;""><div class=""bbb_img""><a rel=""lightbox[a]"" href="""&replace(replace(src,"_100",sizeStr),"_240",sizeStr)&""" title=""上载于"&Tdate&"日 "&title&"""><img rel=""lightbox[a]"" src="""&src&""" alt="""" border=""0"" title="""&title&"""/></a></div></td>"
if i mod cint(BBB_eachline) =0 and i<>0 then bbb_list=bbb_list&"</tr><tr class=""bbb_show"">"
next
bbb_list=bbb_list&"</tr></table>"&_
"<div style=""text-align:center;clear:both; width:100%"" atdgn=""center"">"&MultiPage(photo_total,BBB_pagesize,page,"&","","")&"共["&photo_total&"]幅图 </div>"&_
"<div align=""right"" style=""height:52px; width:100%; overflow:hidden""><a href=""http://www.bababian.com"" target=""_blank""><img width=""207"" height=""52"" border=""0"" src=""http://www.bababian.com/51ly/bbb.gif"" alt=""s"" /></a></div>"&_
"</div>"
End function
'==============End===Add==

打开user_top.asp

3.1&3.0版用户找到

<li><a href="user_subject.asp">日志分类管理</a></li>
</ul>
</li>

在下面加入

<li><a href="#"> BBB相册</a>
<ul>
<li><a href="bbb_admin.asp">相册管理</a></li>
<li><a href="BBB_admin.asp?act=up">图片上载</a></li>
</ul>
</li>

3.12 and 3.13版用户找到

<li><a href="user_subject.asp" target="main"><img src="oBlogStyle/OblogStyleAdminImages/li/16.gif" align="absmiddle" /> 日志分类管理</a></li>
</ul>

在下面加入

<div class="menu-t1" onClick="menu(oblog_99)"><img src="oBlogStyle/OblogStyleAdminImages/li/t1.gif" /> BBB相册</div>
<ul id="oblog_99">
<li><a href="BBB_admin.asp" target="main"><img src="oBlogStyle/OblogStyleAdminImages/li/31.gif" align="absmiddle" /> 相册管理</a></li>
<li><a href="BBB_admin.asp?act=up" target="main"><img src="oBlogStyle/OblogStyleAdminImages/li/31.gif" align="absmiddle" /> 图片上载</a></li>
</ul>

3.1&3.0打开cmd.asp ,3.12& 3.13打开pagecmd.asp

找到