asp XML과 JSON출력 형식

프로모션시 사용자 정보 등 리스트를 가져올때 사용하였음.

XML :

sXmlText = ""
sXmlText = sXmlText & "<?xml version='1.0' encoding='euc-kr'?>"
If nTotalRow = -1 Then
	sXmlText = sXmlText & "<lists>"
	sXmlText = sXmlText & "<total><page>" & nTotalRow & "</page></total>" 
	sXmlText = sXmlText & "</lists>"
Else
	sXmlText = sXmlText & "<lists>"
	sXmlText = sXmlText & "<total><page>" & nTotalRow & "</page></total>" 
	For i = 0 To nTotalRow
	sXmlText = sXmlText & "<item>"
	sXmlText = sXmlText & "	<seq><![CDATA["& List(0,i) &"]]></seq>"
	sXmlText = sXmlText & "	<code><![CDATA["& List(1,i) &"]]></code>"
	sXmlText = sXmlText & "	<name><![CDATA["& List(2,i) &"]]></name>"
	sXmlText = sXmlText & "</item>"
	Next
	sXmlText = sXmlText & "</lists>"
End If


Response.ContentType = "text/xml" 
REsponse.WRite sXmlText
Response.End

JSON :

sJsonText = ""
sJsonText = sJsonText & "[{'LIST':["

sJsonText = sJsonText & "{'필드1' : '"& List(0, i) &"',"
sJsonText = sJsonText & "'필드2' : '"& List(1, i) &"',"
sJsonText = sJsonText & "'필드3' : '"& List(2, i) &"',"
sJsonText = sJsonText & "'필드4' : '"& List(3, i) &"'}"

sJsonText = sJsonText & "]}]"

sJsonText = Replace(sJsonText,"'",Chr(34))

Response.write sJsonText