3.2.sp1实现通用标签[方法说明] - 风讯CMS - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,风讯Cms教程,

SEO SEO

首页  >   风讯CMS > 3.2.sp1实现通用标签[方法说明]  >  正文

3.2.sp1实现通用标签[方法说明]

2018-09-27 07:32:58 向站长提问 编辑: admin 阅读:

 

通用标签一直是大家所希望有的,前段时间,我改了几个标签,实现通用


通用标签一直是大家所希望有的,前段时间,我改了几个标签,实现通用。我本来在想能否用更简单的方法来实现,但是一直没想出来,呵呵~(水平太差^_^)。就只好提供一个标签函数修改的方法给大家参考一下,并非所有的标签都可以用。修改的时候,请注重一下。

我用推荐新闻的标签函数做个示例:

打开\ foosun\admin\Refresh\RefreshFunction.asp 搜索:Function RecNews找到推荐新闻的标签函数:

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 "当标签所选栏目为空时
If SoonClassStr="1" then "当选择了包含子类时
Select Case Fun_Refresh_Type "选择当前所在的类别
Case "Class" "当当前类别为栏目的时候
EndClassIDList = """ & Fun_Refresh_ID & """ & AllChildClassIDStrList(Fun_Refresh_ID) "EndClassIDList取值为当前的栏目的栏目id加其所有子栏目的栏目id
Case "News" "当当前的列别为新闻页面时
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取值为当前新闻所在的栏目id
Case Else
EndClassIDList = "" "当当前类别不在所列出的类别之内时EndClassIDList取空值
End Select
else "当标签所选栏目为空,并却不包含子类时
EndClassIDList = """ & Fun_Refresh_ID & """ "EndClassIDList取值为当前栏目的栏目id
end if
end if
if EndClassIDList <> "" then "当EndClassIDList的值不为空的时候

查看更多 风讯cms教程  风讯cms模板

共2页上一页12下一页

3.2.sp1实现通用标签[方法说明]
http://www.yuedudg.cn/article/15105221.html

 

友情链接
帝国cms常识 ecshop经验网 织梦之家
cms综合网 wp之家 discuz经验网
phpcms之家 zblog之家


Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程


手机浏览本文
3.2.sp1实现通用标签[方法说明]

3.2.sp1实现通用标签[方法说明]

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy