VBScript v script languagevbscript SCRIPT v script languagevbscript
二、网�中 VBScript程序的�写 v 客�端程序�写格式: § <script language=“vbscript”> <!代码 --> </SCRIPT> v 服�器端程序�写: § <script language=“vbscript” runat=“server” > 程序代码 </Script>
例1: vbscript 网�程序�� 1 v <html> v <head> v <meta http-equiv="Content-Type" content="text/html; charset=gb 2312"> v <title> vbscript客�端程序��例 1</title> v </head> v <body> v <script language=vbscript> v Msg. Box "您好, �是我的第一个 VBSCRIPT脚本程序" v </script> v </body> v </html> 例1代码
2. VBScript 默�常量 v VBScript 默认常量不需申明可直接使用。 v 颜色常量: 常数 vb. Black 值 &h 00 描述 黑色 vb. Red vb. Green &h. FF 00 红色 绿色 vb. Yellow &h. FFFF 黄色 vb. Blue &h. FF 0000 蓝色 vb. Magenta &h. FF 00 FF 紫色 vb. Cyan &h. FFFF 00 青色 vb. White &h. FFFFFF 白色
日期和��常量: 常数 值 描述 vb. Sunday 1 星期日 vb. Monday 2 星期一 vb. Tuesday 3 星期二 vb. Wednesday 4 星期三 vb. Thursday 5 星期四 vb. Friday 6 星期五 vb. Saturday 7 星期六
2. 比�运算符 运算 描述 True 如果 false 如果 Null 如果 < 小于 expression 1 < expression 2 expression 1 >= expression 2 expression 1 or expression 2 = Null <= 小于或等于 expression 1 <= expression 2 expression 1 > expression 2 expression 1 or expression 2 = Null > 大于 expression 1 > expression 2 expression 1 <= expression 2 expression 1 or expression 2 = Null >= 大于或等于 expression 1 >= expression 2 expression 1 < expression 2 expression 1 or expression 2 = Null = 等于 expression 1 = expression 2 expression 1 <> expression 2 expression 1 or expression 2 = Null <> 不等于 expression 1 <> expression 2 expression 1 = expression 2 expression 1 or expression 2 = Null
Rnd�例 v <script language=vbscript> v dim i v for i=1 to 10 v document. write int(Rnd(10)*100) & " " v next v </script> 例 注意:要产生指定范围的随机整数,请使用以下公式: Int(Rnd*(范围上界 – 范围下界 + 1)+ 范围下界 ) 例:产生 10 -100之间的随机数: int(Rnd*(100 -10+1)+ 10)
Sub子程序�写与�用 v v v v <script language=vbscript> 主程序中�子程序的�用 : sub xs(d) v <script Dim x, y, c, z c="" language=vbscript> For x = 1 To 10 step 2 for z=(10 -x)/2 to 1 step -1 v call xs("*") c=c & " " v xs "@" next for y=1 to x v </script> c=c & d next c=c & " " 注意:用CALL调用过程时 Next 必须有“()”;省略 document. write c CALL语句时可省略“() end sub </script> ” 程序页链接
Function�程�例 v <script language=vbscript> v Function jc(d) v Dim x, y v y=1 v For x = 1 To d v y=y*x v Next v jc=y v end Function v </script> v 主程序�用: v <script language=vbscript> v v a=jc(8)+jc(10) document. write "8的�乘 +10 的�乘 =" & a v </script> 程序页链接
window. open格式 v window. open(‘URL’, ‘窗口名’, ‘格式’) 格式参数: toolbar=yes, no 是否显示 具条 location=yes, no 是否显示网址栏 directories=yes, no 是否显示导航条 status=yes, no 是否显示状态条 menubar=yes, no 是否显示菜单 scrollbars=yes, no 是否显示滚动条 resizable=yes, no 是否可以改变公告窗口大小 copyhistory=yes, no 是否显示历史按钮 width=300 公告窗口的宽 height=200 公告窗口的高 left=100 公告窗口的左上顶点距屏幕左边 100像素 top=100 公告窗口的左上顶点距屏幕顶端 100像素 v 例如:window. open ‘http: //www. jxvtc. edu. cn', 'popupnav', 'width=200, height=170, resizable=0'
- Slides: 60