mystat.asp

这是一款很好的SQL多用户版程序

<%
style=Request.QueryString("style")
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
'通过 下面两个参数取出 ID ，本主机的用户一定有 Session 存在，其他网站调用必须用 ?userid=400 参数
uuid = Request.QueryString("userid")
suid = Session.Contents("uid")
If Len(uuid) < 1 Then
	If Len(suid) < 1 Then
	userid = 1
	Else
	userid = clng(suid)
	end if
Else
	usirid = clng(uuid)
End if
%>
document.write("<script>var style='<%=style%>';var url='<%=theurl%>';var uid='<%=userid%>';</script>")
_dwrite("<script language=javascript src="+url+"/stat.asp?style="+style+"&referer="+escape(document.referrer)+"&screenwidth="+(screen.width)+"&userid="+(uid)+"></script>");
function _dwrite(string) {document.write(string);}
<%
Function finddir(filepath)
	finddir=""
	for i=1 to len(filepath)
	if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
	  abc=i
	  exit for
	end if
	next
	if abc <> 1 then
	finddir=left(filepath,len(filepath)-abc+1)
	end if
end Function
%>