<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''
'call checkPrevilege(Session("Name"),"p01")
'''''''''''''''''''''''''''''''''''''''''''''''
response.Charset="GB2312"
response.ContentType="text/xml"
Dim table
table=request.querystring("table")
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from "&table,conn,3,1
response.Write("<?xml version=""1.0"" encoding =""GBK""?>"&Chr(13))
response.Write("<root>"&Chr(13))
for i=0 to rs.fields.count-1		
	response.Write("<field>"&Chr(13))
	response.Write("	<title>"&rs(i).name&"</title>"&Chr(13))
	response.Write("</field>"&Chr(13))
next
response.Write("</root>"&Chr(13))
rs.close
set rs=nothing
call connclose()
%>