经典ASP快速连接数组/集合中元素的函数Join

1. Dim strJsons, Result
   
2. Dim objDict
   
3. 
   
4. Set objDict = CreateObject("scripting.dictionary")
   
5.     objDict.Add "{",True
   
6.     objDict.Add """touser"":"""& OPENID &"""," & vbNewLine ,True
   
7.     objDict.Add """template_id"":"""& TempID &""",",vbNewLine
   
8.     objDict.Add "}",vbNewLine
   
9. 
   
10. strJsons= Join(objDict.name, vbNewLine)
    
11. 
    
12. Set objDict =Nothing
    

复制代码