www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > in.asp
<!--#include file="conn.asp"--> <% dim username username=hx.checkstr(request("id"),12) If username="" then Call GoToUrl End If If not hx.isrec(0) then dim rs,sql set rs=server.createobject("adodb.recordset") sql="select TOP 1 inc,inj,indate,fromdate,siteurl from Qzonev_Com_Link where username='"&username&"'" rs.open sql,conn,1,2 If not rs.eof then If rs("inc")=0 then '记录开始统计的时间 rs("fromdate")=now() End If If DateDiff("d",rs("indate"),Date())=0 then rs("inj")=rs("inj")+1 else rs("inj")=1 End If rs("inc")=rs("inc")+1 rs("indate")=Now() rs.update rs.update else Response.Redirect "vote_wrong.asp?id=" & username rs.close set rs=nothing CloseDatabase Response.End End If rs.close set rs=nothing '清空缓存 hxcache.DelCahe("js") End If Call GoToUrl Sub GoToUrl set hx = nothing Response.Redirect "vote.asp?id=" & username Response.End End Sub %>