通用標(biāo)簽一直是大家所希望有的，前段時(shí)間，我改了幾個(gè)標(biāo)簽，實(shí)現(xiàn)通用。我本來(lái)在想能否用更簡(jiǎn)單的方法來(lái)實(shí)現(xiàn)，但是一直沒(méi)想出來(lái)，呵呵~（水平太差^_^）。就只好提供一個(gè)標(biāo)簽函數(shù)修改的方法給大家參考一下，并非所有的標(biāo)簽都可以用。修改的時(shí)候，請(qǐng)注重一下。

我用推薦新聞的標(biāo)簽函數(shù)做個(gè)示例：

打開(kāi)\ foosun\admin\Refresh\RefreshFunction.asp 搜索：Function RecNews找到推薦新聞的標(biāo)簽函數(shù)：

Function RecNews(ClassEName,SoonClassStr,NewNumberStr,TitleNumberStr,RowNumberStr,NaviPicStr,CompatPicStr,OpenTypeStr,CSSStyleStr,RowHeightStr,TxtNaviStr)
Dim RecNewsSql,RsRecNewsObj,i
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
CompatPicStr = GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
'-------------
dim TemppID,TemppSql,EndClassIDList
If ClassEName<>"" then
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
Else '當(dāng)標(biāo)簽所選欄目為空時(shí)
If SoonClassStr="1" then '當(dāng)選擇了包含子類(lèi)時(shí)
Select Case Fun_Refresh_Type '選擇當(dāng)前所在的類(lèi)別
Case "Class" '當(dāng)當(dāng)前類(lèi)別為欄目的時(shí)候
EndClassIDList = "'" & Fun_Refresh_ID & "'" & AllChildClassIDStrList(Fun_Refresh_ID) 'EndClassIDList取值為當(dāng)前的欄目的欄目id加其所有子欄目的欄目id
Case "News" '當(dāng)當(dāng)前的列別為新聞頁(yè)面時(shí)
dim temp1rs,temp1sql,temp1id
temp1sql = "select classid from fs_news where newsid = '" & Fun_Refresh_ID & "'"
set temp1rs = conn.execute(temp1sql)
if not temp1rs.eof then
temp1id = temp1rs("classid")
end if
EndClassIDList = "'" & temp1id & "'" 'EndClassIDList取值為當(dāng)前新聞所在的欄目id
Case Else
EndClassIDList = "" '當(dāng)當(dāng)前類(lèi)別不在所列出的類(lèi)別之內(nèi)時(shí)EndClassIDList取空值
End Select
else '當(dāng)標(biāo)簽所選欄目為空，并卻不包含子類(lèi)時(shí)
EndClassIDList = "'" & Fun_Refresh_ID & "'" 'EndClassIDList取值為當(dāng)前欄目的欄目id
end if
end if
if EndClassIDList <> "" then '當(dāng)EndClassIDList的值不為空的時(shí)候

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板