| 网站首页 | 建站学院 | 资源下载 | 建站教程 | 图片素材 | 网贝社区 | 
您现在的位置： 网贝建站 >> 建站学院 >> ASP技术 >> 正则表达式 >> 正文 用户登录 新用户注册
专 题 栏 目
最 新 热 门
最 新 推 荐
相 关 文 章
没有相关文章
检查来访IP是否合法的实际应用    热     ★★★
检查来访IP是否合法的实际应用
作者：佚名 文章来源：网海之贝 点击数： 更新时间：2004-8-30 17:21:41
   sub chkIP(boardid)
      dim rsIP
      dim ipArr
      dim ignored
      dim i
      dim ip
      dim sql

      ip=Request.ServerVariables("REMOTE_ADDR")      
      ignored=false
      if not isempty(boardid) then      
         sql="select ignoreip from board where boardid="&cstr(boardid)
         set rsIP=conn.execute(sql)
         if not (rsIP.eof and rsIP.bof) then
            if instr(cstr(rsIP("ignoreip")&""),chr(13)&chr(10)) then
               iparr=split(rsIP("ignoreip"),chr(13)&chr(10))
               for i=0 to ubound(iparr)
                   if trim(iparr(i))<>"" and left(ip,len(trim(iparr(i))))=trim(iparr(i))  then
                      ignored=true
                      exit for
                   end if
               next
            else
               iparr=rsIP("ignoreip")
               if ip=trim(iparr) then
                  ignored=true
               end if
            end if
         end if
         rsIP.close
      end if
      if ignored then
         response.write "<script language=javascript>window.location.href='ignoreip.htm'</script>"
      end if
  end sub

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！
文章录入：admin    责任编辑：admin 
  • 上一篇文章：

  • 下一篇文章：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    站长：无色幽默