郑德才博客

建立asp页面，在此之前要有一个txt文件，里面存放的是统计的数值，这个当然可以随意更改，统计的值也就随之改，里面的代码如下：

<%    
response.write counter()
function counter()
whichfile=server.mappath("n.txt")
'打开文件并将其值读取，最后关闭连接释放资源
set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
'页面显示记数内容并做加1运算
visitors=visitors+RndNumber(1,1)
'将新的数值添加写入到文本，最后关闭所有连接释放资源
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
counter=visitors
end function 
'自定义函数
'1-3之间的随机数
Function RndNumber(MaxNum,MinNum)
 Randomize 
 RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
 RndNumber=RndNumber
End Function

一般处理程序文件代码内容：

/// <summary>

/// $codebehindclassname$ 的摘要说明

/// </summary>

public class number : IHttpHandler

{

   public void ProcessRequest(HttpContext context)

   {