| 一组ASP的随机颜色样式算法 | |
[ ]2008年3月14日 12:01:51 |
|
| 收藏到： | 字体：大 中 小 |
| 看过《英雄》的朋友一定知道该影片其特色之一就是一幕一个色调！前段时间看到haphic的博客也采用了这种风格，虽然有点眼花缭乱，不过到也颇具特色，于是乎找这位Z-blog的功臣借阅了一下！ 有兴趣的朋友可以试一下，很爽很刺激哦！ 演示：R_color.asp 代码如下： <% Const ColorBound=3 Dim CBA, CAD Select Case ColorBound Case 1 CBA=17 : CAD=85 Case 2 CBA=34 : CAD=68 Case 3 CBA=51 : CAD=51 Case 4 CBA=68 : CAD=34 Case 5 CBA=85 : CAD=17 Case 6 CBA=102 : CAD=0 Case Else CBA=17 : CAD=17 End Select Randomize Dim RndTmp(2) Dim RndClr(2) Dim RndDiv(2) Dim CLBD RndTmp(0)=(Rnd*CBA+CAD) : RndDiv(0)=(255/(RndTmp(0)+1)) RndTmp(1)=(Rnd*CBA+CAD) : RndDiv(1)=(255/(RndTmp(1)+1)) RndTmp(2)=(Rnd*CBA+CAD) : RndDiv(2)=(255/(RndTmp(2)+1)) CLBD=RndDiv(0) If CLBD>RndDiv(1) Then CLBD=RndDiv(1) If CLBD>RndDiv(2) Then CLBD=RndDiv(2) RndClr(0)=RndTmp(0)*CLBD RndClr(1)=RndTmp(1)*CLBD RndClr(2)=RndTmp(2)*CLBD RndTmp(0)=(RndTmp(0)*CLBD)+((255-RndTmp(0)*CLBD)*0.8) RndTmp(1)=(RndTmp(1)*CLBD)+((255-RndTmp(1)*CLBD)*0.8) RndTmp(2)=(RndTmp(2)*CLBD)+((255-RndTmp(2)*CLBD)*0.8) Dim Color(10) Color(0)="#"& Right("00"+Hex(RndClr(0)*0.1),2) & Right("00"+Hex(RndClr(1)*0.1),2) & Right("00"+Hex(RndClr(2)*0.1),2) Color(1)="#"& Right("00"+Hex(RndClr(0)*0.2),2) & Right("00"+Hex(RndClr(1)*0.2),2) & Right("00"+Hex(RndClr(2)*0.2),2) Color(2)="#"& Right("00"+Hex(RndClr(0)*0.3),2) & Right("00"+Hex(RndClr(1)*0.3),2) & Right("00"+Hex(RndClr(2)*0.3),2) Color(3)="#"& Right("00"+Hex(RndClr(0)*0.4),2) & Right("00"+Hex(RndClr(1)*0.4),2) & Right("00"+Hex(RndClr(2)*0.4),2) Color(4)="#"& Right("00"+Hex(RndClr(0)*0.5),2) & Right("00"+Hex(RndClr(1)*0.5),2) & Right("00"+Hex(RndClr(2)*0.5),2) Color(5)="#"& Right("00"+Hex(RndClr(0)*0.6),2) & Right("00"+Hex(RndClr(1)*0.6),2) & Right("00"+Hex(RndClr(2)*0.6),2) Color(6)="#"& Right("00"+Hex(RndClr(0)*0.7),2) & Right("00"+Hex(RndClr(1)*0.7),2) & Right("00"+Hex(RndClr(2)*0.7),2) Color(7)="#"& Right("00"+Hex(RndClr(0)*0.8),2) & Right("00"+Hex(RndClr(1)*0.8),2) & Right("00"+Hex(RndClr(2)*0.8),2) Color(8)="#"& Right("00"+Hex(RndClr(0)*0.9),2) & Right("00"+Hex(RndClr(1)*0.9),2) & Right("00"+Hex(RndClr(2)*0.9),2) Color(9)="#"& Right("00"+Hex(RndClr(0)*1.0),2) & Right("00"+Hex(RndClr(1)*1.0),2) & Right("00"+Hex(RndClr(2)*1.0),2) Color(10)="#"& Right("00"+Hex(RndTmp(0)),2) & Right("00"+Hex(RndTmp(1)),2) & Right("00"+Hex(RndTmp(2)),2) Response.Write "<div style=""background:"& color(0) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(1) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(2) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(3) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(4) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(5) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(6) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(7) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(8) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(9) &";height:12px;width:96px;""></font><br/>" Response.Write "<div style=""background:"& color(10) &";height:12px;width:96px;""></font><br/>" %> |
|
| 评论(0)┆阅读(0)┆引用┆栏目:ASP.net(C#)┆Tags:开发 | |
| 文章评论 | |