数学建模社区-数学中国

标题: ASP语法大全 [打印本页]
作者: 韩冰    时间: 2005-1-16 11:36
标题: ASP语法大全

来源:http://blog.csdn.net/aspstu/

* f6 w3 j1 e5 `7 B) T- B5 ^

语句 ! G D4 @' m: q5 U; B* {Call

$ }3 t) r1 g3 S6 u' I4 [

[call] name [argumentlist]

- f7 E+ w8 ~6 _ X; F

把控制转移到函数或子程序。当调用函数或子程序时，Call是可写可不写的。但是如果你用了Call,那么argumentlist必须用括号括起来。

$ q7 Z: j5 o7 e+ l2 Z* ^# K

Const

) z* S( l$ ]; ]( s, O. P7 K

[Public | Private] Const constantname=expression

* ?6 z8 H2 G. h) n H- ~

用于申明常数。你可以在一行里申明多个常数，此时你必须用逗号把常数赋值语句隔开。

5 h2 s) @( R9 }- K6 t, n

Dim

4 x/ X- E0 _$ k* r) t1 F

Dim varname[ ( [subscripts])][, varname [( [subscripts])]...

6 S! H- H: [' S. v* s7 Q% O+ s

创建一个新变量并且分配存储空间。

% t/ k G0 `7 h: h5 W* w

DO . . . LOOP

! Y% W0 V% X' Q+ M. m- e

语法 1：

8 ~. h' D' Z$ D8 r7 a0 K' a9 K

Do [{While | Until } condition ]

( x* n5 v( b1 }; F

[statements]

5 `% L2 g* g# d4 B

[Exit Do]

8 H4 w1 s5 o* @0 H$ _8 r$ K

[statements]

+ u, ^7 k/ O4 Q j/ E! t- a6 \

LOOP

. K) T0 Z' M y; _

语法 2：

1 `1 x {/ w& |- s! ?* \& j* k

Do

& W# m- M1 b: C( ^* s4 N+ \) E

[statements]

3 @" m8 t8 k6 W% h) o# `

[Exit Do]

4 @+ |: q2 j8 p% @% x" t4 @

[statements]

% b. g/ X, W4 |, M" x# t

LOOP [{While | Until } condition ]

) o, _ {+ `$ g% i1 |

当条件condition为真时或直到条件condition为真时，两种形式都重复执行语句。

! ]5 e" |; w) k8 M m6 ^3 N9 P

Erase

1 t, Z0 I. [8 Y) C7 t

Erase array

+ p S$ o1 a. ?+ B. i7 X& `/ a

清理数组，对于固定长度的数组，重新初始化元素；对于动态数组，重置存储空间。

: |: G2 C1 y: N+ l0 C8 p9 ?9 L

Exit

# s+ H5 s0 T0 s3 B% A

Exit Do

8 z( r% q: r/ {5 ]* t! ]: ?; j& B* B: z

退出一个 DO . . . LOOP 循环。

2 i* y; ?5 r7 g' ^

Exit For

" o; H @% s! k; _

退出一个 For . . . Next 循环或For Each . . . Next循环。

, Y! a1 l* ^7 |9 o9 E

Exit Function

$ y* H0 S( j1 g( _3 y

退出一个 函数。

" w1 g& z# U' n

Exit Sub

3 a+ ^$ o e* N7 }% K, L

退出一个子程序。

9 K. U9 M) o, g5 w

For . . . Next

r9 F. ?7 S% C

For counter = start To End [Step step]

% J7 s+ K. [7 Y% D' `/ Z# [: m. u3 Z

[statements]

- v+ x& R+ ^6 w b* X

[Exit For]

- X; Y# ^: R9 @ v4 r

[statements]

8 q7 C: F9 x p$ ]6 w

Next

( F s( e. I( j8 a/ X* u5 p! E) s

由loop 计数器指定的次数重复执行statements语句群。

7 Z+ c" J W: h( N& l5 v# f

For Each . . . Next

! a- b# [& H! N+ s! N8 Z' l

For Each element In group

6 m0 c7 m3 B6 O2 N

[statements]

0 X) t+ n- D0 V+ S* j

[Exit For]

9 `6 v! f a: c, V

[statements]

' v. y0 p5 k' s7 U& C

Next [element]

2 e, A: R. u( y' o1 |

对于每一个在数组或集合中的元素，重复执行statements语句群。

6 G1 n; ?0 n# E6 \

Function

2 U3 W8 y! ?: _

[Public | Private] Function name [(arglist)]

1 m) L% o# m' N

[statements]

! [! r$ Q7 j" Y1 H7 |* ]0 F

[name=expression]

2 _2 J" D2 L, [% o

[Exit Function]

. K/ q& \# x' T! o! P6 C

[statements]

3 c" z7 S |2 [+ A$ f

[name=expression]

M, n" V* L% i* c& O; J

End Function

" [: A* c k5 z3 v

定义一个函数，指明函数名，参数及代码。

- Y" \! B& \, Y

If . . . Then . . . Else

( w' J0 L. X" M- |" y& ] h

语法1：

+ k L9 i9 n6 H7 O/ B0 j

If condition Then statements [Else elsestatements]

( W* G# L+ ^, ^5 D! p

语法2：

1 g$ e K' [. r2 U2 q

If condition Then

5 z! P" Y( |; f T5 J& K' |+ u. P

statements

^7 T+ q' _. A, M4 d

[ElseIf condition-n Then

4 R/ p0 d# L, c! f0 H4 i' `2 S

[elseifstatements]] . . .

6 v0 G% M% D! {+ Y J w" j

[Else

% X$ ?1 K+ T8 x- w( o

[elsestatements]]

" M2 ]/ ?" N. K h% U- B- l

End If

# p5 K) F, C3 f

两种格式都条件执行一系列语句。

% O0 f/ a2 c" P! `- ?: x* g) u

On Error

! i4 O* s( |7 G- \# V4 q

On Error Resume Next

# _# q F. b }9 T0 T+ G6 E' _

当一个错误发生时，这条语句就执行紧靠发生错误语句后面的语句，或者执行紧靠调用进程后面的语句。

2 }- K/ F/ j: N4 n# i( W, H

Option Explicit

8 N8 k/ a2 W4 F+ ?0 h

Option Explicit

$ l& ?# _8 F3 p$ @/ z

在使用变量之前强制明确定义该变量，可以用Dim,Private,Public或 ReDim语句定义变量。

' W, f6 Q2 O4 l2 p. u

Private

8 e2 d6 q& O: H

Private varname[([下标])][, varname[([下标])] . . .

' d: B2 m4 L- ~; b+ E5 o! i* {

创建私有变量并且分配存储空间。（私有变量只能在定义该变量的脚本中可用）

' S+ q$ X6 d! B

Public

0 v7 K7 Z9 H3 ?& ^3 i" S

Public varname[([下标])][, varname[([下标])] . . .

* K3 ?% `2 \8 G6 I! {

创建公有变量并且分配存储空间。（公有变量在程序的任何地方均可使用）

$ i2 I% w$ Q q6 w. k

Randomize

4 c8 g# t; A5 V% Q

Randomize [number]

9 M6 W% y9 [/ `

给Rnd函数的随机数发生器一个新种子值。

! c* ]6 Y0 E2 Q7 g/ k. Z1 f

ReDim

, f. C7 ^3 {2 h/ N, @- Y

ReDim [Preserve] varname(subscripts)[, varname(subscripts)] . . .

$ p3 [" ~8 |. p4 R/ d

修改维的下标，大小；或重置动态数组的大小。Preserve 保护已存数组的数据。

6 b8 h' e, ^1 p6 g

Rem

. y; |7 W& |) B0 o

语法1：

8 P. W: Q# a) Z! v; }' `/ m

Rem comment

, k& N, X$ D- G: P L

语法2：

! j, f0 b/ a, k6 r

‘comment

! \, S, q9 o3 r/ m( F+ |& c* W( j

这两种语句形式都能使注释的句子不被处理。如果Rem和其它语句在同一行上，Rem 语句必须在后且二者之间必须用冒号隔开。

' r6 j4 R) Z/ h% Z

Select Case

2 R: s8 l# n/ G" X5 N+ q4 q

Select Case testexpression

/ n, U1 r* Q0 S; ]+ C

[Case expressionlist-n

3 c; f) J# k# t5 \) a5 Q

[statements-n]] . . .

' v6 }3 g! _7 k+ y% t" W

[Case Else expressionlist-n

. Z, | n9 ~4 a/ B+ H

[elsestatements-n]]

7 b) U& R0 S2 q: s, ?

End Select

E% ]6 u4 K: k) y$ U b

如果某一个expressionlist 和testexpression 匹配，则执行和expressionlist对应的语句；如果没有一个expressionlist 和testexpression 相匹配，则执行和Case Else 相对应的语句。

0 Q3 j0 i! W# k, R! |+ G* y6 F! w2 v

Set

" T V6 g# z8 J' W

Set obectvar= {objectexpression | Nothing}

- J0 A) z/ z/ c" h# G& M2 q0 q

赋予一个变量或一个性质对象引用。当赋予的值为Nothing 时，使obectva 和任何以前指明的对象解除关系。

$ F# C& q9 T5 n8 `6 p

Sub

+ h" V- l; N# g: h0 t5 ?( I; y8 \

[Public | Private] Sub name [(arglist)]

: d0 d; r6 j( m- N4 S# | w8 P- o

[statements]

4 Q; D$ l, Y8 e* t/ R8 k$ S

[Exit Sub]

# P- ?( O6 G4 y# f5 }5 ? e! d

[statements]

% X" f y# j' G' e( q

End Sub

% S/ y) ?6 q& L

定义一个子程序，指明名称，参数及代码。

3 L! D# s: t# |. m8 y( V( {

While . . . Wend

- i* E) r# k% |& L# \5 N0 B

While condition

: O, ~3 M3 e6 {

[statements]

- C/ ]9 F: ?) k; T* j1 ~

Wend

7 S! m4 B; Q# _ T& E& K

不停地连续执行语句statements 直到条件condition为True。

" ^; G+ l) a- r7 X% ^; ^' N e

+ X( x/ o+ w6 z( h/ `* M





欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5