广告联盟网

标题: adwords点击统计程序asp版本 [打印本页]

---

作者: hello008    时间: 2006-8-8
标题: adwords点击统计程序asp版本
<%
  referer =Request.ServerVariables(&quot;HTTP_REFERER&quot;)
  url =Request.ServerVariables(&quot;URL&quot;)
  ip =Request.ServerVariables(&quot;REMOTE_HOST&quot;)
  if not(isnull(referer) or referer =&quot;&quot;) then
    u =InStr(referer, &quot;&url=&quot;)
    if u >0 then
      u =u+5
      n =InStr(referer, &quot;&color_bg&quot;)
      if n =0 then
        n =InStr(referer, &quot;&ad_type&quot;)
      end if
      if n >0 then
        referer =mid(referer, u, n-u)
        referer =replace(referer, &quot;%3A%2F%2F&quot;,&quot;://&quot;)
        referer =replace(referer, &quot;%2F&quot;, &quot;/&quot;)
        referer =replace(referer, &quot;%26&quot;, &quot;&&quot;)
        referer =replace(referer, &quot;%25&quot;, &quot;%&quot;)
        referer =replace(referer, &quot;%3D&quot;, &quot;=&quot;)
        referer =replace(referer, &quot;%3F&quot;, &quot;?&quot;)
      end if
    end if
    referer =left(referer, 400)
  end if

  if not(isnull(url) or url =&quot;&quot;) then
    url =left(url, 400)
  end if
  
  conn.execute &quot;insert into visitor_info(referer, url, ip) values('&quot; & referer & &quot;','&quot; & url & &quot;','&quot; & ip & &quot;')&quot;
%>

其中并没有过滤非adwords点击

---

欢迎光临 广告联盟网 (https://ggads.com/)

Powered by Discuz! X3.2