count.asp

网络上经典的图片程序

<%
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
%>