静态页面统计代码

静态页面统计代码

<%
If Not IsNumeric(Request("id")) And Request("id")<>"" then
 Response.write"错误的系统参数!ID必须是数字"
 Response.End
End If
Dim theurl,id,strStation
id = CInt(Request.Querystring("id"))
strStation = Left(Request.ServerVariables("HTTP_REFERER"),220)
theurl="http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
%>
document.write("<script>var url='<%=theurl%>';</script>")
_dwrite("<script language=javascript src="+url+"/inc/online.asp?id=<%=id%>&stat=<%=strStation%>&Referer="+escape(document.referrer)+"></script>");
function _dwrite(string) {document.write(string);}
<%
Function finddir(filepath)
 finddir=""
 Dim i,abc
 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
%>