攻击exp: 最先来搭建所需要的环境和数据结构!先新建一个名字叫photo的文件夹。(我在这里就是把图片上传到这个文件夹里的。)确立一个名字叫database的数据库。再接着确立一个名字叫sFile的表。内外设计四个字段分别是id(int),image(varchar),image1(varchar),image2(varchar)。我这里用的数据库是SQL。相关的文件register.asp文件
图片上传 | (此处用户不必填图片上传后自动天生) |
reg_upload.asp
选择图片 |
|
upfile.asp
文件上传lt;dim arr(3)dim upload,file,formName,formPath,iCount,filename,fileExt,iset upload=new upload_5xSoft ''''确立上传工具 formPath=upload.form("filepath")''''在目录后加(/)if right(formPath,1)lt;gt;"/" then formPath=formPathamp;"/" iCount=0i=0for each formName in upload.file ''''列出所有上传了的文件set file=upload.file(formName) ''''天生一个文件工具 if file.filesizelt;0 thenresponse.write "
请先选择你要上传的图片 [ 重新上传 ]"response.endend if if file.filesizegt; thenresponse.write "
图片大小超过了限制 [ 重新上传 ]"response.endend ifif fileEXTlt;gt;".gif" and fileEXTlt;gt;".jpg" thenresponse.write "
文件花样纰谬 [ 重新上传 ]"response.endend if fileExt=lcase(right(file.filename,4))filename=formPathamp;year(now)amp;month(now)amp;day(now)amp;hour(now)amp;minute(now)amp;second(now)amp;file.FileNamearr(i)=filenamei=i+1 if file.FileSizegt;0 then ''''若是 FileSize gt; 0 说明有文件数据file.SaveAs Server.mappath(filename) ''''保留文件'' response.write file.FilePathamp;file.FileNameamp;" ("amp;file.FileSizeamp;") =gt; "amp;formPathamp;File.FileNameamp;" 乐成!
" iCount=iCount+1end ifset file=nothingnextif instr(arr(0),".")=0 and instr(arr(1),".")=0 and instr(arr(2),".")=0 thenresponse.write "
请先选择你要上传的图片 [ 重新上传 ]"response.endend ifif instr(arr(0),".")lt;gt;0 thenresponse.write ""elseresponse.write ""end ifif instr(arr(1),".")lt;gt;0 thenresponse.write ""elseresponse.write ""end ifif instr(arr(2),".")lt;gt;0 thenresponse.write ""elseresponse.write ""end ifset upload=nothing ''''删除此工具 session("upface")="done" Htmend iCountamp;" 个文件上传竣事!" sub HtmEnd(Msg)set upload=nothingresponse.write "
文件上传乐成
谢谢你的支持!
本窗口三秒后自动关闭
"response.endend subgt;upload.inc
版权声明:
1、本文由SEO作者-小六SEO原创公布,保留著作所有权,转载请注明泉源,否则谢绝转载;
2、非原创内容会有明确作者及泉源标注。
上一篇:先办事后付款的黑客,若是是真的黑客,我信赖能办到
下一篇:先办事后付款的黑客qq若何找正规的黑客(先办事后付款的黑客
相关内容