获取百度推广关键词ASP代码

判断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 %>