asp中最常用上传图片组件aspjpeg和aspupload下载

源代码网整理以下 大家在用asp开发时，肯定会遇到上传图片的功能。这里就最常用的二个asp上传图片组件发布如下：

源代码网整理以下一。aspjpeg(可上传图片，可生成缩略图，可加水印）

源代码网整理以下 其常用的asp代码如下：

源代码网整理以下'自动产生缩掠图开始 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 获取源图片路径

源代码网整理以下'response.write filename
'response.end
Path = Server.MapPath(yuantu&"\"&filename)

源代码网整理以下'120*140
Jpeg.Open Path
' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放
If Jpeg.OriginalWidth / Jpeg.OriginalHeight >= 0.85 then
  if Jpeg.OriginalWidth>120 then
  Jpeg.Width = 120
  Jpeg.Height = int((120/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)

源代码网整理以下' 设定锐化效果
Jpeg.Sharpen 1, 130
' 向指定路径生成缩略图
Jpeg.Save Server.MapPath(yuantu&"\"&filename)
response.write rs1(0)
response.write "<br>"
response.write yuantu&"\"&filename
response.write "<br>"

源代码网整理以下二。aspupload(可带进度条的上传图片）

源代码网整理以下Sub CreateView(rSrcImgPath,rMarkImgPath,rDstImgPath)

源代码网整理以下    REM 读取原图，并准备添加水印。
    Set SrcImg = Server.CreateObject("Persits.Jpeg")
    REM 读取要处理的原文件。          
    SrcImg.Open Trim(rSrcImgPath)
 If err.number then
 Response.write"打开图片失败,请检查路径！"
 else
    If SrcImg.OriginalWidth<Cint(ImageWidth) or SrcImg.Originalheight<Cint(ImageHeight) Then
        Set SrcImg = Nothing
        Exit Sub
    Else
        REM 增加水印后图片的边框色彩。
        ''SrcImg.Canvas.Pen.Color = &H1EB81E
        REM 增加水印后图片的边框宽度。
        SrcImg.Canvas.Pen.Width = 0                                     
        REM 边框内是否填充颜色
        SrcImg.Canvas.Brush.Solid = False

源代码网整理以下        Set MarkImg = Server.CreateObject("Persits.Jpeg")
        REM 读取添加的图片。
        MarkImg.Open rMarkImgPath 
        REM 处理水印图的大小
        If MarkImg.Width > SrcImg.Width Then
            MarkImg.Height = CInt(MarkImg.Height * (SrcImg.Width/MarkImg.Width))
            MarkImg.Width = SrcImg.Width
         End If
         If MarkImg.Height > SrcImg.Height Then
            MarkImg.Width = CInt(MarkImg.Width * (SrcImg.Height/MarkImg.Height))
            MarkImg.Height = SrcImg.Height
         End If
 
         REM 水印图片的起始坐标，0.5是透明度,1表示不透明
         SrcImg.DrawImage SrcImg.Width/2-MarkImg.Width/2, SrcImg.height/2-MarkImg.Height/2, MarkImg, 0.4       
         REM 水印可用的范围。
         SrcImg.Canvas.Bar 0, 0, SrcImg.Width,SrcImg.Height
         REM 根据以上参数生成增加水印后的图片文件。
         SrcImg.Save rDstImgPath

源代码网整理以下         SrcImg.Width = SrcImg.width
         SrcImg.height = SrcImg.height
         SrcImg.Sharpen 1, 120

源代码网整理以下         REM 生成增加水印后的图片的预览图片。
         SrcImg.Save rDstImgPath
     End If
    End If
     Set SrcImg=Nothing
     Set MarkImg=Nothing
end Sub

源代码网整理以下

源代码网整理以下
Set Upload = Server.CreateObject("Persits.Upload")

源代码网整理以下