当前位置:首页 > 编程学习 > 给Z-Blog2.0 新建自动设置文章别名的插件

给Z-Blog2.0 新建自动设置文章别名的插件

编程学习2013-01-0440490

Z-blog1.8有个自动文章别名的插件比较好使,升级到2.0后没有这个插件了。1.8的放进去也不能用,每次都要手动设置一个也挺费事。索性参考1.8的自动文章别名插件试着写了个2.0的。

通过写这个插件也了解了Z-blog 2.0新建插件过程。


具体步骤如下:

1、进入应用中心,选择右上角的新建插件,输入插件信息。这个做了简单些的,设置插件ID为AutoAlias。


2、打开插件目录下的include.asp文件,修改Function ActivePlugin_AutoAlias

'挂口部分
Function ActivePlugin_AutoAlias()
                                                                      
    '插件最主要在这里挂接口。
    'Z-Blog可挂的接口有三类:Action、Filter、Response
    '建议参考Z-Wiki进行开发
    
    AutoAlias_GetAlias
                                                                          
End Function


3、写AutoAlias_GetAlias

'根据时间生成别名
Function AutoAlias_GetAlias()
    Dim alias, NowTime  
    NowTime=gettime(Now())
    alias=year(NowTime) & formatStr(Month(NowTime),2) &  formatStr(day(NowTime),2) &  formatStr(hour(NowTime),2) & formatStr( Minute(NowTime),2) & formatStr(Second(NowTime),2)
                                                       
    Call Add_Response_Plugin("Response_Plugin_Edit_Form","<div id='AutoAlias'><script language='JavaScript' type='text/javascript'>if(document.forms['edit'].edtAlias.value == ''){document.forms['edit'].edtAlias.value='" & alias & "';}</script></div>")
                                                   
End Function
                                                   
'格式化字符串
Function formatStr(str,length)
    Dim l
    l=length-len(str)
    If l > 0 Then
        formatStr=string(length-len(str),"0") & str
    Else
        formatStr=str
    End If
End Function


4、进入插件管理,启用插件。


最后效果如图所示:


 给Z-Blog2.0 新建自动设置文章别名的插件 网页制作 ASP 编程 第1张

    

扫描二维码推送至手机访问。

版权声明:本文由海阔天空发布,如需转载请注明出处。

本文链接:https://www.apull.net/html/20130104231949.html

分享给朋友:

相关文章

VB连接SQLServer数据库操作代码

VB连接SQLServer数据库操作代码

第一步,在ModConString模块中定义一系列变量'定义一个属性过程反映连接字符串Public Property Get conString() As Variant conString = "data source=.;initial catalog=Sims_four;user End Property'定义一个提供者反映数据库类型Public Property Get conProvide() As Variant co...

VB/VB.net 只允许运行一个实例

VB/VB.net 只允许运行一个实例

VB/VB.net  只允许运行一个实例       by:  Apull  VB中的实现方法VB如何防止程序被重复加载,也就是只允许运行一个实例,一般有2种方法。一,直接用VB提供的APP对象的PrevInstance方法。PrevInstance的返回值为True则说明已经有一个实力在运行。If App.PrevInstance Then Msgbox "已经有一个实例在运行" End if这个...

VBScript 错误信息

VBScript 错误信息

错误代码 信息5 无效的过程调用或参数6 溢出7 内存不够9 下标越界10 数组长度固定或临时锁定11 被零除13 类型不匹配14 字符串空间溢出28 堆栈空间溢出35 Sub或Function未定义48 加载D...

制作网页28个常用小代码

制作网页28个常用小代码

1、oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键<table border oncontextmenu=return(false)><td>no</table>  可用于Table2、<body onselectstart="return false"> 取消选取、防止复制3、onpaste="retu...

发表评论

访客

看不清,换一张

◎欢迎参与讨论,请在这里发表您的看法和观点。