showclass.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_UserCommonCls.asp"-->
<!--#include file="../SysCls/KS_RefreshCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :[e-mail] [e-mail]
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New PictureClass
KSCls.Execute()
Set KSCls = Nothing

Class PictureClass
        Private KSCMS,KSUser,KSRFObj
		Private FileContent,SqlStr,ID,CurrPage,RSObj,UserLoginTF
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		  Set KSUser=New UserCls
		  Set KSRFObj = New Refresh
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		 Set KSUser=Nothing
		End Sub
		Public Sub Execute()
		  
		  ID=KSCMS.ReplaceBadChar(KSCMS.G("ID"))
		  CurrPage=KSCMS.ChkClng(KSCMS.G("Page"))
		  If CurrPage<=0 Then CurrPage=CurrPage+1

		 IF ID="" Then Exit Sub
		 SqlStr= "Select * From KS_Class Where ID='" & ID & "'"
		 Set RSObj=Server.CreateObject("Adodb.Recordset")
		 RSObj.Open SqlStr,Conn,1,1
		 IF RSObj.Eof And RSObj.Bof Then
		  Call KSCMS.Alert("非法参数!","")
		  Exit Sub
		 End IF
		   If RSObj("ClassPurview")=2 Then
		     If Cbool(KSUser.UserLoginChecked)=false Then Call KSCMS.Alert("本栏目为认证栏目，至少要求本站的注册会员才能浏览!",KSCMS.GetDomain & "Member/login.asp"):Response.End
		   End If
			Application(KSCMS.SiteSN & "RefreshType") = "PictureFolder"
			Application(KSCMS.SiteSN & "RefreshFolderID") = RSObj("ID")
			If Trim(RSObj("TN")) = "0" Then
				Application(KSCMS.SiteSN & "RefreshChannelHomeFlag") = True
			Else
				Application(KSCMS.SiteSN & "RefreshChannelHomeFlag") = False
			End If
			

		 FileContent = KSRFObj.LoadTemplate(RSObj("FolderTemplateID"))
		 FileContent = KSRFObj.ReplaceGeneralLabelContent(FileContent)
		 FileContent = KSRFObj.ReplaceAllLabel(FileContent)
		 If InStr(FileContent, "{$GetLastPictureList(") <> 0 Then FileContent = Replace(FileContent, "{$GetLastPictureList(", "{PageListStr}{$GetLastPictureList(")

		    FileContent = KSRFObj.ReplaceLableFlag(FileContent) '替换函数标签
			If (InStr(FileContent, "{PageListStr}") <> 0) And (Application(KSCMS.SiteSN & "PagePictureList") <> "") Then
			  Call GetPageStr(Application(KSCMS.SiteSN & "PagePictureList"), FileContent, True)
			  Application.Contents.Remove (KSCMS.SiteSN & "PagePictureList")
			End If
			 FileContent = Replace(FileContent, "{PageListStr}", "")
			 FileContent = KSRFObj.ReplaceRA(FileContent, Trim(RSObj("FolderDomain")))
		 Response.write FileContent
		 RSObj.Close:Set RSObj=Nothing
	   End Sub
	   
	   		'-----------------------------------------------------------------------------------------------------------------------------
		'过程名：GetPageStr
		'作  用：取得分页的通用函数
		'参  数：PageContent--分页内容,TemplateContent--待保存的文件内容,ShowTurnToFlag ---是否显示转到下拉框		'------------------------------------------------------------------------------------------------------------------------------
		Sub GetPageStr(PageContent, TemplateContent, ShowTurnToFlag)
			Dim PageStr, I, PageContentArr, J, SelectStr
			Dim TotalPage

			  PageContentArr = Split(PageContent, "[NextPage]")
			  TotalPage = UBound(PageContentArr)
		
			   If CurrPage = 1 And CurrPage <> TotalPage Then
				PageStr = "首页  上一页 <a href=""ShowClass.asp?ID=" & ID & "&Page=" & CurrPage + 1 & """>下一页</a>  <a href= ""ShowClass.asp?ID=" & ID & "&Page=" & TotalPage & """>尾页</a>"
			   ElseIf CurrPage = 1 And CurrPage = TotalPage Then
				PageStr = "首页  上一页 下一页 尾页"
			   ElseIf CurrPage = TotalPage And CurrPage <> 2 Then  '对于最后一页刚好是第二页的要做特殊处理
				 PageStr = "<a href=""ShowClass.asp?ID=" & ID & """>首页</a>  <a href=""ShowClass.asp?ID=" & ID & "&Page=" & CurrPage - 1 & """>上一页</a> 下一页  尾页"
			   ElseIf CurrPage = TotalPage And CurrPage = 2 Then
				 PageStr = "<a href=""ShowClass.asp?ID=" & ID & """>首页</a>  <a href=""ShowClass.asp?ID=" & ID & """>上一页</a> 下一页  尾页"
			   ElseIf CurrPage = 2 Then
				PageStr = "<a href=""ShowClass.asp?ID=" & ID & """>首页</a>  <a href=""ShowClass.asp?ID=" & ID & """>上一页</a> <a href=""ShowClass.asp?ID=" & ID & "&Page=" & CurrPage + 1 & """>下一页</a>  <a href= ""ShowClass.asp?ID=" & ID & "&Page=" &TotalPage & """>尾页</a>"
			   Else
				PageStr = "<a href=""ShowClass.asp?ID=" & ID & """>首页</a>  <a href=""ShowClass.asp?ID=" & ID & "&Page=" & CurrPage - 1 & """>上一页</a> <a href=""ShowClass.asp?ID=" & ID & "&Page=" & CurrPage + 1 & """>下一页</a>  <a href= ""ShowClass.asp?ID=" & ID & "&Page=" & TotalPage & """>尾页</a>"
			   End If
			   
			   If CBool(ShowTurnToFlag) = True Then
				  PageStr = PageStr & " 转到：<select name=""page"" size=""1"" onchange=""javascript:window.location=this.options[this.selectedIndex].value;"">"
				  For J = 1 To TotalPage
				   If J = CurrPage Then
					 SelectStr = " selected"
				   Else
					 SelectStr = ""
				   End If
				   If J = 1 Then
					 PageStr = PageStr & "<option value=""ShowClass.asp?ID=" & ID & """" & SelectStr & ">第" & J & "页</option>"
				   Else
					 PageStr = PageStr & "<option value=""ShowClass.asp?ID=" & ID & "&Page=" & J & """" & SelectStr & ">第" & J & "页</option>"
				   End If
			   Next
				  PageStr = PageStr & "</select>"
			   End If
			   If TotalPage<=1 Then CurrPage=1
			   
			   FileContent = Replace(TemplateContent, "{PageListStr}", PageContentArr(CurrPage-1) & PageStr & "</td></tr></table>")             
			   			   
		End Sub

End Class
%>