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

最近在使用kingcms，看到这个很不错，转载过来。最下面有转载的信息，别人写的很幸苦，希望转载的人也能保留一下信息。

因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}