|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊!前次做过图片水印,效果很差,没举措把图片弄成背景通明的,用背景通明gif会主动添补成红色。用往失落某种色彩的功效,图片色彩老是不纯,出来的效果斑雀斑点。明天心血来潮,把这两个分离起来,用背景通明的gif,而且抽取水印底色,公然乐成了!ogvbox.Canvas.Pen.Color=&H000000//边框的色彩
ogvbox.Canvas.Pen.Width=1//边框的粗细
ogvbox.Canvas.Brush.Solid=False//图片边框内是不是添补色彩
ogvbox.DrawImageogvbox.Width-210,ogvbox.Height-74,Logobox,0.3,&HFFFFFF//到场图片的地位坐标(增加水印图片),我用图片巨细减往水印巨细,把水印加在右下角。参数按次为:程度坐标,垂直坐标,水印图片地点,水银通明度,抽取色彩(&H暗示16进制)
ogvbox.Canvas.Bar0,0,ogvbox.Width,ogvbox.Height//图片边框线的地位坐标和巨细
ogvbox.SaveServer.MapPath(imagename)//天生文件
//------Pollener.comAspJpeg组件的预览和水印天生------入手下手------
创立预览图片:callCreateView(原始文件的路径,预览文件名及路径)
SubCreateView(imagename,tempFilename)
界说变量。
DimPreviewImageFolderName
Dimogvbox,objFont
DimLogobox,LogoPath
LogoPath=Server.MapPath("images")&"shuiyin.gif"//到场图片地点路径及文件名(我的是论坛imagesshuiyin.gif)。
SelectCaseupload_ViewType
Case0
---------------------CreatePreviewImage---------------
setogvbox=Server.CreateObject("CreatePreviewImage.cGvbox")
ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)预览图寄存路径。
ogvbox.SetPreviewImageSize=SetPreviewImageSize预览图宽度。
ogvbox.SetImageFile=trim(Server.MapPath(imagename))imagename原始文件的物理路径。
创立预览图的文件。
Ifogvbox.DoImageProcess=falseThen
Response.write"天生预览图毛病:"&ogvbox.GetErrString
EndIf
Case1
---------------------AspJpegV1.2---------------
SetLogobox=Server.CreateObject("Persits.Jpeg")
//倡议不要图片和笔墨水印同时利用,本代码为利用图片水印。
Logobox.OpenLogoPath//读取增加的图片。
//从头设置图片的巨细。
Logobox.Width=186//用做水印的图片的宽度值(像素)。
Logobox.Height=52//用做水印的图片的高度值(像素)。
//增加水印。
Setogvbox=Server.CreateObject("Persits.Jpeg")
//读取要处置的原文件。
ogvbox.OpenTrim(Server.MapPath(imagename))
Ifogvbox.OriginalWidth<Cint(ImageWidth)orogvbox.Originalheight<Cint(ImageHeight)Then
F_Viewname=""
Setogvbox=Nothing
ExitSub
Else
IFImageMode""andFileExt"gif"Then//假如将这行改成IFImageMode""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//水印笔墨的明晰度,从0~4,变更不是很年夜,倡议用2或3。
//ogvbox.Canvas.Font.Bold=True//水印笔墨是不是为粗体,True=粗体False=一般。
ogvbox.Canvas.Print10,10,ImageMode//水印笔墨的肇端坐标(像素)。
ogvbox.Canvas.Pen.Color=&H000000//增添水印后图片的边框色采。
ogvbox.Canvas.Pen.Width=1//增添水印后图片的边框宽度。
ogvbox.Canvas.Brush.Solid=False//边框内是不是添补色彩,你能够碰运气值为True时的效果^o^
ogvbox.DrawImageogvbox.width-186,ogvbox.height-52,Logobox,0.5//水印图片的肇端坐标,我这里ogvbox.width-186,ogvbox.height-52,暗示图片在右下角,由于我的图片宽是186,高是52,以是如许写,你能够依据本人的图片举行调剂。0.5是通明度,我这里是半通明,1暗示不通明,你也能够碰运气0.7大概0.8的效果。
ogvbox.Canvas.Bar0,0,ogvbox.Width,ogvbox.Height//水印可用的局限。我这里暗示左上角至右下角,即整张图片的恣意为止都可加水印。
ogvbox.SaveServer.MapPath(imagename)//依据以上参数天生增添水印后的图片文件。
EndIf
ogvbox.Width=ImageWidth
ogvbox.height=ImageHeight
ogvbox.height=ogvbox.Originalheight*ImageWidthogvbox.OriginalWidth
ogvbox.Sharpen1,120
ogvbox.SaveServer.MapPath(tempFilename)//天生增添水印后的图片的预览图片。
EndIf
SetLogobox=Nothing
//------Pollener.comAspJpeg组件的预览和水印天生
</p>Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|