动易系统，想对某个栏目进行限制ip访问，怎么实现？

为动易siteweaver增加IP地址范围限制

动易SiteWeaver6.8虽然已经停止更新，但其代码倾注了工程师门的大量心血，功能十分强大，仍有好多朋友爱不释手。
其浏览权限限制是基于用户组的，对用户的IP并没有限制功能。
这几天应客户个性要求，要求某些文章或栏目只能由本单位的人员访问，外部IP访问不了。于是自己写了这么一段，虽然并不高明，但是简洁实用，效果不错。
由于代码较少，容易读懂，没有什么深奥的地方，所以就不写注释了。

1.在PowerEasy.Article.asp文件的第2978行增加以下代码：

Function IpLimit()
dim ip,p,Re
set re=new regExp
re.Global = True
IP=Request.ServerVariables("REMOTE_ADDR")
p=conn.execute("Select * from PE_Config")("mobiles")
re.Pattern=p
ipLimit=re.test(ip)
end function

2.还是这个文件的第3000行，增加以下内容：
if instr(strHtml, "{$IpLimit}")>0 then
if not IpLimit() then
ErrMsg = ErrMsg & XmlText("BaseText", "PurviewCheckedErr", "