<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'call checkPrevilege(Session("Name"),"p01")
'''''''''''''''''''''''''''''''''''''''''''''''
response.Charset="GB2312"
response.ContentType="text/xml"
Dim ParentId,ClassSql,RsClassObj,clid
if not isempty(request.QueryString("classid")) then
	ParentId=Clng(request.QueryString("classid"))
else
	response.Write("<script>alert(""´íÎóµÄIDºÅ"");</script>")
	response.End()
end if
ClassSql = "Select id,title from t_area where pid="&ParentId
Set RsClassObj = Conn.Execute(ClassSql)
response.Write("<?xml version=""1.0"" encoding =""GBK""?>"&Chr(13))
response.Write("<root>"&Chr(13))
do while Not RsClassObj.Eof
	response.Write("<area>"&Chr(13))
	response.Write("	<id>"&RsClassObj("id")&"</id>"&Chr(13))
	response.Write("	<title>"&RsClassObj("title")&"</title>"&Chr(13))
	response.Write("</area>"&Chr(13))
RsClassObj.MoveNext
loop
'response.Write("<catalog>"&Chr(13))
'response.Write("	<id>0</id>"&Chr(13))
'response.Write("	<title>ÆäËü</title>"&Chr(13))
'response.Write("</catalog>"&Chr(13))
response.Write("</root>"&Chr(13))
RsClassObj.close
set RsClassObj=nothing
call connclose()
%>