<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'call checkPrevilege(Session("Name"),"p01")
'''''''''''''''''''''''''''''''''''''''''''''''
response.Charset="GB2312"
response.ContentType="text/xml"
Dim table
id=Cint(request.querystring("id"))
response.Write("<?xml version=""1.0"" encoding =""GBK""?>"&Chr(13))
response.Write("<root>"&Chr(13))
set rs=server.createobject("adodb.recordset")
rs.open "select TableName from t_module where id="&id,conn,3,1
if not rs.eof then
	response.Write("<table>"&Chr(13))
	response.Write(""&rs(0)&""&Chr(13))
	response.Write("</table>"&Chr(13))
end if
rs.close
set rs=server.createobject("adodb.recordset")
rs.open "select id,FName,FTitle from t_fields where ModuleId="&id,conn,3,1
while not rs.eof	
	response.Write("<field>"&Chr(13))
	response.Write("	<id>"&rs(0)&"</id>"&Chr(13))
	response.Write("	<FName>"&rs(1)&"</FName>"&Chr(13))
	response.Write("	<FTitle>"&rs(2)&"</FTitle>"&Chr(13))
	response.Write("</field>"&Chr(13))
	rs.movenext
wend
response.Write("</root>"&Chr(13))
rs.close
set rs=nothing
call connclose()
%>