gusucode.com > 味多美网址导航源码程序 V20100902 > 味多美网址导航源码程序 V20100902\code\come.asp
<!--#include file="mdb.asp"--> <% llqz=Cstr(Request.ServerVariables("HTTP_REFERER")) llym=Cstr(Request.ServerVariables("SERVER_NAME")) llqz_ym=replace(llqz,"http://","") if(Instr(llqz_ym,"/") <=0) then ll_host = llqz_ym else wz_end=instr(llqz_ym,"/")-1'返回/字符串在网址字符串中第一次出现的位置 ll_host=Mid(llqz_ym,1,wz_end) end if ll_host=replace(ll_host," ","") if ll_host<>llym then 'response.redirect "../index.htm" Response.write " " response.end end if '----------------以上为防作弊功能---- server_v1=request("f") Response.write "来路地址:"&server_v1&"<br>" server_v=replace(server_v1,"http://","") if(Instr(server_v,"/") <=0) then host = server_v else wz_end=instr(server_v,"/")-1'返回/字符串在网址字符串中第一次出现的位置 host=Mid(server_v,1,wz_end) end if host=replace(host," ","") 'Response.write "来访域名:"&host&"<br>" UserIP=Request.ServerVariables("REMOTE_ADDR") ck=replace(host&"-"&UserIP,".","_") 'Response.write "cookie:"&ck&"<br>" Response.write "来访域名:"&host&"<br>" 'response.write server_v&"<br>" '创建cookie YonRita=Request.Cookies("RitaForm") 'response.write YonRita&"<br>" If YonRita=ck then Response.write "统计过" '统计过,不加了 Else Response.Cookies("RitaForm")=ck Response.Cookies("RitaForm").Expires=now+1 '一天过期(当前时间+1天) '点进 Set rs = Server.CreateObject("ADODB.RecordSet") StrSql="select * From detail where url like '%" & host & "%'" 'yl_url='"&host&"' 'response.write StrSql&"<br>" rs.open StrSql,Conn,1,1 If not rs.eof and not rs.bof then '<------------------日统计开始 if rs("yl_dayin")<>"" then '如果记录统计数不为空的时候 If Datepart("d",rs("yl_intime"),2) <> Datepart("d",now(),2) then '如果记录点击日期不是本日 szupdate="update detail set yl_in=yl_in+1,yl_yesterin=yl_dayin,yl_dayin=1,yl_intime=now() where id="&rs("id")&"" Conn.execute szupdate Else '如果日期为本日之内 xcfz=DateDiff("n",rs("yl_intime"),now()) '判断最后更新时间与当前时间相差几分钟 response.write "相差 <b>"&xcfz&"</b> 分钟<br>" 'response.end if xcfz>10 then szupdate="update detail set yl_in=yl_in+1,yl_dayin=yl_dayin+1,yl_10in=1,yl_intime=now() where id="&rs("id")&"" else szupdate="update detail set yl_in=yl_in+1,yl_dayin=yl_dayin+1,yl_10in=yl_10in+1,yl_intime=now() where id="&rs("id")&"" end if Conn.execute szupdate End if Else '若记录统计数等于空的时候 szupdate="update detail set yl_in=1,yl_dayin=1,yl_10in=1,yl_intime=now() where id="&rs("id")&"" Conn.execute szupdate End if 'response.write szupdate&"--A<br>" '-------------------日统计结束> Else Response.write "没找到,不统计" End If rs.close set rs=nothing End if if not AutoAdd then response.end response.Write "自动收录" conn.execute "insert into detail(title,url,classid,yl_time,yl_intime,yl_in,yl_dayin) values('自动收录','http://"&host&"',1,'"&Now&"','"&Now&"',1,1)" 'conn.execute %>