. 在RefreshFunciton.asp文件里建立一個想要的函數(shù)，需要傳遞值的在后邊跟上，比如Function YourFunction(str1,str2,str3)，最好是帶上值哪怕沒有用，否則在首頁用時會被屏蔽掉
2. 然后到SelectFunction.asp文件里加上個Case "YourFunction" 這是因為程序已經(jīng)將標簽轉換到傳遞值的數(shù)組里了，所以這時候的函數(shù)名稱就變成了ParaArray(0)了，然后可以設置GetLableContent=YourFunction(ParaArray(1),ParaArray(2),ParaArray(3)) 即可
3. 最后我們在使用的時候調用標簽應該寫為{%=YourFunction("str1","str2","str3")%}
我寫這個的目的主要是通過此方法將一些風訊系統(tǒng)沒有自帶的標簽自己寫，然后自由運用
比如我們要顯示如下樣式的標簽
A級分類標題
A-1標題
A-2標題
A-3標題
因為風訊沒有給我們提供標簽，而這個我們又調用了非常多的次數(shù)，或需要在很多個模板里用（風訊某些標簽只能在特定的模板頁里使用，如子欄目），這樣怎么辦呢，就要使用我的辦法，來自己建立自己的標簽，然后就可以建立起更為豐富的標簽庫，讓編輯模版更事半功倍了。
發(fā)一個我自己寫的標簽：在任何模版頁調用某大欄目中的所有小欄目名稱和鏈接并設置其樣式
[文件：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 123 4 8 :
