ASP实现拦截GetBody字符串的代码

==================================================
功能名称：GetBody
效果：截取字符串
参数：建设----被截取字符串
参数：startstr ---开始的字符串
参数：overstr -----结束的字符串
参数：inclul -----它包含startstr
参数：inclur -----它包含overstr
==================================================
函数（结构，startstr GetBody，overstr，inclul，inclur）
如果建设=假美元$ 或或建筑= IsNull（建设）= TRUE或startstr = 或
GetBody =假美元$
退出功能
最后如果
昏暗的constrtemp
启动模糊
constrtemp = 1例（建设）
startstr = Lcase（startstr）
overstr = Lcase（overstr）
开始= instrb（1，constrtemp，startstr，vbbinarycompare）
如果开始< 0然后
GetBody =假美元$
退出功能
其他的
如果inclul = FALSE然后
开始=开始+ lenb（startstr）
最后如果
最后如果
在instrb（开始，ConStrTemp，overstr，vbbinarycompare）
如果超过< 0或超过<开始>
GetBody =假美元$
退出功能
其他的
如果inclur =真
在以上lenb（overstr）
最后如果
最后如果
GetBody =多重交替焙烘显影工艺（建设，启动，在启动）
端功能