自从换了ZBlog1.7之后代码都不能看了. 把之前的插件做了一下小改动,再发上来.
一、适用版本
ZBlog 1.7 Laputa Build 70216
二、下载
http://blog.bigcomic.com/post/2007/08/21/HighLighter1.7.html
三、安装
将压缩包中的文件覆盖到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>
五、改动的文件
TEMPLATE\default.html
TEMPLATE\single.html
TEMPLATE\catalog.html
FUNCTION\c_function.asp
296行处增加如下代码
'## Hack
Dim PosX, PosY, TempSource, TempSource1, TempSource2
TempSource = LCase(Source)
PosY = 1
Do
TempSource1 = Mid(Source, PosX, PosY - PosX)
TempSource2 = Replace(TempSource1, "<br/>", vbCrLf & vbCrLf)
TempSource2 = Replace(TempSource2, "’", "'")
Source = Replace(Source, TempSource1, TempSource2)
Else
Exit Do
End If
Loop
'## Over
六、声明
本插件使用第三方提供的JS制作.
[
本帖最后由 pencat 于 2007-9-18 11:39 编辑 ]
