站长资源网络编程

复制代码 代码如下:
<%
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