⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ks_refreshfunctioncls.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V 2.2 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 2.2
'-----------------------------------------------------------------------------------------------
Class RefreshFunction
        Private KSCMS 
		Private adOpenForwardOnly,adLockReadOnly         
		Private Sub Class_Initialize()
		  adOpenForwardOnly=1
		  adLockReadOnly=1
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Set KSCMS=Nothing
		End Sub
		'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		'函数名:GetCommonFlashSlide
		'作 用:通用Flash幻灯片
		'参 数:ArtilceSql 待查询的SQL语句,MoreLinkStr更多链接字串,OpenTypStr链接打开类型,等
		'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		Function GetCommonFlashSlide(Width,Height,TitleLen,ImgArrStr,LinkArrStr,TextArrStr)
			GetCommonFlashSlide="<SCRIPT language=JavaScript>" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "function topimg(simg)" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "{" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var strimg=simg;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var strimg1="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var strimg2="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var strimg3="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var allstrimg="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " if (strimg.length>" & TitleLen &")" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " {" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " strimg1=strimg.substring(0, " & TitleLen & ");" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " allstrimg=strimg1 + ""......"";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " }" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "  if (strimg.length<=" & TitleLen & ")" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " {" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " allstrimg=strimg;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & " }" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "return allstrimg;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "}" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var focus_width=" & Width & ";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var focus_height=" & Height & ";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var text_height=22;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var links="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var pics="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var texts="""";" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var imgUrl=new Array();" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var imgLink=new Array();" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var imgTz=new Array();" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var adNum=0;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var kk = 1;" & vbcrlf
			GetCommonFlashSlide=GetCommonFlashSlide & "var swf_height = focus_height+text_height;" & vbcrlf
			 Dim ImgArr:ImgArr=Split(ImgArrStr,"@@@")
			 Dim LinkArr:LinkArr=Split(LinkArrStr,"@@@")
			 Dim TextArr:TextArr=Split(TextArrStr,"@@@")
			 Dim ArrLength:ArrLength=Ubound(ImgArr)
			 If ArrLength>5 Then ArrLength=5
			 Dim I
			 For I=0 To ArrLength
			   If I=0 Then
				 GetCommonFlashSlide=GetCommonFlashSlide & "pics = '" & ImgArr(0) & "';" & vbcrlf
				 GetCommonFlashSlide=GetCommonFlashSlide & "links = '" & LinkArr(0) & "';" & vbcrlf
				 GetCommonFlashSlide=GetCommonFlashSlide & "texts = '<center>' + topimg('" & TextArr(0) &"') + '</center>';" & vbcrlf
			  Else
			  
			 GetCommonFlashSlide=GetCommonFlashSlide & "imgUrl[kk] = '|" & ImgArr(I) & "';" & vbcrlf
			 GetCommonFlashSlide=GetCommonFlashSlide & "imgLink[kk] = '|" & LinkArr(I) & "';" & vbcrlf
			 GetCommonFlashSlide=GetCommonFlashSlide & "imgTz[kk] = '|<center>' + topimg('" & TextArr(I) & "') + '</center>';" & vbcrlf
			 GetCommonFlashSlide=GetCommonFlashSlide & "kk++;" & vbcrlf
			  End IF
			 Next
			 
		GetCommonFlashSlide=GetCommonFlashSlide & "for (i=1;i<=" & ArrLength & ";i++) {" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "	 pics = pics + imgUrl[i];" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "	 links =links + imgLink[i];" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "	texts = texts + imgTz[i];" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "}" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""'+ focus_width +'"" height=""'+ swf_height +'"">');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""" & KSCMS.GetDomain & "inc/Slideviewer.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#F0EFEF"">');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('<param name=""menu"" value=""false""><param name=wmode value=""opaque"">');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('<embed src=""" & KSCMS.GetDomain &"inc/Slideviewer.swf"" wmode=""opaque"" FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" menu=""false"" bgcolor=""#F0EFEF"" quality=""high"" width=""'+ focus_width +'"" height=""'+ focus_height +'"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "document.write('</object>');" & vbcrlf
		GetCommonFlashSlide=GetCommonFlashSlide & "</SCRIPT>" & vbcrlf
	End Function
		'==========================================================================文章发布中心通用函数声明==============================
		'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		'函数名:GetCommonArticleList
		'作 用:通用栏目文章列表
		'参 数:ArtilceSql 待查询的SQL语句,MoreLinkStr更多链接字串,OpenTypStr链接打开类型,等
		'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		Function GetCommonArticleList(ArticleSql, MoreLinkStr, ShowClassName, OpenTypeStr, RowHeight, TitleLen, ColNumber, ShowPicFlag, NavType, Nav, SplitPic, DateRule, DateAlign, TitleCss, DateCss)
			 On Error Resume Next
			 Dim I, FolderNameAndLinkStr, NaviStr,ColSpanNum, TempTitle, CommentStr
			 Dim ArticleRS:Set ArticleRS=Server.CreateObject("ADODB.RECORDSET")
			 ArticleRS.Open ArticleSql, Conn, 1, 1

			 If Not ArticleRS.EOF Then
			   Dim CurrTid,Title, TitleCssStr, DateCssStr
				TitleCssStr = GetCss(TitleCss):DateCssStr = GetCss(DateCss):RowHeight = GetRowHeight(RowHeight):NaviStr = GetNavi(NavType, Nav)
				GetCommonArticleList = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" align=""center"">" & vbCrLf
			  Do While Not ArticleRS.EOF
				GetCommonArticleList = GetCommonArticleList & "<tr>" & vbCrLf
				  For I = 1 To ColNumber
						CurrTid = Trim(ArticleRS("Tid"))
						If CBool(ShowClassName) = True Then FolderNameAndLinkStr = "[" & KSCMS.GetFolderNameAndLink(CurrTid, OpenTypeStr, "") & "]"			
					  Title = ArticleRS("Title")
					  TempTitle = GetArticleTitle(Title, TitleLen, ShowPicFlag, ArticleRS("TitleType"), ArticleRS("TitleFontColor"), ArticleRS("TitleFontType"))
					  If ArticleRS("ShowComment") = 1 And ArticleRS("Comment") = 1 Then
						CommentStr = " <a href=""" & KSCMS.GetDomain & "Common/Comment.asp?ChannelID=1&Classid=" & CurrTid & "&InfoID=" & ArticleRS("NewsID") & """ target=""_blank"">评论</a>"
					  Else
						CommentStr = ""
					  End If

					  TempTitle = "<a" & TitleCssStr & " href=""" & KSCMS.GetInfoUrl(1,ArticleRS) & """" & OpenTypeStr & " title=""" & Title & """>" & TempTitle & "</a>" & CommentStr
					  GetCommonArticleList = GetCommonArticleList & ("<td WIDTH=""" & CInt(100 / CInt(ColNumber)) & "%"" height=""" & RowHeight & """>" & vbCrLf)
					  GetCommonArticleList = GetCommonArticleList & ("<table width=""100%"" height=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbCrLf)
					  GetCommonArticleList = GetCommonArticleList & ("<tr><td> " & (NaviStr & FolderNameAndLinkStr & TempTitle) & "</td>")
					  
					  If CStr(DateRule) <> "0" And CStr("DateRule") <> "" Then
						Dim AddDate,NowDate
						AddDate = ArticleRS("AddDate")
						NowDate = Now()
						If (Year(NowDate) & Month(NowDate) & Day(NowDate)) = (Year(AddDate) & Month(AddDate) & Day(AddDate)) Then
								 GetCommonArticleList = GetCommonArticleList & ("<td width=""20%"" nowrap align=" & DateAlign & "><span style=""color:red""" & DateCssStr & ">" & DateFormat(AddDate, DateRule) & "</span></td>")
						Else
								 GetCommonArticleList = GetCommonArticleList & ("<td width=""20%"" nowrap align=" & DateAlign & "><span" & DateCssStr & ">" & DateFormat(AddDate, DateRule) & "</span></td>")
						End If
					  GetCommonArticleList = GetCommonArticleList & ("</tr>" & vbCrLf)
					  ColSpanNum = 2
					  Else
					  GetCommonArticleList = GetCommonArticleList & ("</tr>" & vbCrLf)
					  ColSpanNum = 1
					  End If
					  If SplitPic <> "" Then
					  GetCommonArticleList = GetCommonArticleList & (GetSplitPic(SplitPic, ColSpanNum) & vbCrLf)
					  End If
					  GetCommonArticleList = GetCommonArticleList & ("</table>" & vbCrLf & "</td>" & vbCrLf)
					  ArticleRS.MoveNext
					  If ArticleRS.EOF Then Exit For
				  Next
				  GetCommonArticleList = GetCommonArticleList & "</tr>" & vbCrLf
				Loop
				 GetCommonArticleList = GetCommonArticleList & MoreLinkStr
				 GetCommonArticleList = GetCommonArticleList & ("</table>" & vbCrLf)
				 ArticleRS.Close:Set ArticleRS = Nothing
			 Else
			   GetCommonArticleList = ""
			   ArticleRS.Close:Set ArticleRS = Nothing
			 End If
		End Function
		
		'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		'函数名:GetCommonNotRuleArticleList
		'作 用:通用栏目文章列表
		'参 数:ArtilceSql 待查询的SQL语句,MoreLinkStr更多链接字串,OpenTypStr链接打开类型,等
		'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
		Function GetCommonNotRuleArticleList(ArticleSql,RowNumber, ShowNumPerRow, MoreLinkStr, OpenTypeStr, RowHeight,  NavType, Nav, SplitPic, TitleCss)
			 On Error Resume Next
			 Dim I, FolderNameAndLinkStr, NaviStr,CommentStr
			 Dim ArticleRS:Set ArticleRS=Server.CreateObject("ADODB.RECORDSET")
			 Dim PreArticleComment,PreArticleShowComment,PreArticleClassID,PreArticleInfoID

			 ArticleRS.Open ArticleSql, Conn, 1, 1
			 If Not ArticleRS.EOF Then
			    Dim CurrTid,LinkStr
			    Dim Title, TitleCssStr
				TitleCssStr = GetCss(TitleCss):RowHeight = GetRowHeight(RowHeight):NaviStr = GetNavi(NavType, Nav)
				
				GetCommonNotRuleArticleList = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" align=""center"">" & vbCrLf
				GetCommonNotRuleArticleList = GetCommonNotRuleArticleList & "<tr><td>" & vbCrLf

				Dim II:ii=0:Dim CC:cc=0:Dim Row,str
				
				RowNumber=Cint(RowNumber):ShowNumPerRow=Cint(ShowNumPerRow)
							
				GetCommonNotRuleArticleList= GetCommonNotRuleArticleList & NaviStr
				do while not ArticleRS.eof
				    CurrTid = Trim(ArticleRS("Tid"))
					Title = Trim(ArticleRS("Title"))
					LinkStr=" " & TitleCssStr & " href=""" & KSCMS.GetInfoUrl(1,ArticleRS) & """" & OpenTypeStr & " title=""" & Title & """"
					ii=ii + KSCMS.strLength(Title)
					if ii>=ShowNumPerRow then
					cc=ii - ShowNumPerRow
					cc=KSCMS.strLength(Title) - cc
					 row=row+1
					   ii=0
12345

⌨️ 快捷键说明

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