
<%OPTION EXPLICIT%>

<%Server.ScriptTimeOut=5000%>
<!--#include file="inc/incValid.asp"-->
<!--#include FILE="upload_5xsoft.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>
<body>
<%
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象

if upload.form("filepath")="" then   ''得到上传目录
 HtmEnd "请输入要上传至的目录!"
 set upload=nothing
 response.end
else
 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 
end if

iCount=0

for each formName in upload.objFile ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  if(GetAnExtension(file.FilePath&file.FileName)="gif" or GetAnExtension(file.FilePath&file.FileName)="jpg" or GetAnExtension(file.FilePath&file.FileName)="bmp") then
   file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
   session("imgurl")=File.FileName ''保存文件名
   iCount=iCount+1
  else
   HtmEnd "只能上传jpg|gif|bmp的图片！"
   set file=nothing
   set upload=nothing
   response.end
  end if
 else
  HtmEnd "图片大小不能为0！"
  set file=nothing
  set upload=nothing
  response.end
 end if
 set file=nothing
next

set upload=nothing  ''删除此对象
response.Redirect("zhangbei_addition_form_two.asp")

Function GetAnExtension(DriveSpec) 
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

sub HtmEnd(Msg)
 set upload=nothing
 response.write "<br>"&Msg&" [<a href=""javascript:history.back();"">返回</a>]</body></html>"
 response.end
end sub
%>
</body>
</html>