'==============================================
“函數名：得到
“作用：獲取分頁
'==============================================
functionGetPaing（byvalconstra，startstrust，oversstr，inclul，anclur）
ifcstorst =“ $ false $” orconstr =“” orstartstr =“” orooverstr =“” orisnull（conr）= trueororisnull（startstr）= trueororisnull（ofverstr）= truethen
getPaing =“ $ false $”
出口
Endif
dimstart，在，思考，tempstr
tempstr = lcase（const）
startString = lcase（startStrust）
Overstr = lcase（OverStr）
上=儀器（1，tempstr，Overstr）
如果<= = 0
getPaing =“ $ false $”
出口
別的
ifinclur = truethen
超過=超過 + len（overstr）
Endif
Endif
tempstrstr = mid（tempstr，1，超過）
start = instrev（tempstr，startstr）
ifinclul = fELSETHEN
start = start + len（startstrust）
Endif
ifstart <= 0orstart> =超過
getPaing =“ $ false $”
出口
Endif
中間（const，開始，啟動）
當代修剪（當代）
enterper =替換（當代“”“”）
當代替換（當代“，”“”）
當代替換（當代“”“”）
ersebor =替換（當代“”“”“）
enther =替換（當代“>”“”）
enthper =替換（當代“ <”“”）
enterper =替換（當代“”“”）
getpaing =當代
最終功能