科汛系统自己添加内外网IP访问文章权限
2011/6/19 20:43:43

因为单位要求网站信息有些只能对内,在原有的科汛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
希望对大家有所帮助!

返回列表
返回首页
©2024 金松软件
Powered by iwms