创建JSON对象，并使用VBScipt

Question

我初学者开发web服务的是找到那么请帮忙解决我的问题

我需要创建一个VBS（VBScript）的数据传递到服务器上的文件中该如何创建JSON字符串和JSON对象传递给Java RESTful Web服务

下面是我的代码，但它不是一个JSON形式，请帮助创建一个对象的JSON形式

surl="http://localhost:8080/de.vogella.jersey.first/rest/hello/add" 
Set objNetwork = CreateObject("Wscript.Network") 
strComputer = objNetwork.ComputerName 
json="name="+strComputer+"&age=24" 
'json="name=strComputer&age=24" 
HTTPPost sUrl,json 
Function HTTPPost(sUrl,json) 

'Microsoft.XMLHTTP 
set OHTTP = CreateObject("MSXML2.serverXMLHTTP") 
OHTTP.open "POST",surl,false 
msgbox(surl & json) 


OHTTP.setRequestHeader "Content-Type","application/x-www-form-urlencoded" 
OHTTP.setRequestHeader "Content-Length","Len(json)" 
OHTTP.setRequestHeader "Pragma","no-cache" 
OHTTP.setRequestHeader "Expires","-1" 
OHTTP.setRequestHeader "Connection","close" 

OHTTP.send json 

'HTTPPOST = oHTTP.responseText 
msgbox(OHTTP.responseText) 
End Function 

预先感谢您花费的宝贵时间我的问题

Answer 1

这会有所帮助：

http://code.google.com/p/aspjson/