中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

近兩日，學(xué)習(xí)了ASP的EVAL函數(shù)。感覺上很實用，如果使用得當，能減輕很多代碼的編寫量，也使得代碼更加簡潔明了。

EVAL函數(shù)的原型：

EVAL（expression）

其中expression是字符串參數(shù)，可以是表達式，可以是變量，甚至可以是語句。但都是以字符串的形式出現(xiàn)。

例如

b=EVAL（"A=5"）

這句代碼意思是判斷變量A的值，是否等于5，等于返回TRUE，不等于返回FALSE。等同于b=(A=5)。不過，該函數(shù)的靈活就在于他的參數(shù)是以字符串的形式存在的。這樣我可以構(gòu)造字符串，相當于執(zhí)行該字符串的語句。

再例如：

b=EVAL（"A"）

這句代碼是返回變量A的值。由于ASP是隱式定義的，當沒有定義A時，返回空字符串。

在例如：

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

這句代碼執(zhí)行函數(shù)CustFunction(2,3)，將返回值給b。看到這，想到什么？嗯，多態(tài)。

由于EVAL函數(shù)的參量是字符串，我合理的構(gòu)造字符串能實現(xiàn)很多看起來不可能的事情。

下面一段代碼，是利用EVAL函數(shù)來實現(xiàn)構(gòu)造鏈接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) & "=" & Eval(zMMPara(i))

End If

Next

If Len(tS) > 0 Then

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

Else

GetURL = URL

End If

End Function

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

End If

Case 4

If zCurPage = zPageCount Then

GetNav = ""

Else

tS = zCurPage

zCurPage = zPageCount

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

zCurPage = tS

End If

End Select

End Function

這段代碼，充分利用EVAL函數(shù)對于頁面的四個參數(shù)zID, zOrder, zOrderBy, zCurPage進行URL的構(gòu)造。且具有一定的通用性。只要適當?shù)男薷木涂梢粤恕?/P>

更多信息請查看IT技術(shù)專欄