<!--#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 catalogs where parentID="&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("<catalog>"&Chr(13))
	response.Write("	<classid>"&RsClassObj("id")&"</classid>"&Chr(13))
	response.Write("	<catatitle>"&RsClassObj("title")&"</catatitle>"&Chr(13))
	response.Write("</catalog>"&Chr(13))
RsClassObj.MoveNext
loop
response.Write("</root>"&Chr(13))
RsClassObj.close
set RsClassObj=nothing
call connclose()
%>