科汛系统自己添加内外网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