<!--#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)
set xmlhttp=server.createobject("microsoft.XMLHTTP")
If Err Then
Err.Clear
set xmlhttp=server.createobject("MSXML2.XMLHTTP")
end if
xmlhttp.open "Post","http://"&D_domain&"/theme/"&C_no&"/config.asp",false
xmlhttp.send
xmlpass=xmlhttp.responsetext
set xmlhttp=nothing
C_config=xmlpass
P_thumbw=split(C_config,"|")(16)
P_thumbh=split(C_config,"|")(17)

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

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

if Trim(Request.QueryString("access2008_cmd"))="2" then '服务器提交MD5验证后的文件信息进行验证
	'Trim(Request.QueryString("access2008_File_name")) 	'文件名
	'Trim(Request.QueryString("access2008_File_size"))	'文件大小，单位字节
	'Trim(Request.QueryString("access2008_File_type"))	'文件类型 例如.gif .png
	'Trim(Request.QueryString("access2008_File_md5"))	'文件的MD5签名
	
	Response.Write(0) '返回命令  0 = 开始上传文件， 2 = 不上传文件，前台直接显示上传完成
	Response.End()
	
	
elseif Trim(Request.QueryString("access2008_cmd"))="3" then '服务器提交文件信息进行验证
	'Trim(Request.QueryString("access2008_File_name")) 	'文件名
	'Trim(Request.QueryString("access2008_File_size"))	'文件大小，单位字节
	'Trim(Request.QueryString("access2008_File_type"))	'文件类型 例如.gif .png
	
	Response.Write(1)'返回命令 0 = 开始上传文件,1 = 提交MD5验证后的文件信息进行验证, 2 = 不上传文件，前台直接显示上传完成
	Response.End()
	
end if
'---------------------------------------------------------------------------------------------
	
	'===============================================================================
	 set Upload=new AnUpLoad				 				'创建类实例
	 Upload.SingleSize=100*1024*1024*1024            		'设置单个文件最大上传限制,按字节计；默认为不限制
	 Upload.MaxSize=200*1024*1024*1024            			'设置最大上传限制,按字节计；默认为不限制
	 Upload.Exe="bmp|png|jpeg|jpg|gif"          			'设置合法扩展名,以|分割,忽略大小写
	 Upload.Charset="utf-8"									'设置文本编码，默认为gb2312
	 Upload.openProcesser=false								'禁止进度条功能，如果启用，需配合客户端程序
	 Upload.GetData()										'获取并保存数据,必须调用本方法
	 newName = 0											'是否已新文件名保存文件,0 = 重新命名,1 = 原文件名
	'===============================================================================
	 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 />"
'*******************************************************************************************
P_width=P_thumbw
P_height=P_thumbh

Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath("../media/"&tempCls.FileName) '处理图片路径
Jpeg.Open Path '打开图片
Jpeg.Interpolation=0
Jpeg.Quality=100
P_Jwidth=Jpeg.OriginalWidth
P_Jheight=Jpeg.OriginalHeight
if P_width<>"" and P_height<>"" and C_cut=1 then
if Jpeg.OriginalHeight/P_height > Jpeg.OriginalWidth/P_width then
Jpeg.Width =  P_width
Jpeg.Height = Jpeg.OriginalHeight*P_width/Jpeg.OriginalWidth 
Jpeg.crop 0,Jpeg.Height/2-P_height/2,P_width,Jpeg.Height/2+P_height/2
else
Jpeg.Height = P_height
Jpeg.Width = Jpeg.OriginalWidth*P_height/Jpeg.OriginalHeight
Jpeg.crop Jpeg.Width/2-P_width/2,0,Jpeg.Width/2+P_width/2,P_height
end if
end if
Jpeg.Save Server.MapPath("../media/_"&P_Jwidth&"_"&P_Jheight&"_"&tempCls.FileName)
S_name="media/_"&P_Jwidth&"_"&P_Jheight&"_"&tempCls.FileName
S_bname="media/_"&P_Jwidth&"_"&P_Jheight&"_b"&tempCls.FileName
Jpeg.Close:Set Jpeg = Nothing	

Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath("../media/"&tempCls.FileName) '处理图片路径
Jpeg.Open Path '打开图片
Jpeg.Interpolation=0
Jpeg.Quality=100
P_Jwidth=Jpeg.OriginalWidth
P_Jheight=Jpeg.OriginalHeight
Jpeg.Save Server.MapPath("../media/_"&P_Jwidth&"_"&P_Jheight&"_b"&tempCls.FileName)
Jpeg.Close:Set Jpeg = Nothing	
'******************************************************************************************

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