<%Application.LockIFNOTisArray(Application("lastTen"))THEN DIMdummy(10,3) Application("lastTen")=dummy'创建或者取得最近10个Application数组.ENDIF lastTen=Application("lastTen")Application.UnLockIFlastTen(9,0)<>""THENFORi=0TO9 lastTen(i,0)=lastTen(i+1,0) lastTen(i,1)=lastTen(i+1...

<%DimNumVisit'声明变量.NumVisit=Request.Cookies("chunfeng")("totalvisit")'检查用户来访问过多少次.IfNumVisit=""ThenNumVisit=0EndIf'如果是第一次来访,NumVisit应为空,所以我们将NumVisit设为0.'***Displayhowmanytimestheyhave'***visitedyourwebpage.Response.Write"已有:"&NumVisit"人光临随风起舞!"NumVisit=NumVisit+1'开始计数.Response.Cookies("chunf...