<meta http-equiv="refresh" content="5"> <% dim strName, iLoop ,Tout Tout=session.timeout i=0 For Each strName in Session.Contents i=i+1 Response.Write strName & "-" & Session.Contents(strName) & "<br>" next Response.Write Tout if Tout<10 or Tout>10 then response.write"<script language=javascript>alert('session=" & Tout & "');</script>" end if if i=0 then response.write"<script language=javascript>alert('session 无变量');</script>" end if %>