pencat

自从换了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制作.