站长资源网络编程
虚拟主机重启代码
简介复制代码 代码如下:<% response.write "
" call server_update("cache") call server_update("session") response.write "
虚拟主机重启成功!" sub server_update(byval st
" call server_update("cache") call server_update("session") response.write "
虚拟主机重启成功!" sub server_update(byval st
复制代码 代码如下:
<%
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
<%
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