''--------缩略图---------------------------
            select case ReSizeUse
            case "AspJpeg"
                Set Jpeg = Server.CreateObject("Persits.Jpeg")
                Path = Server.MapPath(formPath&filename)
                Jpeg.Open Path
                jpeg.PreserveAspectRatio = True
                ''比例缩放
                if Jpeg.OriginalWidth/Jpeg.OriginalHeight>160/120 then
                    if Jpeg.OriginalWidth>160 Then
                        Jpeg.Width = 160
                    Else
                        Jpeg.Width=Jpeg.OriginalWidth
                    End if
                else
                    if Jpeg.OriginalHeight>120 Then
                        Jpeg.Height=120
                    Else
                        Jpeg.Height=Jpeg.OriginalHeight
                    End if
                end if
                Jpeg.Save Server.MapPath(formPath & "small/small_" & filename)
            case "wsImage"
                set wsImage=Server.CreateObject("wsImage.Resize")
                Path = Server.MapPath(formPath&filename)
                wsImage.LoadSoucePic Path
                wsImage.GetSourceInfo OriginalWidth,OriginalHeight ''取得图片宽度和高度
                wsImage.Quality=80 ''质量80%
                ''比例缩放
                if OriginalWidth/OriginalHeight>160/120 then
                    if OriginalWidth>160 Then
                        newWidth = 160
                    Else
                        newWidth=OriginalWidth
                    End if
                    ''指定宽度缩放，高度自动缩放
                    wsImage.OutputSpic Server.MapPath(formPath & "small/small_" & filename),newWidth,0,1
                else
                    if OriginalHeight>120 Then
                        newHeight=120
                    Else
                        newHeight=OriginalHeight
                    End if
                    ''指定高度缩放，宽度自动缩放
                    wsImage.OutputSpic Server.MapPath(formPath & "small/small_" & filename),0,newHeight,2
                end if
                wsImage.free
                set wsImage=nothing
            end select
            '=========添加文件的信息到数据库里，默认没有锁定=====
            myIndex=right(formName,1)
            temp_photoTitle=upload.form("photoTitle"+myIndex)
            temp_photoIntro=upload.form("photoIntro"+myIndex)
            temp_photoWidth=upload.form("photoWidth"+myIndex)
            temp_photoHeight=upload.form("photoHeight"+myIndex)
            '========检查输入，为空则给初值===
            temp_photoTitle=replace(trim(temp_photoTitle),"'","''")
            if temp_photoTitle="" then
                temp_photoTitle="没有填写"
            end if
            temp_photoIntro=replace(trim(temp_photoIntro),"'","''")
            if temp_photoIntro="" then
                temp_photoIntro="没有填写"
            end if
            if temp_photoWidth="" or not IsNumeric(temp_photoWidth) then
                temp_photoWidth=160
            end if
            if temp_photoHeight="" or not IsNumeric(temp_photoHeight) then
                temp_photoHeight=120
            end if