|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。 好器材人人分享:一个用来绘图的组件(画饼图,条形图,各类外形图像的组件)
器材是好,惋惜我没中央放这个组件,哎。
为何说是个好器材了,人人看看上面的先容就晓得了该组件有两个版本,一个是注册版本,一个长短注册版本非注
册版本功效:(固然长短注册的,可是能够一向利用下往的哦,这也是一个为何我鼎力保举的缘故原由之一)
1。可天生JPEG格局的图形文件
2。可天生通明的GIF格局的图形文件
3。可天生交织的GIF格局的图形文件
4。可使用两种体例保留图形文件:一种是间接天生图形文件;别的一种是保留到数组中然后间接输入到WWW页面中5。可
以绘制文本图形,而且撑持安装在你呆板上的任何字体的文本6。能够导出和预览由OLE服务程序天生的文档,比方MS
Word,Excel等等。
7。可使用位图体例自在的缩放,镜像,扭转和剪切图形
8。可以使用当地图形缓存
9。能够ZOOM图片
10。能够猎取任何JPEG,GIF,BMP格局文件的具体信息
11。能够举行Windows抓屏
12。可天生静态GIF非注册版本的限定以下:
(1)。只可以最多利用8种色彩,不外我以为对年夜多半人来讲基本不算甚么限定的,呵呵
(2)。可以天生的最年夜图形尺寸为320x240假如是注册版本:
13。可在线修正现有的GIF,JPEG和BMP文件14。可自界说调色板15。可轮回放映GIF动画
例子程序:
VBScript的例子:
setobj=CreateObject("shotgraph.image")
size=201
obj.CreateImagesize,size,4
obj.SetColor0,255,255,255
obj.SetColor1,0,0,0
obj.SetColor2,255,108,0
obj.SetColor3,0,0,204
obj.SetBgColor0
obj.FillRect0,0,size-1,size-1
obj.SetDrawColor1
obj.Linesize-1,0,0,size-1
obj.SetBgColor2
obj.Ellipse5,5,size-6,size-6
obj.SetBgColor3
obj.Ellipse5,(size-5)/4,size/2,(size-5)*3/4
obj.GifImage0,1,"test.gif"
ASP的例子代码:
Response.ContentType="image/gif"
setobj=Server.CreateObject("shotgraph.image")
size=201
obj.CreateImagesize,size,4
obj.SetColor0,255,255,255
obj.SetColor1,0,0,0
obj.SetColor2,255,108,0
obj.SetColor3,0,0,204
obj.SetBgColor0
obj.FillRect0,0,size-1,size-1
obj.SetDrawColor1
obj.Linesize-1,0,0,size-1
obj.SetBgColor2
obj.Ellipse5,5,size-6,size-6
obj.SetBgColor3
obj.Ellipse5,(size-5)/4,size/2,(size-5)*3/4
img=obj.GifImage(0,1,"")
Response.BinaryWriteimg
那末怎样画动画呢,步骤以下:
1.Create一个"shotgraph.image"工具
2.任意画点器材把,就看你的创意了
3.挪用TrackAdd函数
4.反复2,3步晓得你想要的祯数
5.假如想要反复放动画,挪用TrackLoop办法,不外只要注册版本有此功效
6.挪用TrackPlay办法天生这个动化文件
例子代码以下:
setobj=CreateObject("shotgraph.image")
xsize=400
ysize=50
obj.CreateImagexsize,ysize,256
obj.InitClipboardxsize,ysize*2
obj.SelectClipboardTrue
obj.ReadImage"frame1.gif",pal1,0,0
obj.ReadImage"frame2.gif",pal2,0,ysize
obj.BuildPalette0
obj.Copy0,0,xsize,ysize,0,0,"SRCCOPY"
obj.TrackAdd-1,0,0,0,0,xsize,ysize,50
obj.Copy0,0,xsize,ysize,0,ysize,"SRCCOPY"
obj.TrackAdd-1,0,0,0,0,xsize,ysize,50
obj.TrackLoop0
obj.TrackPlay"frames12.gif"
怎样画文本笔墨呢,呵呵,历程以下:
利用时,请注重FontSmoothing这个属性:
它是用来界说笔墨是不是防锯齿的。
0-利用体系默许设置
1-不防锯齿
2-防锯齿
代码以下:
<%
Response.Contenttype="image/gif"
Setg=CreateObject("shotgraph.image")
g.CreateImage320,200,16
g.SetColor0,255,255,255
g.SetColor1,0,0,0
g.SetBgColor0
g.SetTextColor1
g.FillRect0,0,320,200
g.FontSmoothing=1
g.CreateFont"Arial",0,42,0,True,False,False,False
g.TextOut0,30,"Non-Antialiased"
g.FontSmoothing=2
g.CreateFont"Arial",0,42,0,True,False,False,False
g.TextOut0,120,"Antialiased"
g.BuildPalette2
Response.BinaryWriteg.GifImage(-1,0,"")
%>
下载地点:
http://download.proxy.ru/mike/shotgraph/
http://www.geocities.com/SiliconValley/Foothills/9219/shotgraph/
</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。 |
|