showclass.asp

本系统是根据科汛系统编写的程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../KS_Cls/KS.UserCls.asp"-->
<!--#include file="../KS_Cls/KS.RCls.asp"-->
<!--#include file="config.asp"-->
<%

Dim KSCls
Set KSCls = New PictureClass
KSCls.kesion()
Set KSCls = Nothing

Class PictureClass
        Private KS,KSUser,KSRFObj,KMRFObj
		Private FileContent,SqlStr,ID,CurrPage,RSObj,UserLoginTF,PerPageNumber,PageStyle
		Private Sub Class_Initialize()
		  Set KS=New PublicCls
		  Set KSUser=New UserCls
		  Set KSRFObj = New Refresh
		  Set KMRFObj= New RefreshFunction
		End Sub
        Private Sub Class_Terminate()
		 Call CloseConn()
		 Set KS=Nothing
		 Set KSUser=Nothing
		 Set KMRFObj=Nothing
		End Sub
		Public Sub kesion()
		  
		  ID=KS.R(KS.S("ID"))
		  CurrPage=KS.ChkClng(KS.S("Page"))
		  If CurrPage<=0 Then CurrPage=CurrPage+1

		 IF ID="" Then Exit Sub
		 SqlStr= "Select * From KS_Class Where ClassID=" & ID
		 Set RSObj=Server.CreateObject("Adodb.Recordset")
		 RSObj.Open SqlStr,Conn,1,1
		 IF RSObj.Eof And RSObj.Bof Then
		  Call KS.Alert("非法参数!","")
		  Exit Sub
		 End IF
			Response.Cookies(KS.SiteSN)("RefreshType") = "Folder"
            Response.Cookies(KS.SiteSN)("ChannelID")=8
			Response.Cookies(KS.SiteSN)("RefreshFolderID") = RSObj("ID")
			If Trim(RSObj("TN")) = "0" Then
				Response.Cookies(KS.SiteSN)("RefreshChannelHomeFlag") = True
			Else
				Response.Cookies(KS.SiteSN)("RefreshChannelHomeFlag") = False
			End If
			 FileContent = KSRFObj.LoadTemplate(RSObj("FolderTemplateID"))
			 FileContent = KSRFObj.ReplaceGeneralLabelContent(FileContent)
			 FileContent = KSRFObj.ReplaceAllLabel(FileContent)
			 FileContent = KSRFObj.ReplaceLableFlag(FileContent) '替换函数标签
			 FileContent=Replace(FileContent,"{$PageList}",KS.GetPageList("?ID=" & ID,Application(KS.SiteSN&"PageStyle"),CurrPage,Application("PageNum"),true))
			
			
			'GetLastSupplyList,PerPageNumber,ColNumber,ShowStyle,PicWidth,PicHeight,ThumbsBorderType,ThumbsBorder, OpenType,ContentLen, TitleLen, GQSort,  NavType, Nav,  SplitPic, DateRule, TitleCss, ShowClassName,ShowGQType,ShowNewFlag,PageStyle, PrintType,DivID,DivClass,UlID,UlClass,LiID,LiClass
			Dim PageParamArr:PageParamArr=Split(Application("PageParam"),",")
			If Ubound(PageParamArr)>0 Then
			  If PageParamArr(0)="GetLastSupplyList" Then
			       PageStyle=PageParamArr(20)'分页样式
				Dim SQLStr,CurrPageStr,FolderID:FolderID=RSObj("ID")
				SQLStr = "SELECT ID FROM KS_GQ WHERE Tid in (" & KS.GetFolderTid(FolderID) & ")  AND Verific=1 AND DelTF=0  order by  IsTop Desc,ID Desc"
				 Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
				 RS.Open SQLStr, Conn, 1, 1
				If RS.EOF And RS.BOF Then
						TempStr = "<p>此栏目下没有供求信息</p>"
				Else
						   PerPageNumber=cint(PageParamArr(1))
						   Dim PageNum, I, J, k, TempStr, OpenTypeStr,totalput,TempIDArrStr
							TotalPut = RS.recordcount
							if (TotalPut mod PerPageNumber)=0 then
								PageNum = TotalPut \ PerPageNumber
							else
								PageNum = TotalPut \ PerPageNumber + 1
							end if
							If CurrPage = 1 Then
									TempIDArrStr=GetTempIDArrStr(rs)
							Else
									If (CurrPage - 1) * PerPageNumber < totalPut Then
										RS.Move (CurrPage - 1) * PerPageNumber
										TempIDArrStr=GetTempIDArrStr(rs)
									Else
										CurrPage = 1
										TempIDArrStr=GetTempIDArrStr(rs)
									End If
							End If
							SqlStr = "SELECT * FROM KS_GQ Where ID in (" & TempIDArrStr & ") AND Verific=1 AND DelTF=0 order by IsTop Desc," & PageParamArr(11)
							If Cint(PageParamArr(21))=2 Then
						     TempStr =  KMRFObj.KS_C_S_L_DC(SqlStr, PageParamArr(3), PageParamArr(4), PageParamArr(5),KS.GetOpenTypeStr(PageParamArr(8)), PageParamArr(9), PageParamArr(10), PageParamArr(12), PageParamArr(13), "",PageParamArr(15),PageParamArr(16),PageParamArr(17),PageParamArr(18),PageParamArr(19),PageParamArr(22),PageParamArr(23),PageParamArr(24),PageParamArr(25),PageParamArr(26),PageParamArr(27))
							Else
							'GQSql,ShowStyle,PicWidth,PicHeight,ThumbsBorderType,ThumbsBorder, OpenTypeStr, ContentLen, TitleLen, ColNumber, NavType, Nav,  MoreLinkStr, SplitPic, DateRule, TitleCss,ShowClassName,ShowGQType,ShowNewFlag
						   TempStr =  KMRFObj.KS_C_S_L(SqlStr, PageParamArr(3), PageParamArr(4), PageParamArr(5),  PageParamArr(6), PageParamArr(7),KS.GetOpenTypeStr(PageParamArr(8)), PageParamArr(9), PageParamArr(10), PageParamArr(2), PageParamArr(12), PageParamArr(13), "", PageParamArr(14), PageParamArr(15),PageParamArr(16),PageParamArr(17),PageParamArr(18),PageParamArr(19))
						   End If
							TempStr = TempStr & KS.GetPrePageList(PageStyle,"条",PageNum,CurrPage,TotalPut,PerPageNumber)& KS.GetPageList("?ID=" & ID,PageStyle,CurrPage,PageNum, True) 
					 End If
					  RS.Close:Set RS = Nothing
			  End If
			End If
			 FileContent=Replace(FileContent,Application("PageParam"),TempStr)
			 FileContent = KSRFObj.ReplaceRA(FileContent, Trim(RSObj("FolderDomain")))
		 Response.write FileContent
		 RSObj.Close:Set RSObj=Nothing
	   End Sub
	   
	   Function GetTempIDArrStr(rs)
	     Dim I,K,SQL
		 SQL=RS.GetRows(-1)
		 For K=0 To Ubound(SQL,2)
		 GetTempIDArrStr = GetTempIDArrStr &SQL(0,K) & ","
		 I = I + 1
		  If I >= PerPageNumber Then Exit For
		 Next
		 GetTempIDArrStr = Left(GetTempIDArrStr, Len(GetTempIDArrStr) - 1)
	   End Function
End Class
%>
<%
'==================================================
'邮箱: [e-mail]		
'网站: www.zxzyw.cn
'==================================================
%>