<!--#include file="../../fy_inc/fy.User.asp"-->
  <% 
	 Dim  ACT_L,rs,SqlStr,TemplateContent,KeyWord,ModeID
	 Dim pages,UID,CurrPage,title
	Dim Rs1,fycms_Book,cid
	Set Rs1=fycms.ACTEXE("Select PlusConfig,IsUse from Plus_fy where PlusID='lyxt_fy'")
	If Rs1("IsUse")=1 Then Call fycms.alert("该系统已经被管理员关闭","")
	fycms_Book=Split(Rs1(0),"^@$@^")
	cid=ChkNumeric(request("cid"))
	Application(fycmsN & "fycms_TCJ_Type")= "OTHER"
	Application(fycmsN & "fycmsTCJ")="留言本"
	Application(fycmsN & "link")=fycms.actsys&"plus/book/index.asp"
	Application(fycmsN & "ClassID")="0"
	Application(fycmsN & "ModeID")=1
 	 CurrPage = ChkNumeric(request("page"))
 	 ModeID = ChkNumeric(request("ModeID"))
	 If ModeID=0 Then ModeID=1
	 If cid>0 Then 

		 TemplateContent =  LoadTemplate(fycms.bookclasslist(cid,3))
	 Else 
		 TemplateContent =  LoadTemplate(fycms_Book(7))
	 End If 
	KeyWord=RSQL(request("KeyWord"))
	 pages="index.asp?cid="&cid&"&page="
	 Dim newt:Set newt=New Cls_Template
	 Dim UserHS,userlogin
	 Set UserHS = New ACT_User
	 If userlogin=True Then 
		TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=1")
	 Else 
		TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=0")
 	 End If 
		TemplateContent=rep(TemplateContent,"{fy:classname}",fycms.bookclasslist(cid,1))
	 
 	 TemplateContent=newt.GetTabContentPage(TemplateContent,"0",CurrPage,"","index.html",false,pages)'自定义函数



 



	 echo   TemplateContent
	
 %>
