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