正则表达式检查来访IP是否合法的实际应用    sub chkIP(boardid)dim rsIPdim ipArrdim ignoreddim idim ipdim sql ip=Request.ServerVariables("REMOTE_ADDR") ignored=falseif not isempty(boardid) then sql="select ignoreip from b...

<%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...

[html]<script language="JavaScript">     <!--     var caution = false     function setCookie(name, value, expires, path, domain, secure) {    ...