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=./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>
本文地址：http://com.8s8s.com/it/it7071.htm