pagecounter.asp

用asp做的咨询平台 比较简单 但是修改很方便 很实用

<%
function pageCounter(ScriptName)
	if application("pageCounterSpan")="session" then
		if not(session(ScriptName)>0) then
			session(ScriptName)=1
			pageCounter=pageCounter_page(ScriptName)
			session("pageCounter")=pageCounter
		else
			pageCounter=session("pageCounter")
		end if
	elseif application("pageCounterSpan")="page" then
		pageCounter=pageCounter_page(ScriptName)
	else
		call ErrHandler
	end if
end function

function pageCounter_page(ScriptName)
	dim fileUrl
	dim objFileAccess
	dim File
	dim inLine
	dim isIn
	dim strHitRate
	dim intHitRate
	fileUrl=server.mappath("\")&"\#hitRates\"&ScriptName&"hitRates.txt"
	set objFileAccess=server.CreateObject("Scripting.FileSystemObject")
	if objFileAccess.FileExists(fileUrl) then
		set File=objFileAccess.openTextFile(fileUrl)
		if not File.atEndofStream then
			inLine=File.ReadLine
			File.close
			isIn=Instr(inLine,ScriptName)
			if isIn>0 then
				strHitRate=Left(inLine,isIn-2)
				intHitRate=CInt(strHitRate)
				intHitRate=intHitRate+1
				set File=objFileAccess.openTextFile(fileUrl,2,false)
				File.writeLine(intHitRate&vbTab&ScriptName)
				File.close
			else
				call ErrHandler
			end if
		else
			call ErrHandler
		end if
	else
		set File=objFileAccess.CreateTextFile(fileUrl,overWrite)
		File.WriteLine("1"&vbTab&ScriptName)
		File.close
		intHitRate=1
	end if
	set objFileAccess=nothing
	pageCounter_page=intHitRate
	if Err<>0 then
		call ErrHandler
	end if
end function

sub ErrHandler
	if isObject(File) then
		File.close
		set objFileAccess=nothing
	end if
	trigErr
end sub
%>