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