<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：处理点入的程序
'更新：2004-12-27 19:02
'作者：未知-部落忍者
'演示：http://www.0cc.cn/link/
'-------------------------------------

'on error resume next
'Response.Buffer=true
dim username,comeurl
username=hx.checkstr(request("id"),12)

	If username="" then
		Call GoToUrl
	End If
	
comeurl=hx.checkstr(Request.ServerVariables("http_referer"),200)

	If hx.ip="" or comeurl="" or instr(comeurl,hx.BaseUrl&"addlink.asp")>0 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,inp,indate,fromdate,siteurl from CL_Link where username='"&username&"'"
		rs.open sql,conn,1,2
		If not rs.eof then
			'判断点入来源是否在其登记的网站域名上
			If Isanti = 1 then
				dim siteurl
			  siteurl=rs("siteurl") 
			  if left(siteurl,7)="http://" then
			  	siteurl=Mid(siteurl,8)
			  End If
			  if instr(siteurl,"/")>0 then
	        siteurl=Mid(siteurl,1,instr(siteurl,"/")-1)
	      End If
				if instr(comeurl,siteurl) = 0 then
					set rs=nothing
					Call GoToUrl
				End If
			End If

			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 "无此用户名，或者此用户名已经删除，点此访问 <a href= " & WebUrl & "> " & WebName &" </a>"
			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 WebUrl
		Response.End
	End Sub

%>