<%
DirUrl="../../"
'静态配置条目
h_UpRoot  = "../../upload_files"          '上传文件夹 [该文件夹必须存在]
%>
<!--#include file="../inc/up_function.asp"-->
<!--#include file="../inc/up_class.asp"-->
<!--#include file="../inc/const.asp"-->
<%
'On Error Resume Next
Server.ScriptTimeOut=888

    Set upload=new Upload_File '建立名为upload新上传对象
    Set ObjFile=upload.file("FileData")

    '处理文件名，应验证格式需要放在前面
	FilePrefixName=DateToStr(Now(),"YmdHIS")&randomStr(0,4)
	FileName=FilePrefixName&"."&ObjFile.FileExt
	
	'将扩名名改为小写
	FileExt=LCase(ObjFile.FileExt)
	
	If FileExt="jpg" or FileExt="gif" or FileExt="jpg" or FileExt="png" Then
	Else
		Response.End()
	End If
	
	'处理使用时的上传文件夹
    UpPath=h_UpRoot&"" '定义上传路径
    '利用上传类的SaveAs方法对上传的文件进行保存
    ObjFile.SaveAs Server.mappath(UpPath&"/"&FileName)
	
	'处理使用时的上传文件夹
    UpPath=h_UpRoot&"" '定义上传路径
    '利用上传类的SaveAs方法对上传的文件进行保存
    ObjFile.SaveAs Server.mappath(UpPath&"/"&FileName)
	
	'获取文件路径
    FileURL=UpPath&"/"&FileName
	
	'aspJpeg处理图片
	If BolCheckObj("Persits.Jpeg")=True Then
		'SmallW=thumb_pic_W
		'SmallPicH=thumb_pic_H
		
		SmallW=thumb_pic_W
		SmallPicH=thumb_pic_H
		MediumW=thumbm_pic_W
		MediumPicH=thumbm_pic_H

		if thumb_pic=1 then
			FileNameS=split(FileName,".")
			ResizeImg FileURL,UpPath&"/"&FileNameS(0)&"_thumb."&FileNameS(1),SmallW,SmallPicH
			ResizeImg FileURL,UpPath&"/"&FileNameS(0)&"_thumbm."&FileNameS(1),MediumW,MediumPicH
			'ResizeImg FileURL,UpPath&"/thum_m_"&FileName,MediumW,MediumPicH
		end if

	End If
	
	Response.write (FileName)
	
    Set upload=Nothing
    Set file=Nothing
%>