gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/UpFile/upload.asp
<!--#include file="upload.inc"--> <style> td{font-size:9pt;line-height:120%;color:#353535} body{font-size:9pt;line-height:120%} a:link { color: #000000; text-decoration: none } a:visited { color: #000000; text-decoration: none } a:active { color: #000000; text-decoration: none } a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px } </style> <% set upload=new upload_file if upload.form("act")="uploadfile" then filepath=trim(upload.form("filepath")) filelx=trim(upload.form("filelx")) i=0 for each formName in upload.File set file=upload.File(formName) fileExt=lcase(file.FileExt) '得到的文件扩展名不含有. if file.filesize<100 then response.write "<span style=""font-family: 宋体; font-size: 9pt"">请先选择你要上传的文件! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if if (filelx<>"swf") and (filelx<>"jpg") and (filelx<>"rar") then response.write "<span style=""font-family: 宋体; font-size: 9pt"">该文件类型不能上传! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if if filelx="swf" then if fileext<>"swf" then response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传swf格式的Flash文件! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if end if if filelx="jpg" then if fileext<>"gif" and fileext<>"jpg" then response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传jpg或gif格式的图片! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if end if if filelx="swf" then if file.filesize>(3000*1024) then response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 3M 的Flash文件! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if end if if filelx="jpg" then if file.filesize>(2000*1024) then response.write "<span style=""font-family: 宋体; font-size: 9pt"">最大只能上传 2000K 的图片文件! [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>" response.end end if end if randomize ranNum=int(90000*rnd)+10000 filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt %> <% if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 'file.SaveAs Server.mappath(filename) ''保存文件 file.SaveToFile Server.mappath(FileName) 'response.write file.FileName&" 上传成功! <br>" 'response.write "新文件名:"&FileName&"<br>" 'response.write "新文件名已复制到所需的位置,可关闭窗口!" if filelx="swf" then response.write "<script>window.opener.document."&upload.form("FormName")&".size.value='"&int(file.FileSize/1024)&" K'</script>" end if 'response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'<1/script>" '小柯修改过 FileName="adpic/" &year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt response.write "<script>window.opener.document."&upload.form("FormName")&"."&upload.form("EditName")&".value='"&FileName&"'</script>" %> <% end if set file=nothing next set upload=nothing end if %> <script language="javascript"> window.alert("文件上传成功!"); window.close(); </script>