海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
ASP留言板IP或IP段限制与限制留言次数

<%
'留言板IP限制程序
dim ips
ips = left(Request.ServerVariables("REMOTE_ADDR"),15)
response.write ips

IpLists = "127.0.|"

function isForbid(sip)
 dim Iplist,Iparr,Ipi
 Iplist = "|"& IpLists &"|" '
 Iparr = split(Iplist,"|") '生成数组
 for Ipi = 0 to ubound(Iparr) '循环查找数组IP
  if len(Iparr(Ipi)) > 0 and instr("|" & sip,"|" & Iparr(Ipi)) > 0 then
   isForbid = true
   exit function
  end if
 next
 isForbid = false
end function

if isForbid(ips) then
 Response.write "<p align=""center"">你没有留言的权限</p>"
else
 response.write "aaaaaaaaaa"
end if


'验证两次留言时间间隔 方法 01
'PostIntervalTime = 5*60 '同一个IP多长时间可以留一次言,单位是秒，5分钟可以用5*60表示，不限制请设置为0
PostIntervalTime = 1*60
 
 if int(PostIntervalTime) > 0 then
  newDate = Dateadd("s",int(PostIntervalTime)*-1,Now)
  Set rs = conn.execute("select top 1 ip from qwbmbook where ip = '"& fixsql(ip) &"' and time > #"& newDate &"#")
  if not (rs.eof and rs.bof) then
   set rs = nothing
   conn.close
   set conn = nothing
   'er "请不要频繁留言，请等分钟"& int(PostIntervalTime/60) &"留言！",""
  end if
  set rs = nothing
 end if
%>

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!