<%@ Language="VBScript" %>

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
	Set objUpload = Server.CreateObject("aspcn.upload")
	Set fso = CreateObject("Scripting.FileSystemObject")   
	
	
	  
	objupload.maxsize=100000000	'�趨�ļ���󳤶Ȳ�����100K,Ĭ��ֵΪ100K
	objupload.overwrite=2     '�趨��Ŀ���ļ����ڣ����и��ǣ�Ĭ��Ϊ1����ʾ���ܸ���
	objupload.uptofile=1  ' �˴���uptofile����Ϊ1,����ϴ��󱣴��ļ���ΪĬ��ֵ����2 ��ʾ������ֻ�������
	      
	TempDir = server.MapPath("..\Images") 
	
	
	objUpload.path=TempDir   '�趨�ϴ����������·����������Ϊ����·����Ĭ��ֵΪc:\   
	varResult = objUpload.Upload '����upload�������ļ�����  
	
	      
	'����upload�������ļ�����
	'
	'objupload.newfilename= upfile  '�˴������ϴ�����ļ�������趨��ֵ��һ��ֻ���ϴ�һ���ļ�
				
	'����Ϊֹ����varResult����OK�����ļ����سɹ�
	If varResult="OK" Then  '��varResult����OK,���ļ����سɹ�
                '������������������ϴ���Щʲô����
	            'ȡ�ø���Ĵ�С����д����ʱ����ע�������ֵĴ�Сд
	            
	            
  			  filenamesize= objUpload.size("FileName")  'ȡ��upload.htm�ļ���FileName����Ĵ�С
		      fieldnamesize= objupload.size("fieldname") 'ȡ��upload.htm �ļ���fieldanme����Ĵ�С
		      totalcount=objupload.Count
              hp_flag =objUpload.Form("hp_flag") 'ȡ��fieldname�����ֵ
              sort_id =objUpload.Form("sort_id") '
              pic_width =objUpload.Form("pic_width") '
              pic_height =objUpload.Form("pic_height") 
              filename=objUpload.filename("FileName") 'ȡ���ϴ��ļ����ļ��
			  '��ʾ�ϴ�������Ϣ 
			  response.write "<font size=2 >"
			  response.write "�ϴ�ͼƬ���"&filename&"<br>"
              response.write "ͼƬ��С��"&filenamesize&"<br>"
              response.write "</font>"
              ''''''''''''''''
              
              '����ݿ�����¼��
              str = "insert into  list_htmpage ( hp_flag, sort_id ,  pic_name , pic_width , pic_height) values "&_ 
					" ( '"&hp_flag&"',"&sort_id&",'"&filename&"' ,"&pic_width&" ,"&pic_height&"  )"
			
			 		
              set conn = application("acn") ' ����DataBase
			  conn.Execute(str)
              response.write "<font size=2 >"
              response.write "�ļ��ϴ��ɹ���<a href='htmpage_set.asp'>����</a>"
              response.write "</font>"
              
        Else  '�ϴ�����
              response.write varResult  '��ʾ������Ϣ
        End If 
		Set objUpload = Nothing
		set fso =nothing  
End If
%>