<%
'if Session("Counter")<>request.ServerVariables("REMOTE_ADDR") then
Application.lock
conn.execute("update [Counter] set Num=Num+1 where id=1")
Application.unlock
' Session("Counter")=request.ServerVariables("REMOTE_ADDR")
'session.timeout=60
'end if
%>
index
<%
set rs=conn.execute("select * from [Counter]")
if rs.bof and rs.eof then
Counter="1"
else
Counter=rs("num")
end if
set rs=nothing
response.Write "您是第 "&Counter&" 位访问者"
conn.close
set conn=nothing
%>