风讯系统自建标签的方法和使用_风讯Cms教程
教程Tag:暂无Tag,欢迎添加,赚取U币!
. 在RefreshFunciton.asp文件里建立一个想要的函数,需要传递值的在后边跟上,比如Function YourFunction(str1,str2,str3),最好是带上值哪怕没有用,否则在首页用时会被屏蔽掉
2. 然后到SelectFunction.asp文件里加上个Case "YourFunction" 这是因为程序已经将标签转换到传递值的数组里了,所以这时候的函数名称就变成了ParaArray(0)了,然后可以设置GetLableContent=YourFunction(ParaArray(1),ParaArray(2),ParaArray(3)) 即可
3. 最后我们在使用的时候调用标签应该写为{%=YourFunction("str1","str2","str3")%}
我写这个的目的主要是通过此方法将一些风讯系统没有自带的标签自己写,然后自由运用
比如我们要显示如下样式的标签
A级分类标题
A-1标题
A-2标题
A-3标题
因为风讯没有给我们提供标签,而这个我们又调用了非常多的次数,或需要在很多个模板里用(风讯某些标签只能在特定的模板页里使用,如子栏目),这样怎么办呢,就要使用我的办法,来自己建立自己的标签,然后就可以建立起更为丰富的标签库,让编辑模版更事半功倍了。
发一个我自己写的标签:在任何模版页调用某大栏目中的所有小栏目名称和链接并设置其样式
[文件:RefreshFunciton.asp]
Function ShowNClass(ParentID,Show_Type,ListAmount,ListSum,cellpadding)
if Show_Type=2 then
ShowNClass="<table width=100% border=0 cellspacing=0 cellpadding="&cellpadding&">"
else
ShowNClass="<table width=100% border=0 cellspacing=0 cellpadding="&cellpadding&"><tr>"
end if
Dim TempRs,i,l,linkStr
if ListSum<>"" then
Set TempRs = Conn.Execute("Select Top "&ListSum&" ParentID,ClassCName,ClassEName,AddTime from NewsClass where ParentID = '" & ParentID & "' order by AddTime desc ")
else
Set TempRs = Conn.Execute("Select ParentID,ClassCName,ClassEName,AddTime from NewsClass where ParentID = '" & ParentID & "' order by AddTime desc ")
end if
i=1
do while Not TempRs.Eof
'################### 把链接赋值给一个变量 linkStr ###################
linkStr="<div align=center><a href='Get/"&TempRs("ClassEName")&"' class=font_12_unline>"& TempRs("ClassCName") &"</a></div>"
'################### 把链接赋值给一个变量 linkStr ###################9 7 3 1 2 3 4 8 :
2. 然后到SelectFunction.asp文件里加上个Case "YourFunction" 这是因为程序已经将标签转换到传递值的数组里了,所以这时候的函数名称就变成了ParaArray(0)了,然后可以设置GetLableContent=YourFunction(ParaArray(1),ParaArray(2),ParaArray(3)) 即可
3. 最后我们在使用的时候调用标签应该写为{%=YourFunction("str1","str2","str3")%}
我写这个的目的主要是通过此方法将一些风讯系统没有自带的标签自己写,然后自由运用
比如我们要显示如下样式的标签
A级分类标题
A-1标题
A-2标题
A-3标题
因为风讯没有给我们提供标签,而这个我们又调用了非常多的次数,或需要在很多个模板里用(风讯某些标签只能在特定的模板页里使用,如子栏目),这样怎么办呢,就要使用我的办法,来自己建立自己的标签,然后就可以建立起更为丰富的标签库,让编辑模版更事半功倍了。
发一个我自己写的标签:在任何模版页调用某大栏目中的所有小栏目名称和链接并设置其样式
[文件:RefreshFunciton.asp]
Function ShowNClass(ParentID,Show_Type,ListAmount,ListSum,cellpadding)
if Show_Type=2 then
ShowNClass="<table width=100% border=0 cellspacing=0 cellpadding="&cellpadding&">"
else
ShowNClass="<table width=100% border=0 cellspacing=0 cellpadding="&cellpadding&"><tr>"
end if
Dim TempRs,i,l,linkStr
if ListSum<>"" then
Set TempRs = Conn.Execute("Select Top "&ListSum&" ParentID,ClassCName,ClassEName,AddTime from NewsClass where ParentID = '" & ParentID & "' order by AddTime desc ")
else
Set TempRs = Conn.Execute("Select ParentID,ClassCName,ClassEName,AddTime from NewsClass where ParentID = '" & ParentID & "' order by AddTime desc ")
end if
i=1
do while Not TempRs.Eof
'################### 把链接赋值给一个变量 linkStr ###################
linkStr="<div align=center><a href='Get/"&TempRs("ClassEName")&"' class=font_12_unline>"& TempRs("ClassCName") &"</a></div>"
'################### 把链接赋值给一个变量 linkStr ###################9 7 3 1 2 3 4 8 :
相关风讯Cms教程:
- 相关链接:
- 教程说明:
风讯Cms教程-风讯系统自建标签的方法和使用。