📄 ks_labelcls.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			 
			 Case "GETCIRCHANNELSPECIALLIST"
				 If UBound(LabelArr) = 17 Then             '循环显示频道专题汇总函数
				  ChangeLableToFunction = KSRFOBJ.GetCirChannelSpecialList(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			 Case "GETLASTCHANNELSPECIALLIST"
				 If UBound(LabelArr) = 11 Then             '分页显示频道专题汇总函数
				  ChangeLableToFunction = KSRFOBJ.GetLastChannelSpecialList(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 "GETSPECIALARTICLELIST"
				If UBound(LabelArr) = 18 Then              '专题文章列表函数
				  ChangeLableToFunction = KSRFOBJ.GetSpecialArticleList(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			 Case "GETLASTSPECIALARTICLE"
				If UBound(LabelArr) = 13 Then              '分页显示专题文章列表函数
				  ChangeLableToFunction = KSRFOBJ.GetLastSpecialArticle(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			 Case "GETSPECIALPICARTICLELIST"                '图片专题
				 If UBound(LabelArr) = 15 Then
				ChangeLableToFunction = KSRFOBJ.GetSpecialPicArticleList(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 "GETSPECIALMARQUEEARTICLE"
				 If UBound(LabelArr) = 14 Then               '滚动专题
				  ChangeLableToFunction = KSRFOBJ.GetSpecialMarqueeArticle(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 "GETSPECIALSLIDEARTICLE"
				 If UBound(LabelArr) = 11 Then              '幻灯片专题
				  ChangeLableToFunction = KSRFOBJ.GetSpecialSlideArticle(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 "GETSPECIALSTRIPARTICLE"                    '头条专题
				 If UBound(LabelArr) = 10 Then
				  ChangeLableToFunction = KSRFOBJ.GetSpecialStripArticle(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10))
				 Else
				  ChangeLableToFunction = "标签参数溢出！"
				 End If
			Case "GETPICTURELIST"                            '栏目图片列表
				 If UBound(LabelArr) = 22 Then
				  ChangeLableToFunction = KSRFOBJ.GetPictureList(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), LabelArr(21), LabelArr(22))
				 Else
				  ChangeLableToFunction = "标签参数溢出！"
				 End If
			Case "GETCIRPICTURELIST"                         '循环栏目图片列表
				 If UBound(LabelArr) = 24 Then
				  ChangeLableToFunction = KSRFOBJ.GetCirPictureList(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), LabelArr(21), LabelArr(22), LabelArr(23), LabelArr(24))
				 Else
				  ChangeLableToFunction = "标签参数溢出！"
				 End If
			Case "GETLASTPICTURELIST"
				If UBound(LabelArr) = 18 Then                '图片分页列表函数
				  ChangeLableToFunction = KSRFOBJ.GetLastPictureList(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			Case "GETSLIDEPICTURE"                           '幻灯片图片
				 If UBound(LabelArr) = 11 Then
				   ChangeLableToFunction = KSRFOBJ.GetSlidePicture(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 "GETMARQUEEPICTURE"                          '滚动图片
				 If UBound(LabelArr) = 16 Then
				   ChangeLableToFunction = KSRFOBJ.GetMarqueePicture(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 "GETSTRIPPICTURE"                            '今日头条图片
				 If UBound(LabelArr) = 18 Then
				ChangeLableToFunction = KSRFOBJ.GetStripPicture(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
		  Case "GETCORRELATIVEPICTURE"                      '相关图片
				 If UBound(LabelArr) = 16 Then
				 ChangeLableToFunction = KSRFOBJ.GetCorrelativePicture(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 "GETDOWNLOADLIST"
				If UBound(LabelArr) = 20 Then             '栏目下载列表函数
				  ChangeLableToFunction = KSRFOBJ.GetDownLoadList(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 "GETCIRDOWNLOADLIST"
				If UBound(LabelArr) = 19 Then             '循环列出下载栏目函数
				  ChangeLableToFunction = KSRFOBJ.GetCirDownLoadList(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 "GETLASTDOWNLOADLIST"
				If UBound(LabelArr) = 15 Then              '下载分页列表函数
				  ChangeLableToFunction = KSRFOBJ.GetLastDownLoadList(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 "GETCORRELATIVEDOWNLOAD"                   '相关下载
				 If UBound(LabelArr) = 12 Then
				 ChangeLableToFunction = KSRFOBJ.GetCorrelativeDownLoad(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 "GETFLASHLIST"                            '栏目Flash列表
				 If UBound(LabelArr) = 22 Then
				  ChangeLableToFunction = KSRFOBJ.GetFlashList(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), LabelArr(21), LabelArr(22))
				 Else
				  ChangeLableToFunction = "标签参数溢出！"
				 End If
			 Case "GETCIRFLASHLIST"                         '循环栏目Flash列表
				 If UBound(LabelArr) = 24 Then
				  ChangeLableToFunction = KSRFOBJ.GetCirFlashList(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), LabelArr(21), LabelArr(22), LabelArr(23), LabelArr(24))
				 Else
				  ChangeLableToFunction = "标签参数溢出！"
				 End If
			 Case "GETLASTFLASHLIST"
				If UBound(LabelArr) = 18 Then                'Flash分页列表函数
				  ChangeLableToFunction = KSRFOBJ.GetLastFlashList(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			  Case "GETMARQUEEFLASH"                          '滚动Flash
				 If UBound(LabelArr) = 16 Then
				   ChangeLableToFunction = KSRFOBJ.GetMarqueeFlash(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 "GETSLIDEFLASH"                           '幻灯片Flash
				 If UBound(LabelArr) = 11 Then
				   ChangeLableToFunction = KSRFOBJ.GetSlideFlash(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 "GETSTRIPFLASH"                            '今日头条Flash
				 If UBound(LabelArr) = 18 Then
				ChangeLableToFunction = KSRFOBJ.GetStripFlash(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))
				 Else
				 ChangeLableToFunction = "标签参数溢出！"
				 End If
			   Case "GETCORRELATIVEFLASH"                      '相关Flash
				 If UBound(LabelArr) = 16 Then
				 ChangeLableToFunction = KSRFOBJ.GetCorrelativeFlash(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 Else
			   ChangeLableToFunction = ""
			   Exit Function
			 End Select
		End Function

End Class
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -