求教高手：给别人统计流量的连接程序是怎么写的？

不知道给别人统计流量的连接是怎么写的？我自己给自己统计可以，但如果给别人提供就不行了

（一）自己统计自己如下:
recl.asp
document.write("<script language=Javascript src=rec.asp?"+"referer="+escape(document.referrer)+"&flag=consult></script>");

rec.asp
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/SB_ClsMain.asp"-->
<%
Dim ip
Dim fsoObject
Dim filObject
Dim lngVisitorNumber
Dim tsObject
Dim sql,Http_USER_AGENT,referer,browser,os,flag
On Error Resume Next
lngVisitorNumber = 0
set IP=Request.ServerVariables("Remote_Addr")

HTTP_USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")
referer=request.querystring("referer")
if referer="" then referer="Input URL."
browser=getBrowser(HTTP_USER_AGENT)
os=getOS(HTTP_USER_AGENT)
flag=request.querystring("flag")
if flag="" then flag="other"
Function getBrowser(info)
dim browser
If InStr(info, "Netscape") > 0 Then
browser = "Netscape 7.0.0"
ElseIf InStr(info, "NetCaptor 6.5.0") > 0 Then
browser = "NetCaptor 6.5.0"
ElseIf InStr(info, "MyIe 3.1") > 0 Then
browser = "MyIe 3.1"
ElseIf InStr(info, "NetCaptor 6.5.0RC1") > 0 Then
browser = "NetCaptor 6.5.0RC1"
ElseIf InStr(info, "NetCaptor 6.5.PB1") > 0 Then
browser = "NetCaptor 6.5.PB1"
ElseIf InStr(info, "MSIE 5.5") > 0 Then
browser = "Internet Explorer 5.5"
ElseIf InStr(info, "MSIE 6.0") > 0 Then
browser = "Internet Explorer 6.0"
ElseIf InStr(info, "MSIE 6.0b") > 0 Then
browser = "Internet Explorer 6.0b"
ElseIf InStr(info, "MSIE 5.01") > 0 Then
browser = "Internet Explorer 5.01"
ElseIf InStr(info, "MSIE 5.0") > 0 Then
browser = "Internet Explorer 5.00"
ElseIf InStr(info, "MSIE 4.0") > 0 Then
browser = "Internet Explorer 4.01"
ElseIf InStr(info, "Firefox") > 0 Then
browser = "Firefox"
Else
browser = "other"
End If
getBrowser = browser
End Function
Function GetOS(info)
dim system
If InStr(info, "NT 5.1") > 0 Then
System = System + "Windows XP"
ElseIf InStr(info, "Tel") > 0 Then
System = System + "Telport"
ElseIf InStr(info, "webzip") > 0 Then
System = System + "webzip"
ElseIf InStr(info, "flashget") > 0 Then
System = System + "flashget"
ElseIf InStr(info, "offline") > 0 Then
System = System + "offline"
ElseIf InStr(info, "NT 5") > 0 Then
System = System + "Windows 2000"
ElseIf InStr(info, "NT 4") > 0 Then
System = System + "Windows NT4"
ElseIf InStr(info, "98") > 0 Then
System = System + "Windows 98"
ElseIf InStr(info, "95") > 0 Then
System = System + "Windows 95"
ElseIf InStr(logstr, "SUNOS") <> 0 Then
GetOS = "SUN"
ElseIf InStr(logstr, "Linux") <> 0 Then
GetOS = "Linux"
ElseIf InStr(logstr, "Mac_PowerPC") <> 0 Then
GetOS = "Mac"
Else
GetOS = "Other"
End If
GetOS = System
End Function
'----------------------------------------------------------------------------------------------------------
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
response.write("IngVisitorNumber="&lngVisitorNumber&"<br>")
If Session("lngSessionVisitorNum") <> "" Then
lngVisitorNumber = lngVisitorNumber + 1
response.write("IngVisitorNumber="&lngVisitorNumber&"<br>")
Session("lngSessionVisitorNum") = lngVisitorNumber
sql="insert into viewip(view_ip,view_date,browser,os,laiyuan,flag,agent) values('"&ip&"','"&now()&"','"&browser&"','"&os&"','"&referer&"','"&flag&"','"&HTTP_USER_AGENT&"')"
sbbbs.execute(sql)
conn.close
set conn=nothing
Else
Session("lngSessionVisitorNum") = lngVisitorNumber
End if
Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True)
tsObject.Write CStr(lngVisitorNumber)
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
%>

test.htm
<script language="JavaScript" type="text/JavaScript" src="recl_kuo.asp"></script>


（二）统计别人的流量如下：
test.htm '改后
<script language="JavaScript" type="text/JavaScript" src="http://www.xxx.com/recl_kuo.asp"></script>

recl.asp ' 改后
document.write("<script language=Javascript src=http://www.xxx.com/rec.asp?"+"referer="+escape(document.referrer)+"&flag=consult></script>");
但不是，不知道为什么？