風(fēng)訊系統(tǒng)自建標(biāo)簽的方法和使用_風(fēng)訊Cms教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
. 在RefreshFunciton.asp文件里建立一個想要的函數(shù)，需要傳遞值的在后邊跟上，比如Function YourFunction(str1,str2,str3)，最好是帶上值哪怕沒有用，否則在首頁用時會被屏蔽掉
2. 然后到SelectFunction.asp文件里加上個Case "YourFunction" 這是因?yàn)槌绦蛞呀?jīng)將標(biāo)簽轉(zhuǎn)換到傳遞值的數(shù)組里了，所以這時候的函數(shù)名稱就變成了ParaArray(0)了，然后可以設(shè)置GetLableContent=YourFunction(ParaArray(1),ParaArray(2),ParaArray(3)) 即可
3. 最后我們在使用的時候調(diào)用標(biāo)簽應(yīng)該寫為{%=YourFunction("str1","str2","str3")%}
我寫這個的目的主要是通過此方法將一些風(fēng)訊系統(tǒng)沒有自帶的標(biāo)簽自己寫，然后自由運(yùn)用
比如我們要顯示如下樣式的標(biāo)簽
A級分類標(biāo)題
A-1標(biāo)題
A-2標(biāo)題
A-3標(biāo)題
因?yàn)轱L(fēng)訊沒有給我們提供標(biāo)簽，而這個我們又調(diào)用了非常多的次數(shù)，或需要在很多個模板里用（風(fēng)訊某些標(biāo)簽只能在特定的模板頁里使用，如子欄目），這樣怎么辦呢，就要使用我的辦法，來自己建立自己的標(biāo)簽，然后就可以建立起更為豐富的標(biāo)簽庫，讓編輯模版更事半功倍了。
發(fā)一個我自己寫的標(biāo)簽：在任何模版頁調(diào)用某大欄目中的所有小欄目名稱和鏈接并設(shè)置其樣式
[文件：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" 這是因?yàn)槌绦蛞呀?jīng)將標(biāo)簽轉(zhuǎn)換到傳遞值的數(shù)組里了，所以這時候的函數(shù)名稱就變成了ParaArray(0)了，然后可以設(shè)置GetLableContent=YourFunction(ParaArray(1),ParaArray(2),ParaArray(3)) 即可
3. 最后我們在使用的時候調(diào)用標(biāo)簽應(yīng)該寫為{%=YourFunction("str1","str2","str3")%}
我寫這個的目的主要是通過此方法將一些風(fēng)訊系統(tǒng)沒有自帶的標(biāo)簽自己寫，然后自由運(yùn)用
比如我們要顯示如下樣式的標(biāo)簽
A級分類標(biāo)題
A-1標(biāo)題
A-2標(biāo)題
A-3標(biāo)題
因?yàn)轱L(fēng)訊沒有給我們提供標(biāo)簽，而這個我們又調(diào)用了非常多的次數(shù)，或需要在很多個模板里用（風(fēng)訊某些標(biāo)簽只能在特定的模板頁里使用，如子欄目），這樣怎么辦呢，就要使用我的辦法，來自己建立自己的標(biāo)簽，然后就可以建立起更為豐富的標(biāo)簽庫，讓編輯模版更事半功倍了。
發(fā)一個我自己寫的標(biāo)簽：在任何模版頁調(diào)用某大欄目中的所有小欄目名稱和鏈接并設(shè)置其樣式
[文件：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 :
相關(guān)風(fēng)訊Cms教程：
- 最簡單的欄目切換方法(樣式系列之欄目切換篇2)
- 我也放個欄目切換代碼，簡簡單單的。
- 搜狐女性頻道幻燈效果(幻燈系列之flash特效篇)
- 有效控制新聞內(nèi)容的圖片的尺寸
- 現(xiàn)提供增加<目錄生成規(guī)則>的方法！
- 風(fēng)訊里面上下篇標(biāo)簽DIV模式下浮動的解決方法！
- 風(fēng)訊目錄路徑自由選擇的實(shí)現(xiàn)方法
- 新聞列表讀取內(nèi)容時去掉html代碼
- 添加文字廣告的解決方案！
- 發(fā)些滾動的代碼
- 標(biāo)題下的分隔線在4.0中如何設(shè)置，還有標(biāo)題的行間距
- 隨時更換模版、廣告等，無須重新生成整站，共享出來供討論
- 相關(guān)鏈接：
- 教程說明：
風(fēng)訊Cms教程-風(fēng)訊系統(tǒng)自建標(biāo)簽的方法和使用
。