栏目、文章，限制IP访问-领先建站CMS提供服务商我们专注于CMS建站产品的研发

6394 查看	22 回复

主题：[求助]栏目、文章，限制IP访问 [收藏主题]

转到：

fewfew 当前离线

98 主题	0 广播	0 粉丝

级别:学前班

用户积分:392 分
登录次数:39 次
注册时间:2009/10/13
最后登录:2020/4/21

fewfew 发表于：2011/1/18 16:31:22 | 只看该作者查看该作者主题 21楼

有生源找课程就上科汛课堂街!

做考试题库就用#科汛在线考试系统!

支持(0) |

反对(0)

顶端

底部

fewfew 当前离线

98 主题	0 广播	0 粉丝

级别:学前班

用户积分:392 分
登录次数:39 次
注册时间:2009/10/13
最后登录:2020/4/21

fewfew 发表于：2011/1/18 16:31:41 | 只看该作者查看该作者主题 22楼

有生源找课程就上科汛课堂街!

做官网就用科汛智能建站系统!

支持(0) |

反对(0)

顶端

底部

sbqwg 当前离线

126 主题	0 广播	2 粉丝

级别:一年级

用户积分:844 分
登录次数:262 次
注册时间:2006/4/25
最后登录:2020/10/11

sbqwg 发表于：2011/6/26 15:52:07 | 只看该作者查看该作者主题 23楼

做考试题库就用#科汛在线考试系统!

复制代码

.Write " <td height=""21"" valign=""middle""> <input class='txt' name=""Setting(99)""
type=""text"" value=""" & Setting(99) & """ size=""50""> </td>"
.Write "</tr>"
Dim LockIPStr:LockIPStr=Setting(101)
If LockIPStr<>"" And Not IsNull(LockIPStr) Then
LockIPWhite=Split(LockIPStr,"|||")(0)
LockIPBlack=Split(LockIPStr,"|||")(1)
Dim IPWhiteStr,IPBlackStr,IPWhite,IPBlack
Dim M,N,IPWA:IPWA=Split(LockIPWhite,"$$$")
For M=0 To Ubound(IPWA)
LockIPWhiteArr=Split(IPWA(M),"----")
For N=0 To Ubound(LockIPWhiteArr)
If N=0 Then
IPWhite=KS.CStrIP(LockIPWhiteArr(N))
Else
IPWhite=IPWhite & "----" & KS.CStrIP(LockIPWhiteArr(N))
End If
Next
If M=0 Then
IPWhiteStr=IPWhite
Else
IPWhiteStr=IPWhiteStr & vbcrlf & IPWhite
End If
Next
IPWA=Split(LockIPBlack,"$$$")
For M=0 To Ubound(IPWA)
LockIPBlackArr=Split(IPWA(M),"----")
For N=0 To Ubound(LockIPBlackArr)
If N=0 Then
IPBlack=KS.CStrIP(LockIPBlackArr(N))
Else
IPBlack=IPBlack & "----" & KS.CStrIP(LockIPBlackArr(N))
End If
Next
If M=0 Then
IPBlackStr=IPBlack
Else
IPBlackStr=IPBlackStr & vbcrlf & IPBlack
End If
Next
End If
.Write "<tbody style='display:none'>"
.Write "<tr class='tdbg' class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'""
onMouseOut=""this.className='tdbg'"">"
.Write " <td width='40%' class='clefttitle' align='right'><strong>来访限定方式：</strong><br><font
color='red'>此功能只对ASP访问方式有效。如果你以前生成了HTML文件，则启用此功能后，这些HTML文件仍可以访问（除非手工删
除）。</font></td>"
.Write " <td><input name='Setting(100)' type='radio' value='0'"
if Setting(100)="0" then .write " checked"
.Write "> 不启用，任何IP都可以访问本站。<br>"
.Write " <input name='Setting(100)' type='radio' value='1'"
if Setting(100)="1" then .write " checked"
.Write "> 仅启用白名单，只允许白名单中的IP访问本站。<br>"
.Write " <input name='Setting(100)' type='radio' value='2'"
if Setting(100)="2" then .write " checked"
.Write "> 仅启用黑名单，只禁止黑名单中的IP访问本站。<br>"
.Write " <input name='Setting(100)' type='radio' value='3'"
if Setting(100)="3" then .write " checked"
.Write "> 同时启用白名单与黑名单，先判断IP是否在白名单中，如果不在，则禁止访问；如果在则再判断是
否在黑名单中，如果IP在黑名单中则禁止访问，否则允许访问。<br>"
.Write " <input name='Setting(100)' type='radio' value='4'"
if Setting(100)="4" then .write " checked"
.Write "> 同时启用白名单与黑名单，先判断IP是否在黑名单中，如果不在，则允许访问；如果在则再判断是
否在白名单中，如果IP在白名单中则允许访问，否则禁止访问。</td>"
.Write "</tr>"
.Write "<tr class='tdbg' class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'""
onMouseOut=""this.className='tdbg'"">"
.Write " <td width='40%' class='clefttitle' align='right'><strong>IP段白名单</strong>：<br> (注：添
加多个限定IP段，请用<font color='red'>回车</font>分隔。 <br>限制IP段的书写方式，中间请用英文四个小横杠连接，如<font
color='red'>202.101.100.32----202.101.100.255</font> 就限定了IP 202.101.100.32 到IP 202.101.100.255这个IP段的访问。
当页面为asp方式时才有效。) </td> "
.Write " <td><textarea name='LockIPWhite' cols='60' rows='8'>" & IPWhiteStr & "</textarea></td>"
.Write "</tr>"
.Write "<tr class='tdbg' class=""tdbg"" onMouseOver=""this.className='tdbgmouseover'""
onMouseOut=""this.className='tdbg'"">"
.Write " <td width='40%' class='clefttitle' align='right'><strong>IP段黑名单</strong>：<br> (注：同
上。) <br></td>"
.Write "<td> <textarea name='LockIPBlack' cols='60' rows='8'>" & IPBlackStr & "</textarea></td>"
.Write "</tr>"
.write "</tbody>"
.Write " </table>"
.Write " </div>"

这个怎么那段注释去掉

www.fjtmy.com

有课程找生源就上科汛课堂街

支持(0) |

反对(0)

顶端

底部

＜上一主题 | 下一主题＞

<< 返回列表

上一页首页 1 2 3