简单ASP脚本编写

来源:百度知道 编辑:UC知道 时间:2024/05/22 14:03:01
有哪位好心人帮忙写下代码
谢谢了

1.利用VBScript语言编写一脚本函数或过程, 循环弹出一个消息框(循 环 次数为5),消息框显示信息:Hello,VbScript
2.编写程序段,判断当天日期,如果是25日,则显示“请注意,明天可 能有病毒发作”。
3.输入三角形的三条边a,b,c的值,根据其数值,判断能否构成三角形;若能,还要显示三角形的性质:等边三角形、等腰三角形、直角三角形和任意三角形。

\4.输入一年份,判断是否为闰年,并显示有关信息。判断闰年的条件是:年份能被4整除当不能被100整除,或者能被400整除。
5.求三个数的最大公约数。(提示:先求出前两个数的最大公约数,假设为t,然后再求出t和第三个数的最大公约数,假设为k,则k就是三个数的最大公约数。)
写了再给分,好吧.
不过要在明天中午之前,如过过了明天中午就不用写了!

我运行了一下,网页上什么也不显示啊.调试了一下前两个,可以用
可第三个我纯粹不会,所以麻烦帮忙再调试下
还有就是后面两道没写出来,
明天中午之前我在线等 谢谢了~~~

1\
<%
sub msg1()
for i=1 to 5
msgbox "Hello,VbScript "
next
end sub
%>

2\
<%
sub datemsg()
dim da
da=day(date())
if da=25 then
msgboc "请注意,明天可 能有病毒发作"
end if
end sub
%>

3\
<%
sub sel1(a,b,c)
if a+b>c and a-b<c then
msgbox "可以构成三角形"
if a=b or b=c or a=c then
msgbox "等边三角形"
elseif a=b and b=c then
msgbox "等边三角形."
elseif a*a+b*b=c*c or b*b+c*c=a*a or a*a+c*c=b*b then
msgbox "直角三角形"
else
msgbox "任意三角形"
end if
else
msgbox "不能构成三角形"
end if
end sub
%>

函数调用就可以.

这么多问题0分?没分不写了。。。

分给我 我在写

才50分!!不写