Empecé a aprender el uso de JSON en ASP hace algún tiempo. De hecho, JSON es más conveniente que XML. Solía considerar el uso de XML para almacenar datos cuando escribía programas, pero siempre me resultó problemático generar documentos, llamar y consultar documentos. Y cuando desee utilizar un determinado nodo, debe analizarlo cuidadosamente y posicionar la ruta del nodo nivel por nivel. La mayor ventaja de JSON es que cuando lo usa, solo necesita declarar la cadena de datos como un objeto y puede llamar fácilmente a cada miembro del objeto. También es conveniente utilizar Javascript en el cliente para llamar directamente a la cadena de datos generada por el programa.
Cualquiera que utilice ASP sabe que ASP puede utilizar dos tipos de motores de secuencias de comandos, a saber, VBSCRIPT y JSCRIPT. No conocía JSCRIPT en absoluto cuando comencé a estudiar. Si lo hubiera sabido, creo que no tendría que pasar por tantos problemas para convertir los datos JSON a JSCRIPT antes de poder usarlos en VBSCRIPT. Afortunadamente, ambos motores de secuencias de comandos tienen sus propias ventajas y desventajas. He estado trabajando con VBSCRIPT durante más de dos años. Aunque no es fuerte, me he acostumbrado a algunos de sus métodos de uso y he formado mis propias especificaciones de salida de código. .
El archivo de clase JSON oficial es muy conveniente y puede definir y generar de manera flexible el formato de datos JSON que desee. ¡Clasifiqué los archivos oficiales de la clase y los ajusté a un formato que encuentro muy conveniente!
Archivo de clase JSON ajustado, dirección del archivo de código:
Código fuente del archivo de clase ASP Json
Ejemplos de uso de código:
1. Crea un objeto JSON
Copie el código de código de la siguiente manera:
Establecer CNodeJson = Nuevo Json_Cls
CNodeJson.QuotedVars=false 'Si el nombre del objeto está entre comillas
CNodoJson(ID)=1
CNodeJson(Nombre)=Nube.L
CNodeJson(BlogName)=Blog de Cloud.L
SetCNodeJson=Nada
2. Crea otro objeto dentro del objeto.
Copie el código de código de la siguiente manera:
Establecer CNodeJson = Nuevo Json_Cls
CNodeJson.QuotedVars=false 'Si el nombre del objeto está entre comillas
CNodoJson(ID)=1
CNodeJson(Nombre)=Nube.L
CNodeJson(BlogName)=Blog de Cloud.L
Establecer CNodeJson(SiteList)=Nuevo Json_Cls
CNodeJson(Lista de sitios)(Blog)=http://www.vevb.com
CNodeJson(SiteList)(CSDN)=http://hi.csdn.net/lingyun410
SetCNodeJson=Nada