1.7.0版本

快速入门

创建你的第一个ZeroASP程序。

1.7.0版本

基础模块

核心基础通用类等。

1.7.0版本

数据操作模块

具备多种数据库的数据解决方案。

1.7.0版本

请求获取模块

包括GET,POST,数据流等等客户端数据。

1.7.0版本

图片/文件上传模块

支持原生表单,AJAX和Flash组件上传。

1.7.0版本

时间模块

具备多种时间处理方法。

1.7.0版本

加密模块

支持多种加密解密解决方案。

1.7.0版本

数据/文本流模块

不仅适用于上传支持,还适用于远程请求支持。

1.7.0版本

远程请求模块

API请求核心功能。

1.7.0版本

JSON模块

读写JSON数据,减少手动拼接带来的错误。

1.7.0版本

XML模块

读取XML数据和生成XML数据等方法。

1.7.0版本

FSO模块

文件夹和文件操作的增删查改方法。

1.7.0版本

自定义模块

方便开发者整合自己的功能方法。

1.7.0版本

字典模块

更令人满意的处理关联数据的解决方法。

1.7.0版本

邮件模块

采用CDO组件发送,支持SSL协议。

1.7.0版本

MVC模块

符合经典ASP3.0编程为基础的MVC。

1.7.0版本

二维码模块

生成二维码,保存二维码,二维码图片转换。

1.7.0版本

图片验证码模块

生成图片验证码,支持标准格式。

1.7.0版本

Excel模块

采用Excel组件导入导出,支持标准格式。

1.7.0版本

条形码模块

生成条形码,支持标准格式。

1.7.0版本

阿里云模块

支持阿里短信发送,支付宝支付核心等。

1.7.0版本

微信模块

支持微信消息,微信支付核心等。

JSON(Zasp.JSON.Function)

JSON模块,作为ZeroASP的JSON主要输出方法,可以读取JSON数据和写JSON数据,减少手动拼接带来的错误。你可以免费将该模块使用于任何个人项目。但是不能去除模块信息。官方QQ群:199951855。


使用JSON模块更新说明

  • 下载相应模块后,打开ZeroASP/Extend/文件夹路径,覆盖新版模块即可;

JSON模块方法

IsJSON():判断是否为JSON格式数据,返回True和False;

IsJSON([参数1=内容])

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data
			Data = "{""Name"":""John"",""Age"":""25""}"
			Zasp.Echo(Zasp.JSON.IsJSON(Data))
			%>

读取JSON格式数据(例子1);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data
			Data = "{""Name"":""John"",""Age"":""25""}"
			Zasp.JSON.LoadJSON(Data)
			Zasp.Echo(Zasp.JSON.Data("Name"))
			%>

读取JSON格式数据(例子2);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data,This
			Data = "{""Name"":""John"",""Age"":""25"",""PhoneNumber"":{""Number"":""555-1234""}}"
			Zasp.JSON.LoadJSON(Data)
			Set This = Zasp.JSON.Data("PhoneNumber")
			Zasp.Echo(This.Item("Number"))
			%>

读取JSON格式数据(例子3);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data,Phonenr,This
			Data = "{""Name"":""John"",""PhoneNumber"":[{""Type"":""Home"",""Number"":""555-1234""},{""Type"":""Fax"",""Number"":""555-4567""}]}"
			Zasp.JSON.LoadJSON(Data)
			For Each Phonenr In Zasp.JSON.Data("PhoneNumber")
				Set This = Zasp.JSON.Data("PhoneNumber").Item(Phonenr)
				Zasp.Echo(This.Item("Type") & ":" & This.Item("Number"))
			Next
			%>

读取JSON格式数据(例子4);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data,J,This,JJ
			Data = "{""Actuals"":[{""Actual"":{""Actual"":{""ProjectsFlag"":""1234"",""PlcSales"":[{""StructurePath"":""Un45"",""EndDate"":""9999-12-31T23:59:59.999+0800"",""ChannelName"":""中文""}]}}}]}"
			Zasp.JSON.LoadJSON(Data)
			For Each J In Zasp.JSON.Data("actuals")
				Set This = Zasp.JSON.Data("actuals")(J)
				Set This(J) = This("actual")
				Set This(This(J)) = This(J)("actual")
				For Each JJ In This(This(J))("plcSales")
					Set This = This(This(J))("plcSales")(JJ)
					Zasp.Echo(This("structurePath"))
					Zasp.Echo(This("endDate"))
					Zasp.Echo(This("channelName"))
				Next
			Next
			%>

读取多个JSON格式数据(例子5);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Dim Data
			Data = "{""Name"":""John"",""Age"":""25""}"
			Set Zasp.JSON = New ZeroASP_JSON
			Zasp.JSON.LoadJSON(Data)
			Zasp.Echo(Zasp.JSON.Data("Name"))
			Set Zasp.JSON = Nothing
			Dim This
			Data = "{""Name"":""John"",""Age"":""25"",""PhoneNumber"":{""Number"":""555-1234""}}"
			Set Zasp.JSON = New ZeroASP_JSON
			Zasp.JSON.LoadJSON(Data)
			Set This = Zasp.JSON.Data("PhoneNumber")
			Zasp.Echo(This.Item("Number"))
			Set Zasp.JSON = Nothing
			%>

生成JSON格式数据(例子1);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Zasp.JSON.Data.Add("Name"),("John")
			Zasp.JSON.Data.Add("Age"),("25")
			Zasp.Echo(Zasp.JSON.JSONoutput(""))
			%>

生成JSON格式数据(例子2);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			Zasp.JSON.Data.Add("Name"),("John")
			Zasp.JSON.Data.Add("Age"),("25")
			Zasp.JSON.Data.Add("PhoneNumber"),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Add(0),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Type"),("Home")
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Number"),("555-1234")
			Zasp.Echo(Zasp.JSON.JSONoutput("PhoneNumber:[Type-Number]"))
			%>

生成JSON格式数据(例子3);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			'一级-1
			Zasp.JSON.Data.Add("Name"),("John")
			Zasp.JSON.Data.Add("Age"),("25")
			Zasp.JSON.Data.Add("PhoneNumber"),Zasp.JSON.Collection()
				'二级-1
				Zasp.JSON.Data("PhoneNumber").Add(0),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Type"),("Home")
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Number"),("555-1234")
				'二级-2
				Zasp.JSON.Data("PhoneNumber").Add(1),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Item(1).Add("Type"),("Fax")
				Zasp.JSON.Data("PhoneNumber").Item(1).Add("Number"),("555-4567")
			Zasp.Echo(Zasp.JSON.JSONoutput(""))
			%>

生成JSON格式数据(例子4);

			<!--#include file="./ZeroASP/ZeroASP.asp"-->
			<%
			'一级-1
			Zasp.JSON.Data.Add("Name"),("John")
			Zasp.JSON.Data.Add("Age"),("25")
			Zasp.JSON.Data.Add("PhoneNumber"),Zasp.JSON.Collection()
				'二级-1
				Zasp.JSON.Data("PhoneNumber").Add(0),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Type"),("Home")
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Number"),("555-1234")
				Zasp.JSON.Data("PhoneNumber").Item(0).Add("Address"),Zasp.JSON.Collection()
					'三级-1
					Zasp.JSON.Data("PhoneNumber").Item(0).Item("Address").Add(0),Zasp.JSON.Collection()
					Zasp.JSON.Data("PhoneNumber").Item(0).Item("Address").Item(0).Add("OldAddress"),("San Francisco")
					'三级-2
					Zasp.JSON.Data("PhoneNumber").Item(0).Item("Address").Add(1),Zasp.JSON.Collection()
					Zasp.JSON.Data("PhoneNumber").Item(0).Item("Address").Item(1).Add("NewAddress"),("New York")
				'二级-2
				Zasp.JSON.Data("PhoneNumber").Add(1),Zasp.JSON.Collection()
				Zasp.JSON.Data("PhoneNumber").Item(1).Add("Type"),("Company")
				Zasp.JSON.Data("PhoneNumber").Item(1).Add("Number"),("666-1234")
				Zasp.JSON.Data("PhoneNumber").Item(1).Add("Address"),("")
			'输出JSON
			Zasp.Echo(Zasp.JSON.JSONoutput(""))
			%>

注:使用非字符串变量时需要增加Zasp.Base.ToStr方法转换为字符串常量。


了解更多 »

了解更多 »