tag.asp

来自「KINGCMS5.0内容管理系统 ASP程序。」· ASP 代码 · 共 37 行

<%
function lIll(l1,invalue)
dim str,tagname,tag
tag=l1
tag=replace(tag,"&quot;",""""):tag=replace(tag,"&nbsp;"," ")
tag=replace(tag,"&gt;",">"):tag=replace(tag,"&lt;","<")
tagname=lcase(king.sect(tag,"(king\:)","( |\/|\}|\))",""))
select case tagname
case"sitename" str=king.sitename
case"url" str=king.siteurl
case"cms" str="<p id=""kingcms"">Powered by: <a href=""http://www."&king.systemname&".com/"" style=""font-weight:bold"" target=""_blank"">"&king.systemname&"</a> <span>"&king.systemver&"</span></p>"
case"now" str=I1I1I(tag,"now:"&encode(tnow),"now")'str=tnow
case"keywords","keyword"'但开发的时候必须用keywords
	str=I1I1I(tag,invalue,"keywords"):if len(str)=0 then str=I1I1I(tag,invalue,"title")
case"description"
	str=I1I1I(tag,invalue,"description"):if len(str)=0 then str=I1I1I(tag,invalue,"title")
case"inst"
	str=king.inst
case"page"
	str=king.page
case"rnd" str=salt(16)
case"rnd4" str=salt(4)
case"rnd8" str=salt(8)
case"guide"
	str=I1I1I(tag,invalue,"guide")
	if len(str)=0 then
		str="<a href=""/"">"&king.sitename&"</a> &gt;&gt; "&I1I1I(tag,invalue,"title")
	else
		str="<a href=""/"">"&king.sitename&"</a> &gt;&gt; "&str
	end if
{king:case/}
case else
	str=I1I1I(tag,invalue,tagname)
end select
lIll=str
end function
%>