近兩日，學習了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的代碼。具有一定的通用性。
Dim zID, zOrder, zOrderBy, zCurPage
Dim zPageCount, zURL

Dim zMM(), zMMPara()

redim zMM(0)
redim zMMPara(0)

Public Sub AddPara(Para, Default, ParaType)
ReDim Preserve zMM(UBound(zMM) + 1)
ReDim Preserve zMMPara(UBound(zMM))
If ParaType = 1 Then
zMM(UBound(zMM)) = Para & "=" & Default
Else
zMM(UBound(zMM)) = Para & "=""" & Default & """"
End If
zMMPara(UBound(zMM)) = Para
End Sub

Public Function GetURL(URL)
Dim i, tS
tS = ""
For i = 1 To UBound(zMM)
If Eval(zMM(i)) = False Then
tS = tS & "&" & Mid(zMMPara(i), 2) & "="

Public Function GetNav(Index)
Dim tS
If zPageCount = 1 Then
GetNav = ""
End If
Select Case Index
Case 1
If zCurPage = 1 Then
GetNav = ""
Else
tS = zCurPage
zCurPage = 1
GetNav = "<span><a href=" & GetURL(zURL) & ">首頁</a></span>"
zCurPage = tS
End If
Case 2

If zCurPage = 1 Then
GetNav = ""
Else
tS = zCurPage
zCurPage = zCurPage - 1
GetNav = "<span><a href=" & GetURL(zURL) & ">上一頁</a></span>"
zCurPage = tS
End If

Case 3
If zCurPage = zPageCount Then
GetNav = ""
Else
tS = zCurPage
zCurPage = zCurPage + 1
GetNav = "<span><a href=" & GetURL(zURL) & ">下一頁</a></span>"
zCurPage = tS