aspjpeg组件问题
我安装了组件,AspJpeg.dll,大小496KB.可是不好用
提示:Server   对象   错误   'ASP   0177   :   800401f3 '

Server.CreateObject   失败

/demojpeg/upload_jpeg.asp，行   12

800401f3  

高手指点下,或是给个带实例的组件,我只想把图片缩略一下.
邮箱:wwweasy@sohu.com
有带例子的ASPJPEG组件请发我一份,在网站找了两天,全都是这个错误,现在想找个一定好用的.希望大家帮帮忙.

------解决方案--------------------
我自己写了两个过程,你直接调用吧

Rem 加图水印
sub wcolor(FileName)
Dim Jpeg
Set Jpeg = Server.CreateObject( "Persits.Jpeg ") ' 建立对象
Jpeg.Open server.MapPath(FileName) ' 图片所在位置
Jpeg.Canvas.Font.Color = RGB(174,174,174) ' 颜色,这里是设置成:灰白
Jpeg.Canvas.Font.Family = "宋体 " ' 设置字体
Jpeg.Canvas.Font.Bold = false '是否设置成粗体
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth-80,Jpeg.OriginalHeight-18, "花满楼请您结贴 " '水印文字
Jpeg.Save server.MapPath(FileName) ' 保存文件
Set Jpeg = Nothing
end sub

Rem 缩略图
sub Simg(FileName1,FileName2,Iwidth,Iheight,WC)
Dim Jpeg
Set Jpeg = Server.CreateObject( "Persits.Jpeg ") ' 建立对象
Jpeg.Open server.MapPath(FileName1) ' 图片所在位置
Jpeg.Width = Iwidth
Jpeg.Height = Iheight
' 设置缩略图大小Jpeg.OriginalWidth,Jpeg.OriginalHeight
Jpeg.Save server.MapPath(FileName2) ' 保存文件
if wc=1 then wcolor FileName2
Set Jpeg = Nothing
end sub
------解决方案--------------------
帮你顶一下
------解决方案--------------------
帮顶.没用过:)
------解决方案--------------------
我有,发给你一份