stat.asp

这个代码功能强大

<%
'网页立即超时，防止漏统计
Response.Expires = 0

'客户端软件使用情况
Bot="no"
thesoft=Request.ServerVariables("HTTP_USER_AGENT")
thesoft2=lcase(thesoft)
if instr(thesoft2,"bot") then Bot="其它蜘蛛"
if instr(thesoft2,"googlebot") then
	Bot="Google蜘蛛B"
	if instr(thesoft2,"mozilla") then Bot="Google蜘蛛A"
end if
if instr(thesoft2,"baidu spider") then Bot="百度蜘蛛"
if instr(thesoft2,"msnbot") then Bot="微软蜘蛛"
if instr(thesoft2,"inktomi") then Bot="inktomi蜘蛛"
if instr(thesoft2,"openbot") then Bot="openbot蜘蛛"
if instr(thesoft2,"alexa robot") then Bot="Alexa蜘蛛"
if instr(thesoft2,"yahoo-mmcrawler") then Bot="yahoo蜘蛛"
if instr(thesoft2,"survey") then Bot="Survey蜘蛛"


vyear=year(now())
vmonth=right("0" & month(now()),2)
vday=right("0" & day(now()),2)
MyDay=vyear&vmonth&vday

now2=now()-1
vyear2=year(now2)
vmonth2=right("0" & month(now2),2)
vday2=right("0" & day(now2),2)
MyDay2=vyear2&vmonth2&vday2

if Bot<>"no" then
	dim vip
	'****************** 记录相关数据 ******************
	'被访问页面
	vpage="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")

	'IP
	vip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
	If vip="" Then vip = Request.ServerVariables("REMOTE_ADDR")


	'****************** 写主数据 ******************
	Dim fso,f1,cnrs
	MyFilePath=server.MapPath("log/data/log"&MyDay&".htm")

	Set fso = Server.CreateObject("Scripting.FileSystemObject") 

	if not fso.FileExists(MyFilePath) then
		Set f1 = fso.CreateTextFile(MyFilePath , True)
		f1.close
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		NewFile="yes"
	end if

	set cnrs=fso.OpenTextFile(MyFilePath,8,True)
		if NewFile="yes" then

TmpStr="<style>a {text-decoration: none};p {font-size:9pt};td {font-size:9pt};select {font-size:9pt};</style>"
TmpStr20=TmpStr
cnrs.WriteLine(TmpStr)

TmpStr="<p align=center><font color=#008000><b><a href=http://Log.GoogleDmoz.com target=_blank>" 
TmpStr=TmpStr&"蜘蛛来访统计</a> <a href=log"&MyDay2&".htm>[昨日"&MyDay2&"]</a> <a href=log"&MyDay&".htm>[今日"&MyDay&"]</a></font></p>"
TmpStr21=TmpStr
cnrs.WriteLine(TmpStr)


TmpStr="<table width=957 border=1> <tr><td width=72>来访时间</td>"
TmpStr=TmpStr&"<td width=158>蜘蛛类型</td>"
TmpStr=TmpStr&"<td width=95>来路IP</td>"
TmpStr=TmpStr&"<td width=594>被访页面</td></tr>"
TmpStr22=TmpStr
cnrs.WriteLine(TmpStr)
		end if

		if len(vip)<1 then vip="未知"

		dot=""
		if len(vpage)>80 then dot="..."
		if len(vpage)<1 then dot="未知"
		dot2=""
		if len(vcome)>80 then dot2="..."
		if len(vcome)<1 then dot2="无"

TmpStr="<tr><td width=72>"&now&"</td>"
TmpStr=TmpStr&"<td width=158>"&Bot&"</td>"
TmpStr=TmpStr&"<td width=95>----</td>"
TmpStr=TmpStr&"<td width=594><a href="&vpage&" target=_blank>"&vpage&dot&"</a></td></tr>"
cnrs.WriteLine(TmpStr)

	cnrs.Close


	'****************** 写主数据2 ******************
	NewFile=""
	Dim fso2,f12,cnrs2
	MyFilePath2=server.MapPath("log/datame/log"&MyDay&".htm")

	Set fso2 = Server.CreateObject("Scripting.FileSystemObject") 

	if not fso2.FileExists(MyFilePath2) then
		Set f12 = fso2.CreateTextFile(MyFilePath2 , True)
		f12.close
		Set fso2 = Server.CreateObject("Scripting.FileSystemObject")
		NewFile="yes"
	end if

	set cnrs2=fso2.OpenTextFile(MyFilePath2,8,True)
		if NewFile="yes" then


cnrs2.WriteLine(TmpStr20)

cnrs2.WriteLine(TmpStr21)

cnrs2.WriteLine(TmpStr22)
		end if


TmpStr="<tr><td width=72>"&now&"</td>"
TmpStr=TmpStr&"<td width=158>"&thesoft&"</td>"
TmpStr=TmpStr&"<td width=95>"&vip&"</td>"
TmpStr=TmpStr&"<td width=594><a href="&vpage&" target=_blank>"&vpage&dot&"</a></td></tr>"
cnrs2.WriteLine(TmpStr)

	cnrs2.Close
end if
%>