法一：动态实现
<%
   'Option Explicit
   'Dim CountWeb
   'CountWeb = Request.ServerVariables("SCRIPT_NAME")
  
   Application.Lock
   Application(CountWeb) = Application(CountWeb) + 1
   Application.UnLock
   %>
欢迎光临! 您是第[<font color="#FF0000"><%= Application(CountWeb)%></font>]位客人。

法二：javascript静态实现
<SCRIPT language=JavaScript>
<!--
var caution = false
function setCookie(name, value, expires, path, domain, secure) {
var curCookie = name + "=" + escape(value) +
((expires) ? "; expires=" + expires.toGMTString() : "") +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
((secure) ? "; secure" : "")
if (!caution || (name + "=" + escape(value)).length <= 4000)
document.cookie = curCookie
else
if (confirm("Cookie exceeds 4KB and will be cut!"))
document.cookie = curCookie
}
function getCookie(name) {
var prefix = name + "="
var cookieStartIndex = document.cookie.indexOf(prefix)
if (cookieStartIndex == -1)
return null
var cookieEndIndex = document.cookie.indexOf(";", cookieStartIndex + prefix.length)
if (cookieEndIndex == -1)
cookieEndIndex = document.cookie.length
return unescape(document.cookie.substring(cookieStartIndex + prefix.length, cookieEndIndex))
}
function deleteCookie(name, path, domain) {
if (getCookie(name)) {
document.cookie = name + "=" +
((path) ? "; path=" + path : "") +
((domain) ? "; domain=" + domain : "") +
"; expires=Thu, 01-Jan-70 00:00:01 GMT"
}
}
function fixDate(date) {
var base = new Date(0)
var skew = base.getTime()
if (skew > 0)
date.setTime(date.getTime() - skew)
}
var now = new Date()
fixDate(now)
now.setTime(now.getTime() + 365 * 24 * 60 * 60 * 1000)
var visits = getCookie("counter")
if (!visits)
visits = 1
else
visits = parseInt(visits) + 1
setCookie("counter", visits, now)
document.write("欢迎光临本站！您是第" +visits + "客人")
// -->
</SCRIPT>

本文来源：

今天才写的个，虽然简单了点，不过还是有用得着的地方。
<%
Function ReadCount()
Application.Lock
Dim CountNum,CountFile,fsoStr
fsoStr="Script"&"ing"&".File"&"System"&"Object"
CountFile="/count.txt"
CountNum=200380
Dim fso,f,tmpCount
On Error Resume Next
Set fso=Server.CreateObject(fsoStr)
Set f = fso.OpenTextFile(Server.MapPath(CountFile),1,True)
tmpCount=f.ReadAll
f.Close
If tmpCount="" Or Not IsNumeric(tmpCount) Then tmpCount=CountNum
If IsEmpty(Session("Counter")) Then
    tmpCount=tmpCount+1
    Session("Counter")=tmpCount
    Set f = fso.OpenTextFile(Server.MapPath(CountFile),2,False)
    f.Write tmpCount
    f.close
End IF
Set f = Nothing
Set fso = Nothing
If Err.Number <> 0 Then Err.Clear
ReadCount=tmpCount
Application.Unlock
End Function
%>

下面的代码是{zx0}写出来的，不过有问题，改成上面的就好了。不是很懂
<%
Function ReadCount()
Application.Lock
Dim CountNum,CountFile,fsoStr
fsoStr="Script"&"ing"&".File"&"System"&"Object"
CountFile="/count.txt"
CountNum=200380
Dim fso,f,tmpCount
On Error Resume Next
Set fso=Server.CreateObject(fsoStr)
Set f = fso.OpenTextFile(Server.MapPath(CountFile),2,True)
tmpCount=f.ReadAll
If tmpCount="" Or Not IsNumeric(tmpCount) Then tmpCount=CountNum
If IsEmpty(Session("Counter")) Then
    tmpCount=tmpCount+1
    Session("Counter")=tmpCount
    f.Write tmpCount
End IF
f.close
Set f = Nothing
Set fso = Nothing
If Err.Number <> 0 Then Err.Clear
ReadCount=tmpCount
Application.Unlock
End Function
%>

<%
'----------------访问统计改进-------------------------
'这个是因为听搞服务器的同事说上面的那个代码对服务器不是很好，因为会经常读写服务器，所以就改下面的了，如有更好的方案，大家交流交流！

Function ReadCount()
Application.Lock
Dim CountNum,CountFile,fsoStr
fsoStr="Script"&"ing"&".File"&"System"&"Object"
CountFile="/count.txt"'统计值保存文件
CountNum=200380'统计初始默认值
Dim fso,f,tmpCount
'获取统计数
On Error Resume Next
If IsEmpty(Application("Counter")) Or Application("Counter")="" Or Not IsNumeric(Application("Counter")) Then
    Set fso=Server.CreateObject(fsoStr)
    Set f = fso.OpenTextFile(Server.MapPath(CountFile),1,True)
    tmpCount=f.ReadAll
    f.close
    Set f = Nothing
    Set fso = Nothing
    If tmpCount="" Or Not IsNumeric(tmpCount) Then tmpCount=CountNum
    Application("Counter")=tmpCount
End IF
'统计数自增 Session("Counter")的作用是防止重复统计数自增
If IsEmpty(Session("Counter")) Then
    Application("Counter")=Application("Counter")+1
    Session("Counter")=Application("Counter")
    '如果统计数是100的倍数,把统计数写入到文件
    If Application("Counter") Mod 100=0 Then
        Set fso=Server.CreateObject(fsoStr)
        Set f = fso.OpenTextFile(Server.MapPath(CountFile),2,True)
        f.Write Application("Counter")
        f.close
        Set f = Nothing
        Set fso = Nothing
    End If
End IF
If Err.Number <> 0 Then Err.Clear
ReadCount=Application("Counter")
Application.Unlock
End Function
%>

本文来源：