aspjpeg组件使用方法284475分享

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Response.Write Jpeg.Expires

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") '创建实例
Path = Server.MapPath("../images/apple.jpg") '处理图片路径
Jpeg.Open Path '打开图片
'调整宽度和高度为原来的50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
Jpeg.Save Server.MapPath("apple_small.jpg") '保存图片到磁盘
Jpeg.Close
Set Jpeg = Nothing
%>

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
'开始写文字
Jpeg.canvas.Font.Color = &000000 ' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" '字体
Jpeg.Canvas.Font.Bold = True '是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) /file/imgs/upload/202305/20/sln52uxe3vg.com") '保存
%>

<%
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg1.Open Server.MapPath("t.jpg")
Jpeg2.Open Server.MapPath("t1.jpg")
Jpeg1.Canvas.DrawImage 10, 10, Jpeg2 ' optional arguments omitted
jpeg1.save Server.mappath("tt.jpg")
%>

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("t.jpg")
jpeg.Crop 20, 30, jpeg.Width - 20, jpeg.Height - 10
jpeg.save Server.mappath("tt.jpg")
Response.Write("")
%>

<%
Function make_randomize(max_len, w_n) 'max_len 生成长度，w_n：0 可能包含字母，1：只为数字
    Randomize
    For intcounter = 1 To max_len
        whatnext = Int((1 -0 + 1) * Rnd + w_n)
        If whatnext = 0 Then
            upper = 122
            lower = 97
        Else
            upper = 57
            lower = 48
        End If
        strnewpass = strnewpass & Chr(Int((upper - lower + 1) * Rnd) + lower)
    Next
    make_randomize = strnewpass
End Function
'生成安全码的图片。
random_num = make_randomize(4, 1) ''生成4位数字的安全码
session("random_num") = random_num '为么调用session，没有session的安全码是完全没有意义的。呵呵 .
Set Jpeg = Server.CreateObject("Persits.Jpeg") '调用组件
Jpeg.Open Server.MapPath("t.jpg") '打开准备的图片
Jpeg.Canvas.Font.Color = &HFFFFFF
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("tt.jpg") '保存
%>

<%' Using ADO, open database with an image blob
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/aspjpeg.mdb")
Set rs = Server.CreateObject("adodb.recordset")
sql = "select image_blob from images2 where id = " & Request("id")
rs.Open SQL, strConnect, 1, 3
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open image directly from recordset
Jpeg.OpenBinary rs("image_blob").Value
' Resize
jpeg.Width = Request("Width")
' Set new height, preserve original aspect ratio
jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.SendBinary
rs.Close
%>

<%
...
Set rs = Server.CreateObject("adodb.recordset")
rs.Open "images", strConnect, 1, 3
rs.AddNew
rs("image_blob").Value = Jpeg.Binary
rs.Update
...
%>

<%
'call jpeGClass(图片相对路径, 文字字体大小, 文字字体, 是否加粗, 距顶部距离, 距左边距离, 水印内容)
Sub jpegclass(J_imgurl, J_fontsize, J_family, J_isbold, J_top, J_Left, J_Content) '调用过程名
    If Len(J_imgurl) = 0 Or Len(J_Content) = 0 Then Exit Sub
    Dim JPEG, font_color, font_size, font_family, f_width, f_height, f_Content
    Set JPEG = Server.CreateObject("Persits.JPEG")
    JPEG.Open Server.MapPath(J_imgurl)
    font_size = 10
    font_family = "宋体"
    f_Left = 5
    f_top = 5
    If J_fontsize<>"" Then font_size = J_fontsize '字体大小
    If J_family<>"" Then font_family = J_family '字体
    If J_top<>"" Then f_Left = J_Left '水印离图片左边位置
    If J_Left<>"" Then f_top = J_top '水印离图片J_top位置
    f_Content = J_Content
    ' 添加文字水印
    JPEG.Canvas.Font.Color = &hff0000 ' 红色
    JPEG.Canvas.Font.family = font_family
    JPEG.canvas.font.Size = font_size
    If J_isbold = 1 Then
        JPEG.Canvas.Font.Bold = True
    End If
    JPEG.Canvas.Print f_Left, f_top, f_Content
    JPEG.Save Server.MapPath(J_imgurl)
    Set JPEG = Nothing
End Sub
%>