ASP转为JSON格式的函数（简单粗暴新手款，只适合新手用）

<%
response.charset="GB2312"
Function FunToJson(funtjson1,funtjson2,funtjson3)'1是总集合，2是字段，3是值
	if right(funtjson3,1) <>"]" and left(funtjson3,1) <> "[" then'如果是二级值
		funtjson3 = """"&funtjson3&""""
	end if

	if funtjson1 = "" then
	funtjson1 = """"&funtjson2&""":"&funtjson3
	else
		if left(funtjson1,1) = "{" then'判断左边第一个是否｛
			funtjson1 = mid(funtjson1,2)'去掉｛
		else
			response.write "格式错误"
		end if
		if right(funtjson1,1) = "}" then'判断右边第一个是否｝
			funtjson1 = left(funtjson1,len(funtjson1)-1)'去掉｝
		else
			response.write "格式错误"
		end if
		'到这步的时候值变成了类似这样： a:"1",b:"2",c:"3"
		funtjson1= funtjson1&","""&funtjson2&""":"&funtjson3'把新的字段和值加进来
	end if
	funtjson1 = "{"&funtjson1&"}"'加上两边的大括号
end Function

'演示:
FunToJson str,"a","用户名"
FunToJson str,"b","密码"
FunToJson str,"c","中文名"
FunToJson str,"d","[""a"",""b"",""c""]"
FunToJson str,"e","[{""a"":""a1""},{""a2"":""a2""}]"
response.write str

这个是简单粗暴的笨蛋代码，只能用于1-2层的转换，适用于新手，高手勿扰
%>