Aspjpegˮӡ

ASPJPEGPersitsƷĹΪ30죬أ[url]http://www.persits.com/aspjpeg.exe[/url]°汾1.3
ASPJPEGһ൱ǿͼɵͼƬͼΪͼƬˮӡܡ򵥽һʹ÷
Ҫִصõexeļװ
1ΪͼƬͼ

<% \\\' ʵ
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
\\\' ͼƬλ
Path = Server.MapPath("images") & "\\\\clock.jpg"


\\\' 
Jpeg.Open Path

\\\' ͼС趨Ϊ50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

\\\' ͼָļ
Jpeg.Save Server.MapPath("images") & "\\\\clock_small.jpg"

\\\' עʵ
Set Jpeg = Nothing
%>

<IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg"> 


2ΪͼƬˮӡ
<%
Dim Jpeg
\\\' ʵ
Set Jpeg = Server.CreateObject("Persits.Jpeg")
\\\' ĿͼƬ
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")

\\\' ˮӡ
Jpeg.Canvas.Font.Color = &HFF0000\\\' ɫ
Jpeg.Canvas.Font.Family = ""
Jpeg.Canvas.Font.Bold = True  
Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"

\\\' ļ
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")

\\\' ע
Set Jpeg = Nothing
%> 


ϴͼƬˮӡЧܲû취ͼƬŪɱ͸ģñ͸gifԶɰɫȥĳɫĹܣͼƬɫǲЧ߰ߵ㡣һñ͸gifҳȡˮӡɫȻɹˣ

    ogvbox.Canvas.Pen.Color  = &H000000  \\\'// ߿ɫ
    ogvbox.Canvas.Pen.Width  = 1    \\\'// ߿Ĵϸ
    ogvbox.Canvas.Brush.Solid = False   \\\'// ͼƬ߿Ƿɫ
    ogvbox.DrawImage ogvbox.Width-210, ogvbox.Height-74, Logobox  ,0.3,&HFFFFFF    \\\'// ͼƬλ꣨ˮӡͼƬͼƬСȥˮӡСˮӡ½ǡ˳Ϊˮƽֱ꣬꣬ˮӡͼƬַˮ͸ȣȡɫ&Hʾ16ƣ
    ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height \\\'// ͼƬ߿ߵλʹС
    ogvbox.Save Server.MapPath(imagename)  \\\'// ļ
\'//------Pollener.com AspJpegԤˮӡ------ʼ------
\'ԤͼƬ:call CreateView(ԭʼļ·,Ԥļ·)
Sub CreateView(imagename,tempFilename)
\'
Dim PreviewImageFolderName
Dim ogvbox,objFont
Dim Logobox,LogoPath
LogoPath = Server.MapPath("images") & "\\shuiyin.gif"  \'//ͼƬ·ļ(ҵ̳\\images\\shuiyin.gif)

Select Case upload_ViewType
Case 0
\'---------------------CreatePreviewImage---------------
set ogvbox = Server.CreateObject("CreatePreviewImage.cGvbox")
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)   \'Ԥͼ·
ogvbox.SetPreviewImageSize =SetPreviewImageSize      \'Ԥͼȡ
ogvbox.SetImageFile = trim(Server.MapPath(imagename))    \'imagenameԭʼļ·
\'Ԥͼļ
If ogvbox.DoImageProcess=false Then
Response.write "Ԥͼ:"& ogvbox.GetErrString
End If
Case 1
\'---------------------AspJpegV1.2---------------
Set Logobox = Server.CreateObject("Persits.Jpeg")
\'//鲻ҪͼƬˮӡͬʱʹãΪʹͼƬˮӡ
Logobox.Open LogoPath  \'//ȡӵͼƬ

\'//ͼƬĴС
Logobox.Width = 186  \'//ˮӡͼƬĿֵأ
Logobox.Height = 52  \'//ˮӡͼƬĸ߶ֵأ
\'//ˮӡ
Set ogvbox = Server.CreateObject("Persits.Jpeg")
\'//ȡҪԭļ
ogvbox.Open Trim(Server.MapPath(imagename))
If ogvbox.OriginalWidth<Cint(ImageWidth) or ogvbox.Originalheight<Cint(ImageHeight) Then
  F_Viewname=""
  Set ogvbox = Nothing
  Exit Sub
Else
IF ImageMode<>"" and FileExt<>"gif" Then  \'//иΪIF ImageMode<>"" ThenɸϴGIFͼƬҲˮӡЩGIFڼˮӡԺֻʣһˣ鴦ɡ

\'//޸弰ɫġ
\'//ogvbox.Canvas.Font.Color = &H0000FF  \'//ˮӡֵɫ&Hɫֵ
\'//ogvbox.Canvas.Font.Size = 18  \'//ˮӡֵĴС
\'//ogvbox.Canvas.Font.Family = "Arial"  \'//ˮӡֵơ
\'//ogvbox.Canvas.Font.ShadowColor = &H000000  \'//ˮӡֵӰɫʡ
\'//ogvbox.Canvas.Font.ShadowXoffset = 1  \'//ˮӡӰƫƵֵ븺ֵƫơ
\'//ogvbox.Canvas.Font.ShadowYoffset = 1  \'//ˮӡӰƫƵֵ븺ֵƫơ
\'//ogvbox.Canvas.Font.Quality = 3  \'//ˮӡֵȣ04任Ǻܴ󣬽23
\'//ogvbox.Canvas.Font.Bold = True  \'//ˮӡǷΪ壬True= False=

\'ogvbox.Canvas.Print 10, 10, ImageMode  \'//ˮӡֵʼ꣨أ
ogvbox.Canvas.Pen.Color  = &H000000  \'//ˮӡͼƬı߿ɫʡ
ogvbox.Canvas.Pen.Width  = 1   \'//ˮӡͼƬı߿ȡ
ogvbox.Canvas.Brush.Solid = False  \'//߿ǷɫԿֵΪTrueʱЧ^o^
ogvbox.DrawImage ogvbox.width-186, ogvbox.height-52, Logobox, 0.5  \'//ˮӡͼƬʼ꣬ogvbox.width-186, ogvbox.height-52,ʾͼƬ½ǣΪҵͼƬ18652дԸԼͼƬе0.5͸ȣǰ͸1ʾ͸ҲԿ0.70.8Ч
ogvbox.Canvas.Bar 0, 0, ogvbox.Width, ogvbox.Height  \'//ˮӡõķΧʾϽ½ǣͼƬΪֹɼˮӡ
ogvbox.Save Server.MapPath(imagename)  \'//ϲˮӡͼƬļ
   End If
   ogvbox.Width = ImageWidth
   ogvbox.height = ImageHeight
   \'ogvbox.height = ogvbox.Originalheight*ImageWidth\\ogvbox.OriginalWidth
   ogvbox.Sharpen 1, 120
   ogvbox.Save Server.MapPath(tempFilename)  \'//ˮӡͼƬԤͼƬ
  End If
  Set Logobox=Nothing
\'//------Pollener.com AspJpegԤ