<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
On Error Resume Next
pid=request.QueryString("pid")
if len(pid)=0 then pid=0

if len(session("vistor_id"))=0 or session("vistor_id")=0 then
	Randomize
	session("vistor_id")=int(rnd*100000000)+1
end if

visitor_ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If visitor_ip="" Then visitor_ip=Request.ServerVariables("REMOTE_ADDR")

ConnectionDatabase
conn.execute("INSERT INTO [count] (visitor_id,visitor_ip,visitor_time,pid) VALUES ("&session("vistor_id")&",'"&visitor_ip&"','"&now&"',"&pid&")")
connclose
%><!-- <%=session("vistor_id")%>(IP:<%=visitor_ip%>) visited at <%=now%> -->