<% Dim TemplateContent,ACT_L,rs,C Set ACT_L = New ACT_Code TemplateContent = ACT_L.LoadTemplate("plus/sitemap.html") Set rs=actcms.actexe("Select ClassID,classname from Class_Act where Parentid = '0' and actlink=1 Order by Orderid asc,ID asc") If Not rs.eof Then Do While Not rs.eof C=C&"

"&rs("classname")&"

"& 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&"
  • "&ACTCMS.ACT_L(cid(I),2)&"
    • "& vbCrLf Next End Function If InStr(TemplateContent, "{$maplist}") > 0 Then TemplateContent = Replace(TemplateContent, "{$maplist}", c) End if TemplateContent = ACT_L.LabelReplaceAll(TemplateContent) response.write TemplateContent Call CloseConn %>