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

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

编程学习2013-01-0447530

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

分享给朋友:

相关文章

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...

VB.NET 用ShellExecuteEx 打开系统文件属性对话框 模块

VB.NET 用ShellExecuteEx 打开系统文件属性对话框 模块

' ' VB.NET 调用系统文件属性对话框模块 ' ' by: Apull ' QQ:374237545 ' http://www.apull.net ' 2007-6-9 ' ' Imports System.Runtime.InteropServices     Mod...

C++实现十进制转换为二进制

C++实现十进制转换为二进制

这个写得有些早了,学习c++是写的。现在看到很多帖子问这个问题,把这个贴上来供大家参考下。/* * FileName: bin.cpp * * 转换十进制为二进制 * * Apull * 2005-12-2 */ #include <iostream> #include <cstdlib> using namespace std; const int size = sizeof(int) *...

代码迷惑技术如何保护Java免遭逆向工程

代码迷惑技术如何保护Java免遭逆向工程

很少有问题比程序员遇到不访问无法利用的源代码就无法解决的漏洞更令人沮丧的了。你是否在通过一个在线开源库修补代码,或正在调用常用操作系统例行程序;你可能每周都要花时间处理不是由你编写,因而也无法访问其源代码的代码。因为Java字节码包含许多和原始代码相同的信息,所以很容易对Java类文件执行逆向工程。另外,Java程度以其“一旦编写,随处运行”特性而闻名。虽然并非Java语言的专利,但代码反编译从未在Java开发者之中得到如此公开或普遍地利用。反编译的对...

发表评论

访客

看不清,换一张

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