|
|
- Dim strJsons, Result
- Dim objDict
- Set objDict = CreateObject("scripting.dictionary")
- objDict.Add "{",True
- objDict.Add """touser"":"""& OPENID &"""," & vbNewLine ,True
- objDict.Add """template_id"":"""& TempID &""",",vbNewLine
- objDict.Add "}",vbNewLine
-
- strJsons= Join(objDict.name, vbNewLine)
- Set objDict =Nothing
-
|
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡