模块 版本
快速入门 1.6.8版本
基础模块 1.6.8版本
数据操作模块 1.6.8版本
客户端获取模块 1.6.8版本
上传服务端模块 1.6.8版本
时间模块 1.6.8版本
加密模块 1.6.8版本
数据流模块 1.6.8版本
远程请求模块 1.6.8版本
JSON模块 1.6.8版本
XML模块 1.6.8版本
FSO模块 1.6.8版本
自定义模块 1.6.8版本
MVC模块 1.6.8版本
二维码模块 1.6.8版本
邮件模块 1.6.8版本
Excel模块 1.7.0版本

上传服务端(Zasp.Upload.Function)

上传服务端模块,作为ZeroASP的多类型数据上传方法,不仅支持原生表单上传模式,还支持AJAX和Flash组件上传。你可以免费将该模块使用于任何个人项目。但是不能去除模块信息。官方QQ群:199951855。


使用上传服务端模块更新说明

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

使用上传服务端模块实例演示

1.服务端接收客户端上传数据;

			 
			<!--#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
			%>
			 

了解更多 »