%
response.write "br>"
call server_update("cache")
call server_update("session")
response.write "br>虚拟主机重启成功!"
sub server_update(byval strt)
  if strt="" then strt=request.querystring("delete")
  select case strt
  case "cache"
    Application.Lock
    application.contents.Removeall
    Application.unLock
    response.write "Delete Cache Succeed!br>"
  case "session"
    session.Abandon
    response.write "Delete Session Succeed!br>"
  end select
end sub
%>