mystat.asp

唐网公司企业网站管理系统源码 双数据库 sql access 功能强大 易于扩展

<!--#include file="inc_config.asp"-->
<%
Function finddir(filepath)
	finddir=left(filepath,instrRev(filepath,"/"))
end Function
style	= Request("style")
theurl	= "http://" & Request.ServerVariables("http_host") & finddir(Request.ServerVariables("url"))
%>
var ajstat_siteid	= '<%=siteid%>'
var ajstat_style	= '<%=style%>';
var ajstat_url		= '<%=theurl%>';
var ajstat_ndate	= new Date();
var ajstat_tzone	= 0 - ajstat_ndate.getTimezoneOffset()/60;
var ajstat_tcolor	= screen.colorDepth;
var ajstat_sSize	= screen.width + ',' + screen.height;
var ajstat_referrer	= escape(document.referrer);
var ajstat_outstr	= '<script language=javascript src=' + ajstat_url 
			  + 'stat.asp?style=' + ajstat_style 
			  + '&siteid=' + ajstat_siteid 
			  + '&tzone=' + ajstat_tzone 
			  + '&tcolor=' + ajstat_tcolor
			  + '&sSize=' + ajstat_sSize
			  + '&referrer=' + ajstat_referrer
			  + '><\/script>';
document.write(ajstat_outstr);
<%
if CFG_SaveOnline then
%>
function ajstatimgon(reftime){
  var ttime=new Date();
  var ajstat_img=new Image();
  ajstat_img.src=ajstat_url+'stat_online.asp?siteid='+ajstat_siteid+'&o='+ttime.getDate+ttime.getMinutes +ttime.getSeconds;
  var ajstatimgtimeout=setTimeout('ajstatimgon('+reftime+');',reftime);
}
ajstatimgon(<%=CFG_CheckOnlineS*1000%>);
<%
end if
%>