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>
……