global.asa 
---------------------------------------------------------------------- 
<script language="c#" runat="server"> 
void Session_OnStart(){ 
Application.Lock(); 
Application["whoson"]=Convert.ToInt32(Application["whoson"])+1; 
Application.UnLock(); 
} 
void Session_OnEnd(){ 
Application.Lock(); 
Application["whoson"]=Convert.ToInt32(Application["whoson"])-1; 
Application.UnLock(); 
} 
public void Application_OnStart(){ 
Application.Lock(); 
Application["whoson"]=0; 
Application.UnLock(); 
} 
</script> 
------------------------------------------------------------------------- 
count_txt.asp 
------------------------------------------------------------------------- 
<%@ Page language="C#"%> 
<%@ Import Namespace="System.IO"%> 
<Script language="C#" runat="server"> 
public void Page_Load(Object src,EventArgs e) 
{ 
//以下为读取文件,当前目录必须有count.txt这个文件否则会出错 
StreamReader sr=File.OpenText(Server.MapPath(".")+"\\count.txt"); 
Application.Lock(); 
Application["count"]=sr.ReadLine(); 
Application["count"]=Convert.ToInt32(Application["count"])+1; 
Application.UnLock(); 
sr.Close(); 
//建立文件 
StreamWriter rw=File.CreateText(Server.MapPath(".")+"\\count.txt"); 
Application.Lock(); 
rw.WriteLine(Application["count"]); 
Application.UnLock(); 
rw.Flush(); //写入 
rw.Close(); 
count_1.Text="您是本站第"+Application["count"].ToString()+"位访问者"; 
} 
</Script> 
<html> 
<head> 
</head> 
<body> 
<hr> 
<asp:Label ID="count_1" runat="server"/> 
</body> 
</html> 
global.asax文件与文本记数器的一样,在此省略; 
在images目录中需要有0-9.gif十张图片,同样当前目录需要有count.txt这个文件,否则会出错 
count_pic.aspx 
----------------------------------------------------------------------------------- 
<%@ Page Language="C#" ContentType="text/html" ResponseEncoding="gb2312" %> 
<%@ Import Namespace="System.IO"%> 
<script Language="C#" runat="server"> 
public void Page_Load(Object src,EventArgs e) 
{ 
//以下为读取文件 
StreamReader sr=File.OpenText(Server.MapPath(".")+"\\count.txt"); 
Application.Lock(); 
Application["count"]=sr.ReadLine(); 
Application["count"]=Convert.ToInt32(Application["count"])+1; 
Application.UnLock(); 
sr.Close(); 
//建立文件 
StreamWriter rw=File.CreateText(Server.MapPath(".")+"\\count.txt"); 
Application.Lock(); 
rw.WriteLine(Application["count"]); 
Application.UnLock(); 
rw.Flush(); //写入 
rw.Close(); 
} 
public string G(int counter) 
{ 
string myimage=""; 
string S=counter.ToString(); 
//strreplace=replace(strreplace,chr[92]); 
for(int i=0;i<=S.Length-1;i++) 
{ 
myimage =myimage+"<img src=http://www.163design.net/n/a/images/"+S.Substring(i,1)+".gif>"; 
} 
return myimage; 
} 
</script> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>图形记数器</title> 
</head> 
<body> 
<%=G(Convert.ToInt32((Application["count"])))%> 
</body> 
</html>