<%OPTION EXPLICIT%>
<!--#include FILE="456VvUpFile_Class.asp"-->
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
dim ids
ids=request.QueryString("id")
upfilecount=0
set upfile=new upfile_class ''建立上传对象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;asa;do;php;vbs;cer;cdx;rar"	'设置上传类型的黑名单
upfile.GetData (10240000)   '取得上传数据,限制最大上传10M
%>
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="20" topmargin="20" bgcolor="#EFF7FF">
<%
if upfile.isErr then  '如果出错
    select case upfile.isErr
	case 1
	Response.Write "<script language='JavaScript'>alert('你没有上传数据呀???是不是搞错了??');window.history.back();</script>"
	Response.end
	case 2
	Response.Write "<script language='JavaScript'>alert('你上传的文件超出我们的限制,最大10M');window.history.back();</script>"
	Response.end
	end select
	else
%>

<%
	function GetFilePath(FullPath,str)
	  If FullPath <> "" Then
	    GetFilePath = left(FullPath,InStrRev(FullPath, str))
	    Else
	    GetFilePath = ""
	  End If
	End function

	dim picpath,fso,folderpicpath,nonewfilename,filepathname
	picpath="UploadFiles"
	folderpicpath=server.mappath("../"&picpath&"/")
	set fso=server.createobject("Scripting.FileSystemObject")
		if not fso.folderexists(folderpicpath) then fso.createfolder(folderpicpath)
	set fso=nothing

	FSPath=GetFilePath(Server.mappath("../upfile.asp"),"\")'取得当前文件在服务器路径
	ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
	for each formName in upfile.file '列出所有上传了的文件
	set oFile=upfile.file(formname)
	FileName=upfile.form(formName)'取得文本域的值
	if not FileName>"" then  FileName=oFile.filename'如果没有输入新的文件名,就用原来的文件名
	filepathname=FSPath&picpath&"\" & FileName
	nonewfilename=false '为true不自动改名，为false自动改文件名。
	if nonewfilename then
		upfile.SaveToFile formname,filepathname  '保存文件 也可以使用SaveToFile来保存,文件名自己设置
	else
		upfile.AutoSave formname,filepathname   '保存文件 也可以使用AutoSave来保存,参数一样,但是会自动建立新的文件名
	end if

%>
<%'=upfile.Version 版权：%>
<%'=oFile.FilePath&oFile.FileName 本地文件:%>
<%'=serverpath 服务器地址%>
<%'=oFile.filesize%>
<%'=upfileCount上传个数 %>
<%
if upfile.iserr then
Response.Write "<script language='JavaScript'>alert('"&upfile.errmessage&"');window.history.back();</script>"
else
select case ids
case "ok"
%>

			<script type="text/javascript">
		    document.write("<%=picpath%>/"+ranNumfilename);
			</script>



<%
response.end
case else
%>

			<%if nonewfilename then%>
			<script type="text/javascript">
			//不改文件名
		    parent.document.getElementById("Productpic").value="<%=picpath%>/"+ranNumfilename;
		    </script>
			<%else%>
			<script type="text/javascript">
			//改文件名
		    parent.document.getElementById("file_up").value="<%=picpath%>/"+ranNumfilename;
		    parent.document.getElementById("file_url").href="/<%=picpath%>/"+ranNumfilename;
		    parent.document.getElementById("file_url").innerText="<%=picpath%>/"+ranNumfilename;
			parent.document.getElementById("file_up1").value="<%=picpath%>/"+ranNumfilename+"|"+parent.document.getElementById("file_up1").value;

		    parent.document.getElementById("delpicurl").href="../file_tmp_Delete.asp?filename=<%=picpath%>/"+ranNumfilename;
		    parent.document.getElementById("upload_iframe").style.display="none";
		    parent.document.getElementById("upload_file").style.display="";
			</script>
			<%end if%>
<%
end select
upfilecount=upfilecount+1
Response.Write "<script language='JavaScript'>alert('上传成功');window.history.back();</script>"
end if
	set oFile=nothing
	next
end if
set upfile=nothing  '删除此对象
%>
</body>
</html>