www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/in.asp

    <!--#include file="conn.asp"-->
<%
'on error resume next
'Response.Buffer=true
dim username,comeurl
username=hx.checkstr(request("id"),12)
If username="" then
CloseDatabase
Response.Write "用户名有误"
Response.End
End If
comeurl=Request.ServerVariables("http_referer")

If comeurl<>"" and not hx.isrec(0) then
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select TOP 1 inc,inj,inp,indate,fromdate from CL_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("inp")=rs("inc")/(DateDIff("d",rs("fromdate"),Date())+1)
	rs.update
else
	Response.Write "无此用户名，或者此用户名已经删除"
	rs.close
	set rs=nothing
	CloseDatabase	
	Response.End
End If
rs.close
set rs=nothing

'清空缓存
hxcache.DelCahe("js")

End If
CloseDatabase
Response.Redirect WebUrl
%>