虚拟主机重启代码

<%
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
%>

保存为iisrestar.asp