Z-Blog2.0 自建插件-自动文章别名
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 文章略有改动。
留言列表: