<!--#include file="../fy_inc/fy.User.asp"-->
<%	


	Dim TemplateContent,ACT_L,rs,C
    Set ACT_L = New ACT_Code
	TemplateContent = LoadTemplate("plus/sitemap.html")
	
	Set rs=fycms.actexe("Select ClassID,classname from Class_fy where rootid=0 and actlink=1 Order by Orderid asc,ID asc")
	If Not rs.eof Then 
		Do While Not rs.eof
				C=C&"<div class=""linkbox""><h3><a target='_blank' href='"&fycms.DiyClassName(rs("classid"))&"'>"&rs("classname")&"</a></h3><ul class=""f6"">	"& vbCrLf
				C=C&CL(fycms.TempClassID(rs("classid"),","))&"</ul></div>"& vbCrLf
 		rs.movenext
		loop
 	End If 

	Function cl(classid)
		Dim cid,i
		classid=Replace(ClassID,"'","")
		cid=Split(classid,",")
		For I = 0 To UBound(cid)
 			CL=cl&"   <li><a href='"&fycms.DiyClassName(cid(I))&"'>"&fycms.ACT_L(cid(I),2)&"</a></li>"& vbCrLf
		Next 
 	End Function 
 	If InStr(TemplateContent, "{$maplist}") > 0  Then
	   TemplateContent = Replace(TemplateContent, "{$maplist}", c)
	End if
 	 TemplateContent = ACT_L.LabelReplaceAll(TemplateContent)
 	 echo TemplateContent
	Call CloseConn

%>