<!--#include file="../conn/conn2.asp" -->
<!--#include file="../conn/function.asp" -->
<!--#include file="AienUpload/update_Class.asp"-->
<%
D_domain=split(split("http://"&LCase(Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")),"http://")(1),"/upload")(0)

server.ScriptTimeout=999999
Dim Upload,path,tempCls,newName

'---------------------------------------------------------------------------------------------
'组件设置a.MD5File为2，3时 的实例代码

if Trim(Request.QueryString("access2008_cmd"))="2" then '服务器提交MD5验证后的文件信息进行验证

	
	Response.Write(0) '返回命令  0 = 开始上传文件， 2 = 不上传文件，前台直接显示上传完成
	Response.End()
	
	
elseif Trim(Request.QueryString("access2008_cmd"))="3" then '服务器提交文件信息进行验证

	
	Response.Write(1)'返回命令 0 = 开始上传文件,1 = 提交MD5验证后的文件信息进行验证, 2 = 不上传文件，前台直接显示上传完成
	Response.End()
	
end if
'---------------------------------------------------------------------------------------------
	
	'===============================================================================
	 set Upload=new AnUpLoad				 				'创建类实例
	 Upload.SingleSize=2*1024*1024            		'设置单个文件最大上传限制,按字节计；默认为不限制
	 Upload.MaxSize=200*1024*1024*1024            			'设置最大上传限制,按字节计；默认为不限制
	 Upload.Exe="bmp|png|jpeg|jpg|gif"          			'设置合法扩展名,以|分割,忽略大小写
	 Upload.Charset="utf-8"									'设置文本编码，默认为utf-8
	 Upload.openProcesser=false								'禁止进度条功能，如果启用，需配合客户端程序
	 Upload.GetData()										'获取并保存数据,必须调用本方法
	 newName = 0											'是否已新文件名保存文件,0 = 重新命名,1 = 原文件名
	 
	 sql="Select * from SL_Psort Where S_id="&Upload.forms("select")
		set rs=Server.CreateObject("ADODB.RecordSet")
		rs.open sql,conn,1,1
		S_sub=rs("S_sub")
		rs.close
set rs=nothing

	'===============================================================================
	 if Upload.ErrorID>0 then								'判断错误号,如果myupload.Err<=0表示正常
		response.write Upload.Description 					'如果出现错误,获取错误描述
	 else
		if Upload.files(-1).count>0 then 					'这里判断你是否选择了文件
				path=server.mappath("../media") 				'文件保存路径(这里是当前文件夹)
				'保存第一个文件(以新文件名保存)
				set tempCls=Upload.files("Filedata") 
				tempCls.SaveToFile path,newName
				response.write tempCls.FileName & " upload OK! <br />"


picname=split(tempCls.FileName,".")
productname=split(tempCls.LocalName,".")
conn.Execute ("insert into SL_product(P_path,P_thumb,P_title,P_content,P_sort,P_price,P_short,P_shuxing) values('media/"&tempCls.FileName&"','media/"&tempCls.FileName&"','"&productname(0)&"','"&productname(0)&"',"&Upload.forms("select")&",100,'"&productname(0)&"','')")
		else
				response.Write "您没有上传任何文件！"
		end if
	 end if
	 set Upload=nothing                   '销毁类实例
%>