📄 ks.labelcls.asp
字号:
<%
Class RefreshFunction
Private KS,DomainStr
Private KSRFOBJ,KSLKOBJ
Private Sub Class_Initialize()
Set KS=New PublicCls
DomainStr=KS.GetDomain
Set KSLKOBJ=New RefreshLocationCls
End Sub
Private Sub Class_Terminate()
Set KS=Nothing
Set KSLKOBJ=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 L_Arr:L_Arr = Split(LabelContent, ",")
If L_Arr(0) = "" Then
ChangeLableToFunction = ""
Exit Function
End If
Select Case UCase(L_Arr(0))
Case "GETSLIDE" '幻灯片图片
ChangeLableToFunction = GetSlide(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13))
Case "GETROLLS" '连续滚动图片
ChangeLableToFunction = GetRolls(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18))
Case "GETLOCATION" '网站位置导航函数
ChangeLableToFunction = KSLKOBJ.GetLocation(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6))
Case "GETBLOGLIST" '个人空间列表
ChangeLableToFunction = GetBlogList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14),L_Arr(15),L_Arr(16),L_Arr(17),L_Arr(18),L_Arr(19))
Case "GETBLOGINFOLIST" '最新日志列表函数
ChangeLableToFunction = GetBlogInfoList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14),L_Arr(15), L_Arr(16),L_Arr(17),L_Arr(18),L_Arr(19),L_Arr(20),L_Arr(21),L_Arr(22))
Case "GETXCLIST" '最新相册列表函数
ChangeLableToFunction = GetXCList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14),L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20))
Case "GETGROUPLIST" '最新圈子列表函数
ChangeLableToFunction = GetGroupList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14),L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20))
Case "GETANNOUNCELIST" '网站公告列表函数
ChangeLableToFunction = GetAnnounceList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16))
Case "GETLINKLIST" '友情链接列表函数
ChangeLableToFunction = GetLinkList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9))
Case "GETNAVIGATION" '频道或栏目导航函数
ChangeLableToFunction = GetNavigation(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15))
Case "GETARTICLELIST" '栏目文章列表函数
ChangeLableToFunction = GetArticleList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20),L_Arr(21), L_Arr(22),L_Arr(23), L_Arr(24),L_Arr(25), L_Arr(26),L_Arr(27), L_Arr(28),L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32))
Case "GETNOTRULEARTICLELIST" '不规则栏目文章列表函数
ChangeLableToFunction = GetNotRuleArticleList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20),L_Arr(21),L_Arr(22),L_Arr(23))
Case "GETCIRARTICLELIST" '循环列出文章栏目函数
ChangeLableToFunction = GetCirArticleList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30))
Case "GETLASTARTICLELIST" '文章分页列表函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastArticleList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28))
Case "GETPICARTICLELIST" '图片文章列表
ChangeLableToFunction = GetPicArticleList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26))
Case "GETMARQUEEARTICLE" '滚动文章
ChangeLableToFunction = GetMarqueeArticle(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15),L_Arr(16),L_Arr(17))
Case "GETCORRELATIVEARTICLE" '相关文章
ChangeLableToFunction = GetCorrelativeArticle(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25))
Case "GETSPECIALLIST" '频道专题汇总
ChangeLableToFunction = GetSpecialList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26))
Case "GETCIRSPECIALLIST" '循环显示频道专题汇总函数
ChangeLableToFunction = GetCirSpecialList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28))
Case "GETLASTSPECIALLIST" '分页显示频道专题汇总函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastSpecialList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22),L_Arr(23),L_Arr(24))
Case "GETPICTURELIST" '栏目图片列表
ChangeLableToFunction = GetPictureList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32))
Case "GETCIRPICTURELIST" '循环栏目图片列表
ChangeLableToFunction = GetCirPictureList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32), L_Arr(33))
Case "GETLASTPICTURELIST" '图片(专题)分页列表函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastPictureList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28))
Case "GETCORRELATIVEPICTURE" '相关图片
ChangeLableToFunction = GetCorrelativePicture(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26))
Case "GETDOWNLOADLIST" '栏目下载列表函数
ChangeLableToFunction = GetDownLoadList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30))
Case "GETPICDOWNLOADLIST" '图片下载列表
ChangeLableToFunction = GetPicDownLoadList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26))
Case "GETCIRDOWNLOADLIST" '循环列出下载栏目函数
ChangeLableToFunction = GetCirDownLoadList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28))
Case "GETLASTDOWNLOADLIST" '下载分页列表函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastDownLoadList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15),L_Arr(16),L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22),L_Arr(23),L_Arr(24),L_Arr(25),L_Arr(26))
Case "GETCORRELATIVEDOWNLOAD" '相关下载
ChangeLableToFunction = GetCorrelativeDownLoad(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18),L_Arr(19),L_Arr(20),L_Arr(21))
Case "GETMOVIELIST" '影片列表
ChangeLableToFunction = GetMovieList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31))
Case "GETCIRMOVIELIST" '循环栏目影片列表
ChangeLableToFunction = GetCirMovieList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32))
Case "GETLASTMOVIELIST" '影片(专题)分页列表函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastMovieList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27))
Case "GETCORRELATIVEMOVIE" '相关影片
ChangeLableToFunction = GetCorrelativeMovie(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25))
Case "GETPRODUCTLIST" '栏目商品列表
ChangeLableToFunction = GetProductList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32), L_Arr(33), L_Arr(34), L_Arr(35))
Case "GETCIRPRODUCTLIST" '循环商品列表
ChangeLableToFunction = GetCirProductList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30),L_Arr(31),L_Arr(32))
Case "GETLASTPRODUCTLIST" '商品分页列表函数
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastProductList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28))
Case "GETCORRELATIVEPRODUCT" '相关商品
ChangeLableToFunction = GetCorrelativeProduct(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26))
Case "GETSUPPLYLIST" '供求信息列表
ChangeLableToFunction = GetSupplyList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32))
Case "GETCIRSUPPLYLIST" '循环供求信息
ChangeLableToFunction = GetCirSupplyList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19), L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26), L_Arr(27), L_Arr(28), L_Arr(29), L_Arr(30), L_Arr(31), L_Arr(32), L_Arr(33))
Case "GETLASTSUPPLYLIST" '分页供求信息
Application("PageParam")=LabelContent
ChangeLableToFunction = GetLastSupplyList(L_Arr(1), L_Arr(2), L_Arr(3), L_Arr(4), L_Arr(5), L_Arr(6), L_Arr(7), L_Arr(8), L_Arr(9), L_Arr(10), L_Arr(11), L_Arr(12), L_Arr(13), L_Arr(14), L_Arr(15), L_Arr(16), L_Arr(17), L_Arr(18), L_Arr(19),L_Arr(20), L_Arr(21), L_Arr(22), L_Arr(23), L_Arr(24), L_Arr(25), L_Arr(26),L_Arr(27),L_Arr(28))
Case Else
ChangeLableToFunction = ""
Exit Function
End Select
End Function
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'函数名:KS_Slide
'作 用: 通用幻灯片函数
'参 数: ChannelID模块ID，SqlStr 待查询的SQL语句,OpenTypStr链接打开类型,等
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function KS_Slide(ChannelID,SqlStr, Width, Height, O_T_S, ShowTitle, T_Len, T_Css, ChangeTime,SlideType)
Dim PicUrl, TempTitle,T_CssStr,Sinapic
Dim SQL,K,RS:Set RS=Conn.Execute(SqlStr)
If RS.EOF Then KS_Slide="":RS.Close:Set RS=Nothing:Exit Function
SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
IF Cint(SlideType)<>1 Then
Dim ImgArrStr,LinkArrStr,TextArrStr,SinapicArrStr
Dim N:N=0
For K=0 To Ubound(SQL,2)
PicUrl =SQL(7,K)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -