大家好，感谢邀请，今天来为大家分享一下ASP源码分享下载电视剧网站的问题，以及和asp视频播放源码的一些困惑，大家要是还不太明白的话，也没有关系，因为接下来将为大家分享，希望可以帮助到大家，解决大家的问题，下面就开始吧！
组件AspJpeg
一、为图片添加水印<%DimJpeg&34;Persits.Jpeg&39;//调用组件Jpeg.OpenServer.MapPath(&34;)&39;//水印字体颜色Jpeg.Canvas.Font.Family=&34;&39;//水印字体大小Jpeg.Canvas.Font.Bold=False&39;//字体背景颜色Jpeg.Canvas.Print10,10,&34;&34;aaa_05.jpg&39;//生成有水印的新图片及保存位置SetJpeg=Nothing&34;<imgsrc=aaa_05.jpg>&39;//在该页显示生成水印后的图片%>
二、生成缩略图<%DimJpeg&34;Persits.Jpeg&39;//调用组件Jpeg.OpenServer.MapPath(&34;)&39;//设图片宽度为原图的四分之一Jpeg.Height=Jpeg.OriginalHeight/4&39;//设定锐化效果Jpeg.SaveServer.MapPath(&34;)&39;//注销组件，释放资源Response.Write&34;&34;Persits.Jpeg&34;images&34;\\clock.jpg&34;images&34;\\clock_small.jpg&34;images/clock_small.jpg&34;Persits.Jpeg&34;images/dodge_viper.jpg&39;red颜色Jpeg.Canvas.Font.Family=&34;字体Jpeg.Canvas.Font.Bold=True是否加粗Jpeg.Canvas.Print10,10,&34;打印坐标x打印坐标y需要打印的字符以下是对图片进行边框处理Jpeg.Canvas.Pen.Color=&H000000&34;images/dodge_viper_framed.jpg&34;random_num&34;Persits.Jpeg&34;infos/random_pic/random_index.gif&34;ArialBlack&34;infos/random_pic/random_index.bmp&34;infos/random_pic/random_index.bmp&34;0&34;absmiddle&34;Persits.Jpeg&34;/pic/1.gif&34;/temp_pic/small_1.gif&34;Persits.Jpeg&34;images&34;\\dodge_viper.jpg&34;Persits.Jpeg&34;images&34;\\clock.jpg&34;regsvr32[Dll路径]&34;wsImage.Resize&39;&34;25.jpg&39;&34;图片宽度:&34;<br>&39;&34;图片高度:&34;<br>&39;&34;&34;wsImage.Resize&34;25.jpg&39;&34;华文彩云&39;&39;&39;&39;&34;txtMark.jpg&34;带你离境&39;&34;&34;wsImage.Resize&34;25.jpg&39;&34;blend.bmp&39;&34;imgMark.jpg&39;&34;&34;wsImage.Resize&34;25.jpg&34;25_crop.jpg&39;&34;&34;wsImage.Resize&34;25.jpg&39;&34;25_s.jpg&39;&34;&34;25_s.jpg&34;25_s.jpg&34;25_s.jpg&34;25_s.jpg&39;利用AspJpeg组件给上传图片自动加水印，在使用该组件前请测试你的服务器是否支持。&39;程序代码DimJpeg&39;水印部分代码开始SetJpeg=Server.CreateObject(&34;)Jpeg.OpenServer.MapPath(FileName)&39;&39;&39;设置文字水印颜色Jpeg.Canvas.Font.Family=&34;&39;设置字体大小Jpeg.Canvas.Pen.Width=2&39;设置文字清晰度Jpeg.Canvas.Font.Bold=True&34;Lounger.cn&39;定义水印文字Jpeg.SaveServer.MapPath(FileName)&39;注销对象水印部分结束&39;ASP给图片加水印是需要组件的…常用的有aspjpeg软件和中国人自己开发的wsImage软件，可以上网搜索下载这两个软件，推荐使用咱们中国人自己开发的wsImage，毕竟是中文版，容易操作．&39;命令提示符下输入&34;就可以了．&39;一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白)setobj=server.CreateObject(&34;)&39;调用组件obj.LoadSoucePicserver.mappath(&34;)&39;打开图片,图片名字是25.jpgobj.GetSourceInfoiWidth,iHeightresponse.write&34;&iWidth&&34;&39;获得图片宽度response.write&34;&iHeight&&34;&39;获得图片高度strError=obj.errorinfoifstrError<>&34;thenresponse.writeobj.errorinfoendifobj.freesetobj=nothing
&34;wsImage.Resize&34;25.jpg&39;&34;华文彩云&39;&39;&39;&39;&34;txtMark.jpg&34;带你离境&39;&34;&39;三:添加图片水印setobj=server.CreateObject(&34;)obj.LoadSoucePicserver.mappath(&34;)&39;装载图片obj.LoadImgMarkPicserver.mappath(&34;)&39;装载水印图片obj.Quality=75obj.AddImgMarkserver.mappath(&34;),315,220,&hFFFFFF,70strError=obj.errorinfo&39;生成图片名字,文字颜色即水印在图片的位置ifstrError<>&34;thenresponse.writeobj.errorinfoendifobj.freesetobj=nothing
%>
<%&39;剪裁图片,生成图片的缩略图.&39;剪裁图片:setobj=server.CreateObject(&34;)obj.LoadSoucePicserver.mappath(&34;)obj.Quality=75obj.cropImageserver.mappath(&34;),100,10,200,200&39;定义裁剪大小和生成图片名字strError=obj.errorinfoifstrError<>&34;thenresponse.writeobj.errorinfoendifobj.freesetobj=nothing
&39;&39;&39;生成图片缩略图:setobj=server.CreateObject(&34;)obj.LoadSoucePicserver.mappath(&34;)&39;加载图片obj.Quality=75obj.OutputSpicserver.mappath(&34;),0.5,0.5,3&39;定义缩略图的名字及大小strError=obj.errorinfoifstrError<>&34;thenresponse.writeobj.errorinfoendifobj.freesetobj=nothing
&39;产生缩略图共有四种导出方式：&34;25_s.jpg&39;200为输出宽，150为输出高，这种输出形式为强制输出宽高，可能引起图片变形。&34;25_s.jpg&39;以200为输出宽，输出高将随比列缩放。&34;25_s.jpg&39;以200为输出高，输出宽将随比列缩放。&34;25_s.jpg&39;第一个0.5表示生成的缩略图是原图宽的一半，即表示宽缩小比例。&39;宽高的缩小比例一致意味着将对原图进行比例缩小。宽高的缩放比例如果大于1，则对原图进行放大。
%>————————————————————–
1、什么是AspJpeg？AspJpeg是一款功能强大的基于MicrosoftIIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一半也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，支持的图像格式有：JPEG,GIF,BMP,TIFF,PNGAspJpeg主要可以做到：生成缩略图片生成水印图片图片合并图片切割数据库支持安全码技术2、AspJpeg功能摘要支持JPEG,GIF,BMP,TIFF和PNG格式图片.输出格式始终为JPEG源图片可以来源于磁盘、内存、或者记录集（数据库）缩略图片可以保存到磁盘、内存、或者HTTP流支持三种更改大小方式:nearest-neighbor,bilinear,andbicubic.可以在图片之上添加图片或者文字.支持画中画支持复制，反转，旋转，锐化，灰度调节.可以调节压缩比率，以达到最佳输出效果和大小.从Jpeg图片中抽取EXIF和IPTC数据.CMYK-RGB转换Read/writeaccesstoindividualpixelsofanimage.（从图象中对任意象素进行读/写存取。）3、AspJpeg系统需求Windows95/98/NT/2000/XP/2003,andIIS4.0+andASP/ASP.NET,orVisualBasic5.0+,orVisualC++5.0+,oranydevelopmentenvironmentsupportingCOM.4、AspJpeg安装全新安装：在AspJpeg安装过程中输入序列号即可，如果安装位置磁盘格式为NTFS，则可能出现访问权限问题，需手工设置安装目录对Everyone有访问权限。更新安装：如果之前有装过其它版本的AspJpeg组件，则需要先卸载原来的组件，再进行新版本的安装。先停止IISNetStopiisadmin/y卸载旧版组件regsvr32/uPath/aspjpeg.dl（Path为安装路径）重启IISNetStartw3svc然后再进行全新安装或复制AspJpeg.dll文件到安装目录进行手工安装：regsvr32Path/aspjpeg.dll（Path为安装路径）如果在正常安装过程中没有输入序列号或手工安装则必须在注册表中加入以下项，为方便起见您可以直接将以下代码保存为.reg文档并导入注册表：WindowsRegistryEditorVersion5.00[HKEY_LOCAL_MACHINE\\SOFTWARE\\PersitsSoftware\\AspUpload3\\RegKey]@=&34;
5、如何创建一个AspJpeg实例？SetJpeg=Server.CreateObject(&34;)
6、如何查看到期时间（是否注册成功）？SetJpeg=Server.CreateObject(&34;)Response.WriteJpeg.Expires
注册成功则到期时间为：9999-9-9否则为：安装日期加1个月期限7、如何用AspJpeg组件生成图片缩略图？<%SetJpeg=Server.CreateObject(&34;)&34;../images/apple.jpg&39;处理图片路径Jpeg.OpenPath&39;调整宽度和高度为原来的50%Jpeg.Width=Jpeg.OriginalWidth/2Jpeg.Height=Jpeg.OriginalHeight/2Jpeg.SaveServer.MapPath(&34;)&34;Persits.Jpeg&34;images/dodge_viper.jpg&39;&34;CourierNew&34;Copyright(c)XYZ,Inc.&39;&34;images/dodge_viper_framed.jpg&34;Persits.Jpeg&34;Persits.Jpeg&34;t.jpg&34;t1.jpg&39;optionalargumentsomittedjpeg1.saveServer.mappath(&34;)%>
10、如何用AspJpeg组件进行图片切割？AspJpeg1.1+isalsocapableofcuttingoffedgesfrom,orcropping,theresultantthumbnailsviathemethodCrop(x0,y0,x1,y1).Thesizeofthecroppedimageisspecifiedbythecoordinatesoftheupper-leftandlower-rightcornerswithintheresultantthumbnail,nottheoriginallargeimage.<%SetJpeg=Server.CreateObject(&34;)Jpeg.OpenServer.MapPath(&34;)jpeg.Crop20,30,jpeg.Width-20,jpeg.Height-10jpeg.saveServer.mappath(&34;)Response.write(&34;)%>
11、如何用AspJpeg组件创建安全码？创建安全码原理上和创建水印差不多。<%functionmake_randomize(max_len,w_n)&39;生成安全码的图片。random_num=make_randomize(4,1)&39;生成4位数字的安全码session(&34;)=random_num&34;Persits.Jpeg&39;调用组件Jpeg.OpenServer.MapPath(&34;)&34;ArialBlack&34;tt.jpg&39;保存%><imgsrc=&34;border=&34;align=&34;>
12、如何让AspJpeg组件支援数据库？图片存进数据库只能以二进制数据保存，这里即利用AspJpeg的Binary方法，下面以两个AspJpeg用户手册上的代码为例，具体请参考AspJpeg用户手册：OpeningImagesfromMemory<%&34;DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ=&34;../db/aspjpeg.mdb&34;adodb.recordset&34;selectimage_blobfromimages2where&Request(&34;)rs.OpenSQL,strConnect,1,3SetJpeg=Server.CreateObject(&34;)&34;image_blob&39;Resizejpeg.Width=Request(&34;)&34;adodb.recordset&34;images&34;image_blob&34;图片水印&34;d:\\apple.jpg&34;d:\\myapple.jpg&34;Persits.Jpeg&34;没有这个组件，请安装!&39;检查是否安装AspJpeg组件Response.End()EndIfJpeg.Open(LocalFile)&34;打开图片失败,请检查路径！&39;原始图片的二进制数据DimTempB&39;最终效果TempA=Jpeg.Binary&39;=========加文字水印=================Jpeg.Canvas.Font.Color=&Hfffffff&39;字体Jpeg.Canvas.Font.Bold=True&39;字体大小Jpeg.Canvas.Font.ShadowColor=&H000000&39;输出质量Jpeg.Canvas.PrintTextJpeg.OriginalWidth/2-150,Jpeg.OriginalHeight/2,&34;&39;将文字水印处理后的值赋给TempB，这时，文字水印没有不透明度&34;Persits.Jpeg&34;Persits.Jpeg&39;0.3是透明度TempC=MyJpeg.Binary&39;将二进输出给浏览器MyJpeg.Save(TargetFile)setTempA=nothingsetTempB=nothingsetTempC=nothingJpeg.closeMyJpeg.CloseLogo.Close%>
—————————————————————————————————–
AspJpeg组件给图片加透明图片水印
为图片加水印DimJpeg,Jpeg1&34;Persits.Jpeg&34;Persits.Jpeg&39;打开要加水印的图片Jpeg.OpenServer.mappath(路径)&34;../Images/sy.gif&39;合并图Jpeg.Canvas.DrawImage0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF&39;注销对象SetJpeg=NothingSetJpeg1=Nothing加透明图片水印，实际上就是将两个图合并，最关键的就是这一句：
Jpeg.Canvas.DrawImageJpeg.OriginalWidth/2-22,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
其中0.6是透明度，1是不透明，值越小，透明越大，0就什么也看不见了。&HFFFFFF这个参数是最关键的，这是透明图片水印图的背景色，这个参数必须与透明图片水印图的背景一样，不然的话就实现不了透明了。就是我们不想看到的那一部分色
——————————————————————————————AspJpeg1.8版本之前未提供PrintTextEx方法，实现文字透明水印是相当麻烦的，基本思路是这样的：AspJpeg支持透明图片水印DrawImage，所以采用图片水印来间接实现文字透明水印。1.读取原始图片内容赋于A2.将加入文字水印的图片内容赋予B3.将B作为水印图片附加在A上，调整透明度并输出。
从AspJpeg1.8版本开始，AspJpeg提供了比PrintText更为灵活的文本绘图方法PrintTextEx，PrintTextEx使用FreeType?来源程序库，可以在任何背景上呈现高品质的反锯齿文本。
这是一个ASP版本的利用PrintTextEx方法产生文字透明水印简单示例程序：
<%DimobjJpegDimstrTextSetobjJpeg=Server.CreateObject(&34;)objJpeg.OpenServer.MapPath(&34;)strText=&34;objJpeg.Canvas.Font.Size=30objJpeg.Canvas.Font.Color=&HFF0000&39;不透明度,1为不透明objJpeg.Canvas.PrintTextExstrText,objJpeg.Width/2,objJpeg.Height-20,objJpeg.WindowsDirectory&&34;objJpeg.SaveServer.MapPath(&34;)SetobjJpeg=Nothing%>
PrintTextEx方法参考：FunctionPrintTextEx(TextAsString,XAsLong,YAsLong,FontPathAsString)AsLong
Text-要打印的文字字符串（Unicode格式），如果含有CR/LR字符则多行显示。X,Y-打印位置，XY轴坐标。FontPath-指定字体文件的物理路径。只要知道字体路径即可，并不需要系统注册。
返回值：返回文本宽度，如果字符串分割为多行，则返回宽度最长的。
以下字体属性影响PrintTextEx：
Font.Color-指定当前文字颜色，以一个十六进制值来表示，例如：&HFF0000FF蓝色Font.Rotation-旋转角度Font.Size-指定文字大小，单位像素(px)Font.Spacing-行距Font.Width-指定文本宽度，超出自动换行。Font.Align-指定文本对齐方式。0－左（默认），1－右，2－居中，3－两端对齐，当值为非0时，必须指定Font.Width值Font.Opacity-指定文本的不透明度，有效值范围[0-1]，0完全透明，1完全不透明
————————————————————————————————-
<%
SubCreateView(Image1,Image2)&39;//Image2小图片（需要附加的小图标，最好是gif的透明图片）&39;//ImageMode是否添加边框upload_ViewType=0LogoPath=Image2SetLogobox=Server.CreateObject(&34;)Logobox.OpenLogoPath&39;//用做水印的图片的宽度值（像素）Logobox.Height=20&39;//读取原图，并准备添加水印。Setogvbox=Server.CreateObject(&34;)&34;Persits.Jpeg&34;\\&34;\\&34;mid&34;&39;//增加水印后图片的边框色彩。ogvbox.Canvas.Pen.Width=1&39;//边框内是否填充颜色，你可以试试看值为True时的效果^o^ogvbox.DrawImageogvbox.width-105,ogvbox.height-25,Logobox,1,&HFFFFFF&39;ogvbox.Canvas.Bar0,0,ogvbox.Width,ogvbox.Height&39;//根据以上参数生成增加水印后的图片文件&39;ogvbox.height=ogvbox.height&39;ogvbox.SaveServer.MapPath(Tmpimage)&39;CallCreateView(&34;,&34;)
&39;———————————-
&39;DesignbySeven(See7di@Gmail.com)（www.7di.net）
SubCreateView(imagename,inttype)
DimObject,objFont,img,Obj,LogoPath,sWidth,sHeight
img=&34;&34;100&39;//LOGO的宽
sHeight=&34;&39;//LOGO路径
SetObj=Server.CreateObject(&34;)&34;Persits.Jpeg&39;//建立原图对象
&39;//读取LOGO
Iferr>0Then
Response.Write(&34;)
Response.End()
Endif
Object.OpenTrim(Server.MapPath(imagename))&34;对不起,获取需要处理的图片文件失败!&39;//加入图片的原宽度
Obj.Height=sHeight&39;\\\\如果原图比LOGO大
IfObject.width>Cint(Obj.Width)andObject.Height>Cint(Obj.Height)Then
strDo=&34;
Endif
Ifinttype=1Then
Object.Canvas.Font.Color=&HFF0000&34;Verdana&39;//文字的字体
Object.Canvas.Font.Bold=True&34;www.sxjdypw.cn/&39;//打印坐标x打印坐标y需要打印的字符
Object.Canvas.Pen.Color=&H000000&39;//画笔宽度
Object.Canvas.Brush.Solid=False&39;//起始X坐标起始Y坐标输入长度输入高度
Else
IfstrDo=&34;Then
Object.Canvas.Pen.Color=&HFFFFFF&39;//边框的粗细
Object.Canvas.Brush.Solid=false&39;Object.DrawImageObject.Width/2,Object.Height/2,Obj,0.7,&HFFFFFF,90&39;//图片边框线的位置坐标
Object.Width=Object.Width
Object.height=Object.height
Endif
EndIf
Object.SaveServer.MapPath(imagename)'//生成文件
SetObj=Nothing
EndSub
%>
关于ASP源码分享下载电视剧网站到此分享完毕，希望能帮助到您。