myupfile.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="myupgroupware.inc"-->
<%'引用上传组件文件%>

<%
'定义上传组件对象upload
set upload=new upgroupware
'判断是否是上传标识
if upload.form("act")="uploadfile" then
	'设置上传路径
	'filepath=trim(upload.form("filepath"))
	filepath="pic/"
	i=0
	for each formName in upload.File
		'获取上传文件名
		set file=upload.File(formName)
   '得到的文件扩展名不含有.并转换成大写
   fileExt=lcase(file.FileExt)
   '判断上传文件是否有数据流
   if file.filesize<1 then
	  response.write "<script language=javascript>alert('请先选择你要上传的文件！');history.go(-1);</script>"
	  response.end
   end if
   '判断上传文件格式是否为"bmp","jpg","gif","png".如果想扩展可以在条件添加的
   if (fileExt<>"bmp") and (fileExt<>"jpg") and (fileExt<>"gif") and (fileExt<>"png")  and (fileExt<>"swf") then
	  response.write "<script language=javascript>alert('该文件类型不能上传！');history.go(-1);</script>"
	  response.end
   end if
   '判断上传文件数据大小:M*1024=Mk
   if file.filesize>(10240000) then
		response.write "<script language=javascript>alert('图片文件大小不能超过1000K！');history.go(-1);</script>"
		response.end
   end if

logo=upload.Form("logo")
if logo<>"-" then
 filename=logo
else
 randomize
 ranNum=int(90000*rnd)+10000
 filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
end if
%>
<%
 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&"'</script>"
%>
<%
end if
set file=nothing
next
set upload=nothing
end if
%>
<script language="javascript">
window.alert("文件上传成功!！");
window.close()
</script>