urlclick.asp

来自「重庆二手网」· ASP 代码 · 共 29 行

<!--#include file="config.asp"-->
<%
if request.cookies("fwtongji1")="" then
   response.cookies("fwtongji1")=now()
end if
url=request("url")
if url="" then
   '  response.redirect "../"
   response.end
end if
set rs=conn.Execute("select * from hrefclick where myurl='"&url&"'")

if DateDiff("s", request.cookies("fwtongji1"),now() )<1 and request.cookies("fwtongji1")<>cstr(now()) then      '10秒之内刷新不记数
   'response.write "<a href=a.asp target=_ablack>没有输出</a>"
   'response.end
else
   response.cookies("fwtongji1")=now()
   if rs.eof then
         conn.Execute"Insert into hrefclick(myurl,cs) values ('"&url&"',2)"
   else
         conn.Execute"Update hrefclick set cs=cs+1 where myurl='"&url&"'"
            response.write rs("cs")
   end if
end if
response.redirect url
set rs=nothing
conn.close
set conn=nothing
%>