|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件上面的代码是挪用的DirectX的组件完成的时钟。它有三根指针,会及时地随体系工夫的改动而改动。
不外我没有做刻度,由于我以为用程序画出来的刻度不大度,用Photoshop画一口钟作为背景要大度多了。
<html>
<head>
<title>指针式时钟</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF"text="#000000">
<divid="LayClock"style="position:absolute;width:101;height:101px;z-index:2;left:203px;top:101px">
<objectid="DAControl"width=101height=101align=LEFThspace=0
classid="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">
</object>
<SCRIPTLANGUAGE="VBScript">
<!--
Setm=DAControl.PixelLibrary
pi=3.14159265359
Subwindow_onLoad
a=time
min1=minute(time)
hr1=hour(time)
sec1=second(time)
SetxPos=m.Mul(m.DANumber(150),m.Cos(m.Mul(m.LocalTime,m.DANumber(0.3))))
SetyPos=m.Mul(m.DANumber(35),m.Cos(m.Mul(m.LocalTime,m.DANumber(0.5))))
Setclock=m.Overlay(hands(hr1,min1,sec1),hands(hr1,min1,sec1))
DAControl.Image=clock
DAControl.Start
EndSub
Functionhands(hr,min,sec)
Setbvr60=m.DANumber(60)
SetsecFromMidnight=m.Add(m.DANumber(hr*3600+min*60+sec),m.LocalTime)
SetsecBvr=m.Mod(secFromMidnight,bvr60)
SetminBvr=m.Mod(m.Div(secFromMidnight,bvr60),bvr60)
SethrBvr=m.Mod(m.Div(secFromMidnight,m.DANumber(3600)),m.DANumber(12))
ptsSec=Array(-10,-2,42,-1,42,1,-10,2)
ptsMin=Array(-7,-2,36,-1,36,1,-7,2)
ptsHr=Array(-5,-3,32,-1,32,1,-5,3)
Settemp1=m.Mul(m.DANumber(-pi/30),m.Sub(secBvr,m.DANumber(15)))
Settemp2=m.Mul(m.DANumber(-pi/30),m.Sub(minBvr,m.DANumber(15)))
Settemp3=m.Mul(m.DANumber(-pi/6),m.Sub(hrBvr,m.DANumber(3)))
SetimgSec=m.PolyLine(ptsSec).Fill(m.DefaultLineStyle,m.SolidColorImage(m.cyan))
SetimgSec=imgSec.TransForm(m.Rotate2Anim(temp1))
SetimgMin=m.PolyLine(ptsMin).Fill(m.DefaultLineStyle,m.SolidColorImage(m.yellow))
SetimgMin=imgMin.TransForm(m.Rotate2Anim(temp2))
SetimgHr=m.PolyLine(ptsHr).Fill(m.DefaultLineStyle,m.SolidColorImage(m.green))
SetimgHr=imgHr.TransForm(m.Rotate2Anim(temp3))
Sethands=m.Overlay(imgSec,m.Overlay(imgMin,imgHr))
EndFunction
-->
</SCRIPT></div>
</body>
</html>
</p>ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失; |
|