ASP教程之利用AspJpg制造图片水印
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的捆绑而显现出来； 那么，ASP.Net有哪些改进呢？ 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。 掌握asp的特性而且一定要知道为什么。 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
页:
[1]