虚拟主机重启asp代码

代码如下:

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