虚拟主机重启代码

<%
response.write "
"
call server_update("cache")
call server_update("session")
response.write "
虚拟主机重启成功!"
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!
"
  case "session"
    session.Abandon
    response.write "Delete Session Succeed!
"
  end select
end sub
%>