防止垃圾留言的代码

Function chkReferer()
 '防止垃圾留言功能开始
 dim ComeUrl,cUrl
 ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
 if ComeUrl="" then
  ExitError "对不起,为了系统安全,不允许直接输入地址访问本页面。"
 else
  cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
  if mid(ComeUrl,len(cUrl)+1,1)=":" then
   cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
  end if
  cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
  if lcase(left(ComeUrl,instrrev(cUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
   ExitError "防垃圾留言功能已经打开,禁止从外部链接地址提交留言。" & ComeUrl
  end if
 end if
 '防止垃圾留言功能结束
End Function

联系我们

QQ:51193930(Ahoo)
MSN:auuocx@hotmail.com
网址:http://www.auuo.com
地址:慈溪天九商务中心525室
电话:189-0662-0882

我们的优势
拥有优秀的网站设计师与程序工程师,精通各种一流的图形设计软件,如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目,我们为您准备了最专业的技术服务。为您开发的网站精致实用,代码清晰,保证您的网站安全可靠修改方便,最重要的是符合市场需求,并随时为客户解决各种技术问题。

我们正在努力开拓...

baidu

互联网 本网站