标签中的自定义函数
自定义函数用法：{自定义字段 fun="函数"}
示例1：{title fun="delhtml"}标题文本化， 示例2：{content fun="imghtml" len="300"} 内容文本化，但保留图片，    示例3：[get:y validate="1" fun="自定义函数" ]
可使用的系统函数：
函数名称 示例 要求 适用字段 说明
len {title len="30"} 可选 所有 只显示该字段的前30个字符(一个汉字算2个字符)
lenr {title len="30"} 可选 所有 只显示该字段的后30个字符(一个汉字算2个字符)
delhtml fun="delhtml" 可选 所有 格式化字段HTML
imghtml fun="imghtml" 可选 文内容字段 格式化替换字段内<img>标签
tags fun="tags" 可选 用,分隔的关键字 分隔关键字
date {UpdateTime date="yyyy-mm-dd"} 结果：2017-10-18，英文月份：{UpdateTime date="yyyy-enm-dd"}，结果举例：2017-Oct-18，星期：把日期转化为星期，结果举例：{UpdateTime date="week"} 可选 适用日期字段，如UpdateTime 设置字段日期格式
replace {title replace="find|repcontent"}。 {title replace="中国|美国"} 通过replace属性替换后输出的结果为：美国人民共和国 {title replace="中国"} 输出结果为：人民共和国 可选 所有字段 find为查找的值，repcontent为替换值，中间用垂直线分开，若无垂直线，则查找删除符合查询条件的值
none {picurl none="/nopic.gif"} 可选 所有字段 如果picurl没有内容则显示 /nopic.gif
Before {title Before="你好"} 可选 文本字段 输出值前插入内容,当title输出值为中国的时候，实际输出的值是： 你好中国
After {title After="你好"} 可选 文本字段 输出值后插入内容 当title输出值为中国的时候，实际输出的值是： 中国你好
width {picurl width="50"} 可选 图片输出 设置当前图片的输出宽度 物理宽度
height {picurl height="50"} 可选 图片输出 设置当前图片的输出高度 物理高度 可与width同时使用
imgHtml函数：
		Public Function imgHtml(ContentStr)
			On Error Resume Next
			Dim TempLoseStr, regEx
			If Trim(ContentStr)="" Then Exit Function
			TempLoseStr = CStr(ContentStr)
			Set regEx = New RegExp
			regEx.Pattern = "(\)"
			regEx.IgnoreCase = True
			regEx.Global = True
			TempLoseStr = regEx.Replace(TempLoseStr, "")
			TempLoseStr=rep(TempLoseStr,"""","")
			TempLoseStr=rep(TempLoseStr,"]","")
			TempLoseStr=rep(TempLoseStr,"[","")
			imgHtml = TempLoseStr
		End Function
文章作者分词函数：
函数作用当文章作者是多个时 用半角逗号,分隔 函数调用方法{con:author fun="dags"} 
     Function dags(tStr)
		Dim t,c
		t = Split(tStr, ","): tStr = ""
		For c = 0 To UBound(t)
			If Len(tStr) > 0 Then tStr = tStr & " " 
			
			tStr = tStr & " <a href='" &seoeu.eusys & "/mingjia/index.asp?author=" & Server.UrlEnCode(t(c)) & "' target='_blank'>" & t(c) & ""
		Next
		dags=tStr
	 End Function