Z-Blog2.0 自建插件-自动文章别名

标哥 2020-12-30 23:34:20 技术收藏 次阅读　查看评论

Z-blog1.8有个自动文章别名的插件比较好使，升级到2.0后没有这个插件了。每次发表文章都要手动输入一个别名也挺费事。索性参考1.8的自动文章别名插件试着写了个适用于Z-blog2.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、进入插件管理，启用插件。

转载于博友：海阔天空 http://www.apull.net/wap.asp?act=View&id=119  文章略有改动。