The code copy is as follows:
<%
response.write"<br>"
callserver_update("cache")
callserver_update("session")
response.write"<br>The virtual host restarted successfully!"
subserver_update(byvalstrt)
ifstrt=""thenstt=request.querystring("delete")
selectcasestrt
case "cache"
Application.Lock
application.contents.Removeall
Application.unLock
response.write"DeleteCacheSucceed!<br>"
case "session"
session.Abandon
response.write"DeleteSessionSucceed!<br>"
endselect
endsub
%>
Save as iisrestar.asp