<%@ 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
              module_id =objUpload.Form("module_id") 'ȡ��fieldname�����ֵ
              filename=objUpload.filename("FileName") 'ȡ���ϴ��ļ����ļ��
			  '��ʾ�ϴ�������Ϣ 
			  response.write "<font size=2 >"
			  response.write "�ϴ�ͼƬ���"&filename&"<br>"
              response.write "ͼƬ��С��"&filenamesize&"<br>"
              response.write "</font>"
              ''''''''''''''''
              
              
              'ɾ��ԭ����ͼ��
               set conn = application("acn") ' ����DataBase
              Set rs = server.CreateObject("adodb.recordset")
			sql = "select show1_color from list_module where module_id ="&module_id
			rs.Open sql,conn
			if not (rs.BOF and rs.EOF) then 
				pic_name = rs("show1_color")
			end if 
			rs.Close 
					

			Set fso1 = CreateObject("Scripting.FileSystemObject")
			destination = server.MapPath("..\Images") 
			if fso1.FileExists(destination&"\"&pic_name ) then fso1.DeleteFile(destination&"\"&pic_name)
              
              '����ݿ�����¼��
              str = "update list_module_s set show1_color = '"&filename&"'  where module_id ="&module_id
             
			  conn.Execute(str)
              response.write "<font size=2 >"
              response.write "�ļ��ϴ��ɹ���<a href='module_edit_s.asp?module_id="&module_id&"'>����</a>"
              response.write "</font>"
              
        Else  '�ϴ�����
              response.write varResult  '��ʾ������Ϣ
        End If 
		Set objUpload = Nothing
		set fso =nothing  
End If
%>