📄 ks_labelcls.asp
字号:
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394
'程序版权： 科汛网络
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'====================================================================================================================
'-----------------------------------------------------------------------------------------------
'科汛网站管理系统,通用刷新类
'开发:林文仲 版本 V 1.1
'-----------------------------------------------------------------------------------------------
Class LabelCls
Private KSCMS
Private KSRFOBJ
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
Set KSRFOBJ=New RefreshFunction
End Sub
Private Sub Class_Terminate()
Set KSCMS=Nothing
Set KSRFOBJ=Nothing
End Sub
'**************************************************
'函数名：GetFunctionLabel
'作 用：取得函数标签 如 sssssss{=GetFlashByPlayer(100,50)}sssss,返回{=GetFlashByPlayer(100,50)}
'参数：Content--查找的内容，MatchStr--前缀匹配字符串
'返回值：函数标签
'**************************************************
Function GetFunctionLabel(Content, MatchStr)
Dim regEx, Matches, Match,N
Set regEx = New RegExp
regEx.Pattern = MatchStr & "[^{\=}]*}"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(Content)
GetFunctionLabel = ""
For Each Match In Matches
On Error Resume Next
N=N+1
IF N=1 Then
GetFunctionLabel = Match.Value
Else
GetFunctionLabel=GetFunctionLabel & "@@@" & Match.Value
End IF
Next
End Function
'**************************************************
'函数名：GetFunctionLabelParam
'作 用：取得标签的参数，用“，”隔开 如 {=GetFlashByPlayer(100,50)},返回100,50
'参数：Content--查找的内容，MatchStr--前缀匹配字符串
'返回值：返回用","隔开的字符串参数
'**************************************************
Function GetFunctionLabelParam(Content, MatchStr)
GetFunctionLabelParam = Replace(Content, MatchStr & "(", "")
GetFunctionLabelParam = Replace(Replace(GetFunctionLabelParam, ")}", ""), """", "")
End Function
'**************************************************
'函数名：ChangeLableToFunction
'作 用：将标签转换为函数执行
'参 数： LabelContent ----标签参数
'返回值：函数执行结果
'**************************************************
Function ChangeLableToFunction(LabelContent)
Dim LabelArr
'Call KSCMS.Alert(LabelContent, "")
LabelArr = Split(LabelContent, ",")
If LabelArr(0) = "" Then
ChangeLableToFunction = ""
Exit Function
End If
Select Case UCase(LabelArr(0))
Case "GETLOCATION"
If UBound(LabelArr) = 6 Then '网站位置导航函数
ChangeLableToFunction = KSRFOBJ.GetLocation(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETANNOUNCELIST"
If UBound(LabelArr) = 15 Then '网站公告列表函数
ChangeLableToFunction = KSRFOBJ.GetAnnounceList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETLINKLIST"
If UBound(LabelArr) = 8 Then '友情链接列表函数
ChangeLableToFunction = KSRFOBJ.GetLinkList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETARTICLENAVIGATION"
If UBound(LabelArr) = 8 Then '频道或栏目导航函数
ChangeLableToFunction = KSRFOBJ.GetArticleNavigation(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETARTICLELIST"
If UBound(LabelArr) = 20 Then '栏目文章列表函数
ChangeLableToFunction = KSRFOBJ.GetArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15), LabelArr(16), LabelArr(17), LabelArr(18), LabelArr(19), LabelArr(20))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETNOTRULEARTICLELIST"
If UBound(LabelArr) = 14 Then '不规则栏目文章列表函数
ChangeLableToFunction = KSRFOBJ.GetNotRuleArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETCIRARTICLELIST"
If UBound(LabelArr) = 19 Then '循环列出文章栏目函数
ChangeLableToFunction = KSRFOBJ.GetCirArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15), LabelArr(16), LabelArr(17), LabelArr(18), LabelArr(19))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETLASTARTICLELIST"
If UBound(LabelArr) = 15 Then '文章分页列表函数
ChangeLableToFunction = KSRFOBJ.GetLastArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETSLIDEARTICLE" '幻灯片文章
If UBound(LabelArr) = 12 Then
ChangeLableToFunction = KSRFOBJ.GetSlideArticle(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11),LabelArr(12))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETPICARTICLELIST" '图片文章列表
If UBound(LabelArr) = 16 Then
ChangeLableToFunction = KSRFOBJ.GetPicArticleList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15), LabelArr(16))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETMARQUEEARTICLE" '滚动文章
If UBound(LabelArr) = 15 Then
ChangeLableToFunction = KSRFOBJ.GetMarqueeArticle(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETSTRIPARTICLE" '今日头条文章
If UBound(LabelArr) = 11 Then
ChangeLableToFunction = KSRFOBJ.GetStripArticle(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETCORRELATIVEARTICLE" '相关文章
If UBound(LabelArr) = 12 Then
ChangeLableToFunction = KSRFOBJ.GetCorrelativeArticle(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
Case "GETARTICLETOTALSPECIALLIST"
If UBound(LabelArr) = 15 Then '频道专题汇总
ChangeLableToFunction = KSRFOBJ.GetArticleTotalSpecialList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15))
Else
ChangeLableToFunction = "标签参数溢出！"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -