复制代码 代码如下:

<%

response.write"<br>"

callserver_update("cache")

callserver_update("session")

response.write"<br>虚拟主机重启成功!"

subserver_update(byvalstrt)

ifstrt=""thenstrt=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

%>

保存为iisrestar.asp