组件使用方法【林雨其蒙吧】

林雨其蒙吧关注：4贴子：141

2回复贴，共1页

组件使用方法

Persits.Jpeg组件使用说明[转]2007/06/21 11:02 A.M. aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术

一、图片缩略

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Path = Server.MapPath("images") & "\clock.jpg" 待处理图片路径
Jpeg.Open Path 打开图片
高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存图片

送TA礼物

IP属地:广西

1楼2007-09-20 16:37回复

set jpeg=server.CreateObject("persits.jpeg")
path=server.MapPath("../upimg/"&strImage)
jpeg.Open Path
'Jpeg.Canvas.Font.Color = &Hffffff' red 颜色
'Jpeg.Canvas.Font.Size = 50
'Jpeg.Canvas.Font.Family = "Courier New" '字体
'Jpeg.Canvas.Font.Bold = True '是否加粗
'Jpeg.Canvas.Print Jpeg.OriginalWidth/2-100, Jpeg.OriginalHeight/2+20, "www.rlhy.com"
'Jpeg.Canvas.Pen.Color = &Hffffff' black 颜色
'Jpeg.Canvas.Pen.Width = 0 '画笔宽度
'Jpeg.Canvas.Brush.Solid = false '是否加粗处理
'Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height
'Jpeg.Save Server.MapPath("../upimg/"&strImage) '保存
'Jpeg.Open Server.MapPath("../upimg/"&strImage)
Jpeg.Width=Jpeg.OriginalWidth/4
Jpeg.Height=Jpeg.OriginalHeight/4
small_pic=replace(strImage,".","_s.")
Jpeg.Save Server.MapPath("../upimg/"&small_pic) '保存
'Jpeg.Open Server.MapPath("../upimg/"&small_pic)
'Jpeg.Canvas.Font.Color = &000000' red 颜色
set rs = Server.CreateObject("adodb.recordset")
strSQL = "select * from yqj_Product"

IP属地:广西

3楼2007-09-20 16:41

image = trim(Request.Form("HidBig_Pic"))
images = trim(Request.Form("HidSmall_Pic"))
if image <> strImage then
If image <> "" Then
image = server.mappath(".."&"\"&"upimg"&"\"&image)
End If

if images <> "" Then
images = server.mappath(".."&"\"&"upimg"&"\"&images)
end if

Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(image) Then
fso.DeleteFile (image),true
else
Response.Write "大图片文件不存在！"
Response.End()
end if
'fso.close
If fso.FileExists(images) Then
fso.DeleteFile (images),true
else
Response.Write "小图片文件不存在！"
Response.End()
end if
'rs.close
Set fso = nothing
end if

set jpeg=server.CreateObject("persits.jpeg")
path=server.MapPath("../upimg/"&strImage)
jpeg.Open Path
'Jpeg.Canvas.Font.Color = &Hffffff' red 颜色
'Jpeg.Canvas.Font.Size = 50
'Jpeg.Canvas.Font.Family = "Courier New" '字体
'Jpeg.Canvas.Font.Bold = True '是否加粗
'Jpeg.Canvas.Print Jpeg.OriginalWidth/2-100, Jpeg.OriginalHeight/2+20, "www.rlhy.com"
'Jpeg.Canvas.Pen.Color = &Hffffff' black 颜色
''Jpeg.Canvas.Pen.Width = 0 '画笔宽度
'Jpeg.Canvas.Brush.Solid = false '是否加粗处理
'Jpeg.Canvas.Bar 0, 0, Jpeg.Width, Jpeg.Height
'Jpeg.Save Server.MapPath("../upimg/"&strImage) '保存
'Jpeg.Open Server.MapPath("../upimg/"&strImage)
Jpeg.Width=Jpeg.OriginalWidth/4
Jpeg.Height=Jpeg.OriginalHeight/4
'Jpeg.Open Server.MapPath("../upimg/"&strImage)
small_pic=replace(strImage,".","_s.")
Jpeg.Save Server.MapPath("../upimg/"&small_pic) '保存
set rs = Server.CreateObject("adodb.recordset")
strSQL = "select * from yqj_Product where id="&strID
rs.open strSQL,conn,1,3
if not rs.eof then

IP属地:广西

4楼2007-09-20 16:44

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

2回复贴，共1页

<返回林雨其蒙吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

组件使用方法

登录百度账号

扫二维码下载贴吧客户端