创建你的第一个ZeroASP程序。
1.7.0版本核心基础通用类等。
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数据，减少手动拼接带来的错误。
1.7.0版本读取XML数据和生成XML数据等方法。
1.7.0版本文件夹和文件操作的增删查改方法。
1.7.0版本方便开发者整合自己的功能方法。
1.7.0版本更令人满意的处理关联数据的解决方法。
1.7.0版本采用CDO组件发送，支持SSL协议。
1.7.0版本符合经典ASP3.0编程为基础的MVC。
1.7.0版本生成二维码，保存二维码，二维码图片转换。
1.7.0版本生成图片验证码，支持标准格式。
1.7.0版本采用Excel组件导入导出，支持标准格式。
1.7.0版本生成条形码，支持标准格式。
1.7.0版本支持阿里短信发送，支付宝支付核心等。
1.7.0版本支持微信消息，微信支付核心等。
图片/文件上传模块，作为ZeroASP的多类型数据上传方法，不仅支持原生表单上传模式，还支持AJAX、H5和Flash组件上传。你可以免费将该模块使用于任何个人项目。但是不能去除模块信息。官方QQ群：199951855。
Save()：客户端上传数据进行服务端获取处理；
<!--#include file="./ZeroASP/ZeroASP.asp"--> <% Dim SavePath,CallBack '设置上传操作Uid Zasp.Upload.SetUid() = "88888888" '设置上传文件类型 Zasp.Upload.SetFileExt() = "jpg|gif|png|bmp" '设置上传保存路径 SavePath = Zasp.PathLevel() & "/upfiles/88888888/" Zasp.Upload.SetSavePath() = SavePath Call Zasp.FSO.AutoCreateFolder(SavePath) '设置回调显示路径 Zasp.Upload.SetNotifyPath() = Zasp.Ec(Zasp.Req.Domain(0)) & "/upfiles/88888888/" '执行上传 CallBack = Zasp.Upload.Save() '上传通知 Zasp.Echo(CallBack) %>
注：设置上传操作Uid是为了自动适配前端分块上传后端分块处理，例如百度的Web Uploader。
SaveAs()：客户端上传数据进行服务端获取处理（1.7.0以下版本使用）；
<!--#include file="./ZeroASP/ZeroASP.asp"-->
<%
'因为上传为特殊模块，不需要激活Zasp核心时创建
Dim Upload,AllowFile,AllowSavePath,AllowShowPath,FormName,File,FileName,Cb
Set Upload = New ZeroASP_Upload
'上传文件类型
AllowFile = "jpg|gif|png|rar|zip|doc|bmp"
'上传保存路径
AllowSavePath = "./files/"
'回调显示路径
AllowShowPath = "./files/"
Call Zasp.FSO.AutoCreateFolder(AllowSavePath)
Upload.AllowFile = AllowFile
Upload.AllowSavePath = AllowSavePath
Upload.AllowShowPath = AllowShowPath
For Each FormName In Upload.File
Set File = Upload.File(FormName)
File.SaveAs Server.Mappath(AllowSavePath & LCase(File.FileName))
If File.FileName <> "" Then '判断是否存在文件，非空
'If Zasp.FSO.IsImg(AllowSavePath & LCase(File.FileName)) = True Then '检测图片是否为正常图片
FileName = Split(Mid(File.FileName,InStrRev(File.FileName,"\") + 1),".")
If Instr(AllowFile,FileName(1)) > 0 Then
Cb = Cb & """fileUrl"":""" & AllowShowPath & LCase(File.FileName) & ""","
End If
'Else
'Call Zasp.FSO.DeleteFile(AllowSavePath & LCase(File.FileName)) '删除文件
'End If
End If
Set File = Nothing
Next
If Len(cb) > 0 Then
Zasp.Echo("{""error"":""0"",""data"":[{" & Left(cb,Len(cb) - 1) & "}],""tips"":""上传成功""}")
Else
Zasp.Echo("{""error"":""1"",""data"":[],""tips"":""上传失败""}")
End If
%>