<!--#include file="CommonCode.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Set xmlconfig = Nothing
If Action <> "xml" Then strtmp = strtmp & "<?xml-stylesheet type=""text/xsl"" href=""index.xsl"" version=""1.0""?>"

Dim i, nodeCount, BlogSql, SQ_Hits, nodeLis
Set xmlconfig = Server.CreateObject("Microsoft.XMLDOM")
xmlconfig.async = False
xmlconfig.Load (Server.MapPath("config.xml"))
Set bootnode = xmlconfig.getElementsByTagName("item")
nodeCount = bootnode.length
If nodeCount > 0 Then
	SQ_Hits = XmlText("ShowSource", "Space/HitsOfHot", "100")
	On Error Resume Next
	For i = 1 To nodeCount
		Set SubNode = bootnode.nextNode()
		BlogSql = SubNode.selectSingleNode("sql").Text
		If Trim(SubNode.selectSingleNode("sqlwhere").Text & "") <> "" Then
			BlogSql = BlogSql & " where " & SubNode.selectSingleNode("sqlwhere").Text
			If TypeID > 0 Then
				BlogSql = BlogSql & " and A.ClassID=" & TypeID
			End If
		Else
			If TypeID > 0 Then
				BlogSql = BlogSql & " where A.ClassID=" & TypeID
			End If
		End If
		If Trim(SubNode.selectSingleNode("sqlorder").Text & "") <> "" Then
			BlogSql = BlogSql & " order by " & SubNode.selectSingleNode("sqlorder").Text
		End If
		BlogSql = Replace(Replace(Replace(Replace(Replace(Replace(BlogSql, "SQ_True", SQ_True), "SQ_False", SQ_False), "SQ_OrderType", SQ_OrderType), "SQ_Now", SQ_Now), "SQ_DatePart_D", SQ_DatePart_D), "SQ_Hits", SQ_Hits)
		Call GetBlogItem(SubNode.selectSingleNode("name").Text, BlogSql)
	Next
End If
Set xmlconfig = Nothing

'输出聚合器分类列表
Call GetBlogClassList

'输出公告列表
Call GetAnnounceList

'输出频道列表
Call GetChannelList

strtmp = strtmp & XMLDOM.documentElement.xml

Set Node = Nothing
Set SubNode = Nothing
Set XMLDOM = Nothing

Response.Write strtmp
Call CloseConn
%>