判斷asp推廣效果代碼 來源關鍵詞 來源時間 ip地址……

<%
'判斷百度推廣關鍵詞
 if Trim(Request.QueryString("comefrome"))="bdclick" then
reUrl= request.ServerVariables("HTTP_REFERER")'獲取來源來源地址
reUrl=split(reUrl,"&")

 for i=lbound(reUrl) to ubound(reUrl)
  if instr(reUrl(i),"wd")>0 then
            urlKey=split(reUrl(i),"=")
keyWord=urlKey(1)
end if
 next

comeKey=URLDecode(keyWord)
comeTime=now()
comeIp=request.ServerVariables("REMOTE_ADDR")
Response.Write(comeKey)
conn.execute("insert  into comefrom (keyword,comeTime,ip)values('"&comeKey&"','"&comeTime&"','"&comeIp&"')")
end if %>