所有的新闻内容页面都是通过例如：show.asp来显示的，如何通过ip地址来让部分新闻只有只有允许的ip段能看，而其他的新闻所有人都能浏览？
提供资料如下：
允许的ip地址段：127.0.0.*
数据库db.mdb
表news
字段source
如果字段source中的内容为“允许”，并且ip地址属于上面代码范围内，才可以浏览访问（必须同时满足以上两点因素）；只满足一条或都不满足，显示无访问权限
如果字段source中的内容不是“允许”，无论ip地址是否在上面代码范围内，都能浏览访问


先谢谢各位了

字段source的内容就是汉字“允许”2个字

<%
'限制IP地址(段)集合，星号为通配符。
Const BadIPGroup = "10.117.29.*"
If IsForbidIP(BadIPGroup) = False Then
    Response.Write("<br><br><p align=center><font size=6>无访问权限</font></p>")
    Response.End()
End If


'****************************************************************
'参数vBadIP：要屏蔽的IP段,IP地址集合，用|符号分隔多个IP地址(段)
'返回Bool：True用户IP在被屏蔽范围，False 反之
'****************************************************************
Function IsForbidIP(vBadIP)
    Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j
   
    arrBadIP = Split(vBadIP, "|")   
    arrIPPart = Split(GetIP(), ".")
   
    For i = 0 To UBound(arrBadIP)        
        counter = 0
        arrBadIPPart = Split(arrBadIP(i), ".")       
        For j = 0 To UBound(arrIPPart)            
            If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then           
                counter = counter + 1           
            End If           
        Next       
        If counter = 4 Then           
            IsForbidIP = True
            Exit Function
        End If       
    Next
    IsForbidIP = False
End Function

'***************
'返回客户IP地址
'***************
Function GetIP()
    Dim IP
    IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
    GetIP = IP
End Function
%>

此段代码能单独限制ip段，但是如何与source相结合使用？最好能给出完整代码，谢谢

另外，数据库是通过<!--#include file="conn.asp"-->进行调用的，不需另外写入代码中

举例子：
新闻输入页面如果是http://127.0.0.1/list.asp，
新闻一 http://127.0.0.1/list.asp?id=68  因为ip段和字段source内容都符合，只有给出的ip段内的用户能浏览；
新闻二 http://127.0.0.1/list.asp?id=66  因为ip段或source只有其中一项符合，所有人都能浏览     

能直接写一个完整的代码么，谢谢

帮忙写一个啦，谢谢，谢谢啊