ASP中的EVAL函数

　　近两日，学习了ASP的EVAL函数。感觉上很实用，如果使用得当，能减轻很多代码的编写量，也使得代码更加简洁明了。

　　EVAL函数的原型：

　　EVAL（expression）

　　其中expression是字符串参数，可以是表达式，可以是变量，甚至可以是语句。但都是以字符串的形式出现。

　　例如

　　b=EVAL（"A=5"）

　　这句代码意思是判断变量A的值，是否等于5，等于返回TRUE，不等于返回FALSE。等同于b=(A=5)。不过，该函数的灵活就在于他的参数是以字符串的形式存在的。这样我可以构造字符串，相当于执行该字符串的语句。

　　再例如：

　　b=EVAL（"A"）

　　这句代码是返回变量A的值。由于ASP是隐式定义的，当没有定义A时，返回空字符串。

　　在例如：

　　b=EVAL（"CustFunction(2,3)"）

　　这句代码执行函数CustFunction(2,3)，将返回值给b。看到这，想到什么？嗯，多态。

　　由于EVAL函数的参量是字符串，我合理的构造字符串能实现很多看起来不可能的事情。

　　下面一段代码，是利用EVAL函数来实现构造链接URL的代码。具有一定的通用性。

　　

1 Dim zID, zOrder, zOrderBy, zCurPage

2  Dim zPageCount, zURL

3

4  Dim zMM(), zMMPara()

5

6 redim zMM(0)

7 redim zMMPara(0)

8

9 Public Sub AddPara(Para, Default, ParaType)

10 ReDim Preserve zMM(UBound(zMM) + 1)

11 ReDim Preserve zMMPara(UBound(zMM))

12 If ParaType = 1 Then

13 zMM(UBound(zMM)) = Para & "=" & Default

14 Else

15 zMM(UBound(zMM)) = Para & "=""" & Default & """"

16 End If

17 zMMPara(UBound(zMM)) = Para

18 End Sub

19

20 Public Function GetURL(URL)

21 Dim i, tS

22 tS = ""

23 For i = 1 To UBound(zMM)

24 If Eval(zMM(i)) = False Then

25 tS = tS & "&" & Mid(zMMPara(i), 2) & "=" & Eval(zMMPara(i))

26 End If

27 Next

28

29 If Len(tS) > 0 Then

30 GetURL = URL & "?" & Mid(tS, 2)

31 Else

32 GetURL = URL

33 End If

34 End Function

35

36 Public Function GetNav(Index)

37 Dim tS

38 If zPageCount = 1 Then

39 GetNav = ""

40 End If

41 Select Case Index

42 Case 1

43 If zCurPage = 1 Then

44 GetNav = ""

45 Else

46 tS = zCurPage

47 zCurPage = 1

48 GetNav = "<span><a href=" & GetURL(zURL) & ">首页</a></span>"

49 zCurPage = tS

50 End If

51 Case 2

52

53 If zCurPage = 1 Then

54 GetNav = ""

55 Else

56 tS = zCurPage

57 zCurPage = zCurPage - 1

58 GetNav = "<span><a href=" & GetURL(zURL) & ">上一页</a></span>"

59 zCurPage = tS

60 End If

61

62 Case 3

63 If zCurPage = zPageCount Then

64 GetNav = ""

65 Else

66 tS = zCurPage

67 zCurPage = zCurPage + 1

68 GetNav = "<span><a href=" & GetURL(zURL) & ">下一页</a></span>"

69 zCurPage = tS

70 End If

71

72 Case 4

73 If zCurPage = zPageCount Then

74 GetNav = ""

75 Else

76 tS = zCurPage

77 zCurPage = zPageCount

78 GetNav = "<span><a href=" & GetURL(zURL) & ">末页</a></span>"

79 zCurPage = tS

80 End If

81

82 End Select

83 End Function

　　这段代码，充分利用EVAL函数对于页面的四个参数zID, zOrder, zOrderBy, zCurPage进行URL的构造。且具有一定的通用性。只要适当的修改就可以了。