<% action=SafeRequest("action","get") on error resume next Server.ScriptTimeout = 9999999 Dim Upload,successful,thisFile,upPath,path set Upload=new AnUpLoad Upload.openProcesser=true '打开进度条显示 Upload.SingleSize=CD_UploadSize*1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制，本例为512M Upload.MaxSize=CD_UploadSize*1024*1024 '设置最大上传限制,按字节计；默认为不限制，本例为1G If action="special" Then Upload.Exe=CD_UploadTypeA '设置允许上传的扩展名 ElseIf action="url" Then Upload.Exe=CD_UploadTypeB '设置允许上传的扩展名 Else Upload.Exe=CD_UploadTypeB '设置允许上传的扩展名 End if Upload.GetData() if Upload.ErrorID>0 then upload.setApp "faild",1,0 ,Upload.description else if Upload.files(-1).count>0 then upPath=request.querystring("path") path=server.mappath(upPath) set tempCls=Upload.files("file1") upload.setApp "saving",Upload.TotalSize,Upload.TotalSize,tempCls.FileName If action="special" Then successful=tempCls.SaveToFile(path,0) Conn.DB "insert into CmsDj_Upload(webtype,filename,UserName,totable,uploadtime,url) values('专辑','"&tempCls.NewName&"','"&Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")&"','"&tempCls.Size&"','"&Now()&"','upload/special/"&tempCls.NewName&"')","exe" ElseIf action="url" Then successful=tempCls.SaveToFile(path,0) Conn.DB "insert into CmsDj_Upload(webtype,filename,UserName,totable,uploadtime,url) values('歌曲','"&tempCls.NewName&"','"&Request.Cookies("CmsDJ_AdminCooikes")("CD_AdminUserName")&"','"&tempCls.Size&"','"&Now()&"','upload/url/"&tempCls.NewName&"')","exe" End if thisFile="{name:'" & tempCls.FileName & "',size:" & tempCls.Size & ",LocalName:'" & tempCls.LocalName & "',NewName:'" & tempCls.NewName & "'}" allFiles=allFiles & thisFile & "," set tempCls=nothing upload.setApp "saved",Upload.TotalSize,Upload.TotalSize,left(allFiles,len(allFiles)-1) else upload.setApp "faild",1,0,"没有上传任何文件" end if end if if err then upload.setApp "faild",1,0,err.description set Upload=nothing response.end %>