第1个回答
Sunly2019.05.14回答这个叫asp无组件上传文件。下面我把上传操作的这一段贴出来。subUpFile()setUpload=newUpFile_Class'建立上传对象Upload.GetData(1024*1024*55)'取得上传数据,此处即为15MifUpload.err>0thenselectcaseUpload.errcase1Response.Write"请先选择您要上传的文件,<ahref=#onclick=history.go(-1)>返回</a> !"case2Response.Write"文件大小超过了限制15M,<ahref=#onclick=history.go(-1)>返回</a> !"endselectexitsubelseSaveToPath=Upload.form("SaveToPath")'文件保存目录,此目录必须为程序可读写ifSaveToPath=""thenSaveToPath="../"endif'在目录后加(/)ifright(SaveToPath,1)<>"/"thenSaveToPath=SaveToPath&"/"endifforeachFormNameinUpload.file'列出所有上传了的文件setfile=Upload.file(FormName)'生成一个文件对象iffile.Filesize<100thenresponse.write"请先选择您要上传的文件,<ahref=#onclick=history.go(-1)>返回</a> !"response.endendifFileExt=lcase(File.FileExt)ifCheckFileExt(FileEXT)=falsethenresponse.write"文件格式不允许上传,<ahref=#onclick=history.go(-1)>返回</a> !"response.endendifrandomizetimerRanNum=int(9000*rnd)+1000Filename=SaveToPath&year(now)&"."&month(now)&"."&day(now)&"_"&hour(now)&"."&minute(now)&"."&Second(now)&"_"&RanNum&"."&fileExtiffile.FileSize>0then'如果FileSize>0说明有文件数据Result=file.SaveToFile(Server.mappath(FileName))'保存文件ifResult="ok"thenresponse.write"<tablewidth='100%'border='0'cellspacing='0'cellpadding='0'>"response.write"<tr>"response.write"<tdwidth='60'height='30'>上传成功:</td>"response.write"<tdnowrap><fontcolor='#ff0000'>"&File.FilePath&file.FileName&"</font></td>"response.write"</tr>"response.write"<tr>"response.write"<tdnowrapheight='30'>保存路径:</td>"response.write"<tdnowrap><inputtype='text'size='56'class='textfield'value='/"&right(FileName,len(FileName)-3)&"'></td>"'-3为最新修改response.write"</tr>"response.write"<tr>"response.write"<tdnowrapheight='30'>文件大小:</td>"response.write"<tdnowrap><inputtype='text'size='56'class='textfield'value='"&GainFileSize(file.Filesize)&"'></td>"response.write"</tr>"response.write"<tr>"'-3为最新修改response.write"<tdheight='36'colspan='2'valign='bottom'align='center'><inputname='CopyPath'type='button'class='button'value='拷贝文件路径并关闭或手动复制'onclick=""JavaScript:CopyPath('/"&right(FileName,len(FileName)-3)&"','"&GainFileSize(file.Filesize)&"')""></td>"response.write"</tr>"response.write"</table>"elseresponse.writeFile.FilePath&file.FileName&"上传失败 !"&Result&"<br>"endifendifsetfile=nothingnextsetUpload=nothingendifendsub上传文件前需要判断文件格式,也就是文件后缀,只允许部分格式就可以了,不能上传一些可运行的文件格式,如aspaspxphp等程序文件。不然上传文件这个功能就会成为一大漏洞。
第2个回答
云修网2019.01.03回答你找个ASP的文件网站模板,就可以实现了。