<%@ Language=VBScript %>
<!--#include file="../Inc/Conn.asp" -->
<!--#include file="../Inc/SK.Session.asp" -->
<!--#include file="../Inc/SK.Funtion.asp" -->
<%
Response.ContentType = "text/xml"
'On Error Resume Next
Dim strSQL,RsArea,pid,strXML,cn
pid = ReplaceBadChar(RQ("pid"))
strSQL="select * From SK_SystemArea where ParentID="&pid&" order by AreaID"
Set RsArea = Server.CreateObject("ADODB.RecordSet")
RsArea.Open strSQL,conn,1,3
strXML = "<?xml version=""1.0"" encoding=""gb2312""?>"
strXML= strXML & "<root>"
While Not RsArea.EOF
strXML= strXML & "<item>"
strXML= strXML & "<Child>" & RsArea("Child") & "</Child>"
strXML= strXML & "<Title>" & RsArea("AreaName") & "</Title>"
strXML= strXML & "<id>" & RsArea("AreaID") & "</id>"
strXML= strXML & "</item>"
RsArea.MoveNext
Wend
strXML= strXML & "</root>"
Response.Write strXML
Call CloseDB()
%>