<!--#include file="../admin_inc.asp"-->
<!--#include file="../../inc/UpLoad_Class.asp"-->
<%
'===========================无组件上传============================
dim upload,file,result,up_formPath,up_Path
up_Path=Fun.replaceStr(requestArrey("",0)(0),"*","/")
set upload = new AnUpLoad
upload.Exe = "jpg|gif|zip|png|swf|rar|txt|html|asp|dll|mdb|js|css|xml|config|mdf|ldf"
upload.CharSet="utf-8"
upload.MaxSize = 1000 * 1024 * 1024 '1000M
upload.GetData()
if upload.ErrorID>0 then 
  Fun.echo upload.Description
else
  set file = upload.files("Filedata")
  if not(file is nothing) then
	set result = file.saveToFile(up_Path&up_formPath,1,true)
	if not result.error then
	  Fun.echo up_Path&up_formPath&upload.Forms("xcid")&"@"&up_Path&up_formPath&upload.Forms("xcid")&"@"&upload.Forms("xcid")
	else
	  Fun.echo file.Exception
	end if
  end if
end if
set file = nothing
set upload = nothing
%>