![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
asp学习点滴!
hanbing196
这个作者很懒,什么都没留下…
展开
-
九九表
???Document.fgcolor="red"document.write ""for i = 1 to 9 total = "" for j = 1to 9 total=total & "" & i & "*" &j & "=" & i *j & "" next total = total & "" document.write totalnext document.write原创 2005-09-27 18:07:00 · 695 阅读 · 0 评论 -
关于访客离开时的一组询问!(msgbox)
离开 sub window_onunload //关闭窗口的事件驱动! shu = msgbox ("你在本站玩的快乐吗?",4) if shu = 6 then //是msgbox的返回值,单击是时返回值是6,单击否时返回值是7! msgbox "欢迎您再次到来!" else msgbox "对不起,下次会改进!" end if原创 2005-09-24 18:45:00 · 518 阅读 · 0 评论 -
两种改变网页背景的方法!
改变背景颜色! Sub scolor(data) document.bgcolor=data End Sub c=MsgBox ("yes and no!",4) if c=6 Then randomize data = rnd() data=Right(data,6) scolor(data) Else data=InputBox ("please in put six data:")原创 2005-09-27 16:50:00 · 964 阅读 · 0 评论 -
针对选择语句select case的使用!
翻译1-5的数data= inputbox ("请输入1-5的数字!")select case data case 1 m="one" case 2 m="two" case 3 m= "three" case 4 m="four" case 5 m="five" case else m= "输入不正确!" end select msgbox m原创 2005-09-27 17:39:00 · 1349 阅读 · 0 评论 -
关于msgbox几个函数的应用
msgbox msgbox "erro",16 msgbox "what",32 msgbox "警告",48 msgbox "信息",64 msgbox "确定",0 msgbox "确定/取消",1 msgbox "终止/重试/取消",2 msgbox "是/否/取消",3 msgbox "是/否",4 msgbox "重试/取消",5 msgbox "是/否+原创 2005-09-24 19:11:00 · 924 阅读 · 0 评论 -
计算矩形面积
???c= InputBox ("请输入矩形的长:")k= InputBox ("请输入矩形的宽:")s= c*kMsgBox "你要计算的矩形面积是:" & s原创 2005-09-27 17:21:00 · 1043 阅读 · 0 评论