pencat

很早就想做个相册插件， 无奈一直很懒。国庆出游回来，照片有几百张之多，再也忍受不了一张张编辑后再上传。下定决心，弄一个和ZBLOG无缝结合的相册。花了一天左右的时间做雏形和上传工具，细节部分实在懒的去弄，先将就用了。

一、适用版本

ZBlog 1.7 Laputa Build 70216

二、下载

插件：[URL=http://blog.bigcomic.com/upload/Album%20v1.0.rar]Album v1.0.rar[/URL]

上传工具：[URL=http://blog.bigcomic.com/upload/AlbumUpload.rar]AlbumUpload.rar[/URL]

ASPJPEG1.5 ：[URL=http://blog.bigcomic.com/upload/AspJpegv1.5.0.0.rar]AspJpegv1.5.0.0.rar[/URL]

三、特点

• 傻瓜式安装、卸载
• 大批量上传照片
• 无需服务器支持ASPJPEG就可以生成缩略图
• 输出UBB格式，方便在文章中引用
• 未来版本支持加密和隐藏相册（其实这个版本也可以，只是验证的表单懒的做。- -!）

四、安装

插件安装：

秉承着傻瓜原则，本插件安装十分简易。
将Album v1.0.rar 解压缩后放直接覆盖到根目录，在插件管理中使用安装功能，安装程序会自动完成所有设置。

上传工具安装：

上传工具使用之前请先运行"绿色安装.bat"，用来注册运行时所必需的组件。 如果出现自动化错误，说明ASPJPEG没有安装好，请下载ASPJPEG的安装包进行安装。 上面有连接。

五、使用

1. 安装
2. 建立新的相册
3. 使用照片上传工具将照片批量传到指定相册中。

设置界面的所有信息必须正确填写,否则将不能上传照片。填写之后点击"读取"，工具会从你的BLOG取得相册分类，你只要选择其中之一就可以。

之后选择照片所在目录，上传即可。

注意：

• 本工具只识别JPEG的图片。
• 如果发现照片未能添加到相册，请检查远程目录是否正确。远程目录需要指定为Album下的picture目录。

4. 上传结束后刷新相册就可以看到效果。

六、改动的文件

安装程序修改的文件

• 当前样式表文件
• navbar.asp

插件增加的文件

• /photos.asp
• TEMPLATE/photos.html

七、声明

本插件使用第三方组件：

• SimpleView Flash图片浏览
• AspJpeg 图象组件 (只需本地安装，无需服务器端安装)
  

自从换了ZBlog1.7之后代码都不能看了. 把之前的插件做了一下小改动,再发上来.

一、适用版本
ZBlog 1.7 Laputa Build 70216

二、下载

HighLighter1.7.rar

三、安装

将压缩包中的文件覆盖到Blog的跟目录即可

四、使用

1. 使用代码高亮标签时,需要<textarea></textarea>标签的支持。将代码放入<textarea>之中。

eg. 代码中的红字可以替换成你所需要的语言 c#,javascript,vb,xml,php,sql,delphi,Python
<textarea name="code" language="vb"> [CODE_LITE] '/** ' * @param KeepAlive成功 ' */ Public Sub OnKeepAliveSucceed(ByVal Index As Long) '/** 构造好友状态查看请求包 */ objPacket(Index).PacketType = QQ_CMD_GET_FRIEND_ONLINE '/** 发送好友状态查看请求包 */ SendData objPacket(Index), Index RaiseEvent OnKeepAliveSucceed(Index) End Sub [/CODE_LITE] </textarea>

效果:

'/**'/**' * @param KeepAlive成功' */Public Sub OnKeepAliveSucceed(ByVal Index As Long)'/** 构造好友状态查看请求包 */objPacket(Index).PacketType = QQ_CMD_GET_FRIEND_ONLINE'/** 发送好友状态查看请求包 */SendData objPacket(Index), IndexRaiseEvent OnKeepAliveSucceed(Index)End Sub

五、改动的文件

TEMPLATE\default.html
TEMPLATE\single.html
TEMPLATE\catalog.html

296行处增加如下代码

[CODE_LITE] '## Hack Dim PosX,PosY,TempSource,TempSource1,TempSource2 TempSource = LCase(source) PosY = 1 Do PosX = Instr(PosY,TempSource," 0 Then PosY = Instr(PosX,TempSource,"") If PosY < PosX then Exit do End If TempSource1 = Mid(source,PosX,PosY-PosX) TempSource2 = Replace(TempSource1,"
",vbcrlf) TempSource2 = Replace(TempSource2,"’","'") source = Replace(source,TempSource1,TempSource2) Else Exit Do End If Loop '## Over [/CODE_LITE]

六、声明

本插件使用第三方提供的JS制作.

一、下载

HighLighter.rar

二、安装

将压缩包中的文件覆盖到Blog的跟目录即可

三、使用

1. 使用代码高亮标签时,需要<textarea></textarea>标签的支持。将代码放入<textarea>之中。

eg. 代码中的红字可以替换成你所需要的语言 c#,javascript,vb,xml,php,sql,delphi,Python

<textarea name="code" language="vb">
'/**
' * @param KeepAlive成功
' */
Public Sub OnKeepAliveSucceed(ByVal Index As Long)
'/** 构造好友状态查看请求包 */
objPacket(Index).PacketType = QQ_CMD_GET_FRIEND_ONLINE
'/** 发送好友状态查看请求包 */
SendData objPacket(Index), Index

RaiseEvent OnKeepAliveSucceed(Index)
End Sub
</textarea>

效果:

'/** ' * @param KeepAlive成功 ' */ Public Sub OnKeepAliveSucceed(ByVal Index As Long) '/** 构造好友状态查看请求包 */ objPacket(Index).PacketType = QQ_CMD_GET_FRIEND_ONLINE '/** 发送好友状态查看请求包 */ SendData objPacket(Index), Index RaiseEvent OnKeepAliveSucceed(Index) End Sub

四、改动的文件

TEMPLATE\default.html
TEMPLATE\single.html
\c_function.asp

248行处增加如下代码

'## Hack
Dim PosX,PosY,TempSource,TempSource1,TempSource2
TempSource = LCase(source)
PosY = 1
Do
PosX = Instr(PosY,TempSource,"<textarea")
If PosX > 0 Then
PosY = Instr(PosX,TempSource,"</textarea>")
TempSource1 = Mid(source,PosX,PosY-PosX)
TempSource2 = Replace(TempSource1,"<br/>",vbCrlf)
TempSource2 = Replace(TempSource2,"'","'")
source = Replace(source,TempSource1,TempSource2)
Else
Exit Do
End If
Loop
'## Over

五、声明

本插件使用第三方提供的JS制作.