KINGCMS 5系统增加{king:asp} 标签教程

因KINGCMS 5.0以上版本不支持{king:asp} 标签,为操作需要只好自己修改程序,研究半天终于攻克,与大家分享一下:

打开后台/system/plugin.asp文件，查找 str=king.ensql(tag) 行插入代码：

case"asp"  
 dim jsasp,regEx
 on error resume next
 Set regEx = New RegExp '建立正则表达式。
 regEx.Pattern = "{king:asp}" '设置模式。
 regEx.IgnoreCase = True '设置是否区分大小写。
 str=""
 jsasp=regEx.Replace(tag,"")
 regEx.Pattern = "{/king}"
 jsasp=regEx.Replace(jsasp,"")  '取出ASP代码
 set regEx=nothing'清空对象
 Err.Clear '清除错误。
 execute jsasp '执行ASP代码
 if err.number<>0 then str="asp/error|"&invalue&";source:"&err.source&";description:"&err.description'如果发生错误输出错误码
 jsasp=""
 Err.Clear '清除错误。

{king:asp} 标签的用法：直接在模板里写，注意输出不是用response.write，而是把输出赋值给str变量。仅支持VBSCRIPT代码，此功能适用于熟练掌握vbscript的用户。使用技巧：广告内容(支持KingCMS标签)
一、普通循环举例：
{king:asp}
  dim i
 for i=0 to 10
 str=str&i&"-"  '输出
  next
{/king}

二、调用数据库举例：
{king:asp}
set rs=conn.execute("select top 10 arttitle,artdescription from kingart;")
   data=rs.getrows()
   for i=0 to ubound(data,2)
    str=str&data(0,i)&"<br/>"  '输出
   next
   rs.close
set rs=nothing
{/king}

使后才发现有问题：就是安装模版后plugin.asp文件被刷新，代码都被刷掉了，正确的自定标签代码应该放在前台的system/inc/tag.asp页面中,写完安装一下文章模块就刷新了。

版权声明：千千名片原创文章，允许转载，转载时务必以链接形式标明文章原始出处、作者信息和本声明。

评论

发表评论

广州千千名片为企业提供从名片设计到名片印刷的全程服务。并为名片设计师提供名片欣赏和名片模版下载。我们提供各类高档名片制作服务，如果您想印名片，那么请您与千千名片联系：客服电话:020-83881189