<%@ 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
              info_id =objUpload.Form("info_id") 'ȡ��fieldname�����ֵ
              pic_width =objUpload.Form("pic_width") '
              pic_height =objUpload.Form("pic_height") 
              pic_note =objUpload.Form("pic_note") 
			  filename=objUpload.filename("FileName") 'ȡ���ϴ��ļ����ļ��
			  '��ʾ�ϴ�������Ϣ 
			  response.write "<font size=2 >"
			  response.write "upload filename :"&filename&"<br>"
              response.write "file size : "&filenamesize&"<br>"
              response.write "</font>"
              ''''''''''''''''
              
              '����ݿ�����¼��
              str = "insert into  list_infopic  ( info_id , pic_name , pic_width , pic_height , pic_note ) values "&_ 
					" ("&info_id&",'"&filename&"' ,"&pic_width&" ,"&pic_height&"  ,'"&pic_note&"')"
              set conn = application("acn") ' ����DataBase
			  conn.Execute(str)
              response.write "<font size=2 >"
              response.write "<b>success !</b><a href='info_edit.asp?info_id="&info_id&"'>return</a>"
              response.write "</font>"
              
        Else  '�ϴ�����
              response.write varResult  '��ʾ������Ϣ
        End If 
		Set objUpload = Nothing
		set fso =nothing  
End If
%>