<!--#include file="fy_inc/fy.User.asp"-->
<%
		Dim ACTCLS,ModeID
		Dim Url,urlarr,ACT_L,UserHS,ACT_Lable,PerPageNumber,TypeContent,UserID,PayTF,classid
		Dim CurrPage,ID,InfoPurview,ReadPoint,ClassPurview,ClassReadPoint,UserLoginTF,ChargeType,PitchTime,ReadTimes
  	  Set ACT_L = New ACT_Code
	  Set UserHS = New ACT_User
  
  	 
			Dim RsClass,SqlStr,TemplateContent,PageStyle,sqlstrs
			 classid = Rsql(fycms.s("cid"))
 	 
 			 CurrPage=ChkNumeric(fycms.s("page"))
 			 If CurrPage<=0 Then CurrPage=CurrPage+1
 			  If  classid = "" Then  Call fycms.Alert("非法参数!",fycms.Domain):die ""

			 If IsNumeric(classid)=True Then 
				If Len(classid)<4 Then 
					sqlstrs=" id="&classid
				Else 
					sqlstrs=" classid="&classid

				End If 
 			 Else 
 					sqlstrs=" enname='"&classid&"'"
			 End If

			 Set RsClass=fycms.actexe("Select FolderTemplate,classid,Extension,rootid,GroupIDClass,ModeID,actlink,content,makehtmlname From Class_fy Where " & sqlstrs )
 			 IF RsClass.Eof And RsClass.Bof Then
			  Call fycms.Alert("非法参数!",fycms.Domain)
			  die ""
			 End If
  			Application(fycmsN & "fycms_TCJ_Type") = "FOLDER"
			 If RsClass("actlink")="2" Then 
				response.Redirect RsClass("makehtmlname")
				response.end
			  End If 
  			ModeID= RsClass("ModeID")
  			classid= RsClass("classid")
			 Application(fycmsN & "classid")= RsClass("classid")
			 Application(fycmsN & "modeid")= modeid
 			 TemplateContent = LoadTemplate(RsClass("FolderTemplate"))
 			
  			 Dim newt:Set newt=New Cls_Template
 			 TemplateContent=newt.GetTabContentPage(TemplateContent,ClassID,CurrPage,fycms.getclasspath(classid),"index.html",false,"")'自定义函数
			


			 Dim userlogin:userlogin=CBool(UserHS.UserLoginChecked)
			 If userlogin=True Then 
				TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=1")
			 Else 
				TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=0")
			 End If 

  			 TemplateContent=InStrRep(TemplateContent,"{info:content}",fycms.ACT_L(Application(fycmsN & "classid"),18))'统一栏目和插件的单页调用
 			 TemplateContent = InStrRep(TemplateContent, "{info:title}",fycms.ACT_L(Application(fycmsN & "classid"),2))
			If userlogin=True Then 
				Dim usersqlstr,usrs
				usersqlstr="select f.* from User_fy F inner join "&fycms.ACT_U(UserHS.UModeID,2)&" U on F.userid=U.userid where u.userid="&userhs.userid&"   order by u.userid desc"
				Set usrs=fycms.actexe(usersqlstr)
				If  Not   usrs.eof Then  TemplateContent = newt.GetUserInfo(TemplateContent,usrs)
			Else 
				TemplateContent = newt.GetnoUserInfo(TemplateContent,"")
			End If 	 
 			 echo TemplateContent&vbcrlf & "<!-- Created Page at " & Now() & " ,By fycms.com ,ACT Content Management System(fycms) 合肥安川网络  -->" & vbCrLf
		'  echo fycms.Runtime

 	 
  %>