index.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<%'此程序由ACMS.COM.CN提供
countpath = "/homepage/count/"'程序安装目录
if Request.QueryString("acms") <> 1 then %>
document.write("<script src=<%=countpath%>index.asp?acms=1&webcome="+escape(document.referrer)+"></script>");
<%
else
folderMonth = server.MapPath("/")&countpath&Year(date())&"-"&Month(date())'本月目录
fileToday = folderMonth&"/"&Day(Date())&".txt"'今日文件
fileCount = server.MapPath("/")&countpath&"count.txt"
function openfile(fpath)
	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.FileExists(fpath) then
	Set a = fso.OpenTextFile(fpath)
	openfile = a.ReadAll
	a.Close
	end if
end function
Sub crtfile(fpath,ftext)
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set a = fso.CreateTextFile(fpath)
	a.Write(ftext)
	a.Close
end Sub
	Set fso = CreateObject("Scripting.FileSystemObject")
	if fso.FolderExists(folderMonth) then'建立本月文件夹
	else
	fso.CreateFolder(folderMonth)
	end if
	readToday = openfile(fileToday)
	'IP|web|comeweb|time
	UserIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	if UserIp = "" then UserIp = Request.ServerVariables("REMOTE_ADDR")'获取来访ip
	readTodayNew = UserIp&"|"& _
				Request.ServerVariables("HTTP_REFERER")&"|"& _
				Request.QueryString("webcome")&"|"& _
				time()&CHR(10)&readToday
	Call crtfile(fileToday,readTodayNew)

	if fso.FileExists(fileCount) then
	Set a = fso.OpenTextFile(fileCount)
	Counter = Split(openfile(fileCount),"|")
	else
	Counter = Split("2005-1-1|2005-1-1|0|1|0|0|0|0|0|0","|")
	end if
	
	vIP = Instr(readToday,UserIp)
	'上次日期(0),开始统计(1),总访问(2),IP访问(3),今日(4),今日IP(5);
	'昨日(6),昨日IP(7),本月(8),本月ip(9)

	if Month(Counter(0)) <> Month(date()) then'月份
		if Month(date()) = 1 then
		syue = (year(date()) - 1)&"-12.txt"
		else
		syue = year(date())&"-"&(Month(date()) - 1)&".txt"
		end if
		Call crtfile(server.MapPath("/")&countpath&"month/"&syue,Counter(8)&"|"&Counter(9))
		Counter8 = 1
		Counter9 = 1
	else
		counter8 = counter(8) + 1
		if vIP = 0 then
			Counter9 = Counter(9) + 1
		else
			Counter9 = Counter(9)
		end if
	end if
	if Day(Counter(0)) <> Day(Date()) then'日期
		Counter4 = 1
		Counter5 = 1
		Counter6 = Counter(4)
		Counter7 = Counter(5)
		syue = year(date())&"-"&Month(date())&".txt"
		Call crtfile(server.MapPath("/")&countpath&"month/"&syue,Counter(8)&"|"&Counter(9))
	else
		Counter4 = Counter(4) + 1
		if vIP = 0 then
			Counter5 = Counter(5) + 1
		else
			Counter5 = Counter(5)
		end if
		Counter6 = Counter(6)
		Counter7 = Counter(7)
	end if

	Counter0 = Date()
	Counter1 = Counter(1)
	Counter2 = Counter(2) + 1
		if vIP = 0 then
		Counter3 = Counter(3) + 1
		else
		Counter3 = Counter(3)
		end if
CounterNew = Counter0&"|"&Counter1&"|"&Counter2&"|"&Counter3&"|"&Counter4&"|"&Counter5&"|"&Counter6&"|"&Counter7&"|"&Counter8&"|"&Counter9
Call crtfile(fileCount,CounterNew)
end if
%>
<%= CounterNew %>