二亩地专业建站/网站制作建设公司

标题: 判断是不是从百度来的 [打印本页]
作者: admin    时间: 2013-11-23 11:34:34     标题: 判断是不是从百度来的

  1. <!--判断开始-->
  2. <%
  3. dim urlstr
  4. urlstr=request.servervariables("http_referer")
  5. if urlstr<>"" then
  6. if instr(urlstr,"http://www.baidu.com")=1 or instr(urlstr,"http://www.ermudi.cn")=1  then  
  7. %>


  10. <%
  11. response.Cookies("guanggao")="1"
  12. response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
  13. %>

  15. <%
  16. end if
  17. end if
  18. %>
  19. <!--判断结束-->
复制代码

  1. <%
  2. dim urlstr
  3. urlstr=request.servervariables("http_referer")
  4. if urlstr<>"" then
  5.   if (instr(urlstr,"http://www.baidu.com")=1 or instr(urlstr,"http://www.ermudi.cn")=1) then
  6.       if request.Cookies("guanggao")="" then
  7. %>


  10. <%
  11. response.Cookies("guanggao")="1"
  12. response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
  13. %>

  15. <%
  16. end if
  17. end if
  18. end if
  19.   %>
复制代码

  1. <%
  2.   if request.Cookies("guanggao")="" then
  3. %>

  5. <!--开始广告-->


  8. <!--结束广告-->

  10. <%
  11.   response.Cookies("guanggao")="1"
  12.   response.cookies("guanggao").expires=dateadd("d",1,datevalue(date))
  13.   end if
  14. %>
复制代码







欢迎光临 二亩地专业建站/网站制作建设公司 (http://www.ermudi.cn/) Powered by Discuz! X2