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

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

编程学习2013-01-0456740

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.NET中如何扩充字符串进行固定宽度显示

VB.NET中如何扩充字符串进行固定宽度显示

  在VB.NET中,当你需要在控制台显示数据或准备好打印数据时,可能需要调整列宽以显示固定长度的数据。本文介绍了使用String对象的PadLeft方法和PadRight方法扩充字符串以进行固定宽度显示。PadLeft和PadRight方法      PadLeft和PadRight是字符串类的两个方法,可以分别使用它们在字符串的左边和右边填充空格。这两个方法多接受一个代表总长度的整型数,添加的空格数等于填充总长度减去字符串的当前长...

MD5加密VB版

MD5加密VB版

'MD5加密VB版 '调用方法:str=MD5("Apull",32),就能得到"Apull"的32位的MD5。 Private m_lOnBits(30) Private m_l2Power(30) Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private Fu...

常用asp函数

常用asp函数

<% '------------------------------------- '所有功能函数名如下: ' StrLength(str) 取得字符串长度 ' CutStr(str,strlen) 字符串长度切割 ' CheckIsEmpty(tstr) 检测是否为空 ' isInteger(para) 整数检验 ' CheckName(str) 名字字符校验 ' CheckPassword(str) 密码检验 ' CheckEmail(emai...

VB.NET关于加密算法

VB.NET关于加密算法

加密将防止数据被查看或修改,并在原本不安全的信道上提供安全的通信信道,它达到以下目的:  保密性:防止用户的标识或数据被读取。  数据完整性:防止数据被更改。  身份验证:确保数据发自特定的一方。  基本概念  1、散列(HASH)函数  散列(HASH)函数H也称哈希函数或杂凑函数等,是典型的多到一的函数,其输入为一可变长x(可以足够的长),输出一固定长的串h(一般为128位、160位,比输入的串短),该串h被称为输入x的Hash值(或称消息摘要Message  ...