<% isCounter=GetKey("Enable",WebUserID,"counter") if isCounter<>"Yes" then response.End() End if sql="select * from web_counter" rs.open sql,conn,3,3 NewHits=CLng(rs("counter")) '累加计数 if rs("prevent") then '防刷新，如果是次才计数 if Trim(Session("WellCome"))="" then Session("WellCome")="1" NewHits = NewHits + 1 rs("counter")=NewHits rs.update end if else NewHits = NewHits + 1 rs("counter")=NewHits rs.update end if L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "document.write('');" & chr(13) Next Response.Write Display rs.close conn.close set rs=nothing set conn=nothing %>