推薦：ASP 高亮顯示不區(qū)分大小寫(xiě)的關(guān)鍵字
今日，碰到一個(gè)問(wèn)題：如何在網(wǎng)頁(yè)中高亮顯示不區(qū)分大小寫(xiě)的關(guān)鍵字 例如：文本abcaBcabCaBCabcaBCa，關(guān)鍵字bc，在不區(qū)分大小寫(xiě)的情況，一共有6個(gè)匹配項(xiàng)。 則在網(wǎng)頁(yè)中顯示的是abcaBcabCaBCabcaBCa。 很多人，想到是replace函數(shù)。原型為 Replace(string,find,replacewith[,

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

EVAL函數(shù)的原型：

EVAL（expression）

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

例如

b=EVAL（"A=5"）

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

再例如：

b=EVAL（"A"）

這句代碼是返回變量A的值。由于ASP是隱式定義的，當(dāng)沒(méi)有定義A時(shí)，返回空字符串。

在例如：

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

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

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

下面一段代碼，是利用EVAL函數(shù)來(lái)實(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) & ">首頁(yè)</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) & ">上一頁(yè)</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) & ">下一頁(yè)</a></span>"
zCurPage = tS
End If

Case 4
If zCurPage = zPageCount Then
GetNav = ""
Else
tS = zCurPage
zCurPage = zPageCount
GetNav = "<span><a href=" & GetURL(zURL) & ">末頁(yè)</a></span>"
zCurPage = tS
End If

End Select
End Function

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

分享：利用XML序列化實(shí)現(xiàn)程序配置文件
有些應(yīng)用程序在退出的時(shí)候，會(huì)將一些設(shè)置值寫(xiě)入到文件里，以便下次程序啟動(dòng)時(shí)調(diào)用，這個(gè)文件統(tǒng)稱為配置文件。例如：Windows的掃雷程序，在每次啟動(dòng)的時(shí)候，都會(huì)出現(xiàn)在上次關(guān)閉的位置，就是因?yàn)閽呃壮绦蛟谕顺龅臅r(shí)候?qū)��?dāng)前位置寫(xiě)入到配置文件里。 早期的配置文件的實(shí)現(xiàn)