'==============================================
“函数名：得到
“作用：获取分页
'==============================================
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 =当代
最终功能