科汛系统自己添加内外网IP访问文章权限

因为单位要求网站信息有些只能对内，在原有的科汛6.0版本中没有这个功能。还好是ASP，自己动手修改吧！

思路：把添加文章中的“允许评论”选项看成为“允许外网”的选项，在通用标签中增加SQL条件。在Conn.asp中取得IP地点。具体如下:

第一步：

Conn.asp添加如下代码：（注意，isGuest为全局变量）

'====================判断IP是否为外网=========================
tempIP=Request.ServerVariables("REMOTE_ADDR")
if left(tempIP,7)<>"192.168" then
'response.redirect(Index.asp)
isGuest=1
else
   isGuest=0
end if

第二步：

在KS_Cls\Kesion.Label.FunctionCls.asp的218行后面添加

  '不允许外网访问时,列表不显示  
   if isGuest=1 then Param = Param & " And I.Comment=1"

第三步：

在KS.Article.asp的554行，代码修改如下：

   .Write "              <font color='red'> 外网可阅</font>"

第四步：

在Item\Show.asp的14行后面添加如下代码

     '不允许外网访问
     '以Id打开文章表
     dim isD,RS
      Set RS = Server.CreateObject("ADODB.RECORDSET")
      RS.Open "Select * From KS_Article Where ID="&cint(Request.QueryString("D")), conn, 1, 1
      If RS.EOF And RS.BOF Then  Response.write("未查到数据"):Response.end
         isD=RS("Comment")
      if isD=0 then
         If isGuest=1 then
           Response.write("对不起！本文只允许内网用户阅读！")
         Response.end
        end if
      end if
     RS.Close :set RS=Nothing

希望对大家有所帮助！