65 lines
1.8 KiB
Plaintext
65 lines
1.8 KiB
Plaintext
|
<% @ LANGUAGE = VBScript %>
|
||
|
|
<% Option Explicit %>
|
||
|
|
<% Response.Buffer=true %>
|
||
|
|
|
||
|
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>AspAppRestart Demo</TITLE>
|
||
|
|
<%
|
||
|
|
Dim objApp, objFile, strPath, vntAppRoot, intPos
|
||
|
|
If Request.form("hFlag1") =1 Then
|
||
|
|
Application("test")=Request.form("AppVar")
|
||
|
|
End If
|
||
|
|
If Request.form("hFlag2") =1 Then
|
||
|
|
vntPath=Request.ServerVariables("PATH_INFO")
|
||
|
|
Set objFile=GetObject("IIS://Localhost/W3svc/1/Root" & vPath)
|
||
|
|
strAppRoot=oFile.AppRoot
|
||
|
|
Set objFile=Nothing
|
||
|
|
Set objApp= GetObject("IIS://Localhost/" & mid(strAppRoot,5))
|
||
|
|
|
||
|
|
'call aspAppRestart and refresh asp.
|
||
|
|
'all application variables are gone
|
||
|
|
|
||
|
|
objApp.aspAppRestart
|
||
|
|
Response.Clear
|
||
|
|
Response.Redirect("aspAppRestart.asp")
|
||
|
|
End If
|
||
|
|
%>
|
||
|
|
|
||
|
|
|
||
|
|
</HEAD>
|
||
|
|
|
||
|
|
<BODY >
|
||
|
|
|
||
|
|
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
|
||
|
|
<B> AspAppRestart Demo</B></FONT><BR>
|
||
|
|
<HR SIZE="1" COLOR="#000000">
|
||
|
|
|
||
|
|
For this sample to work properly, you need to do following<BR>
|
||
|
|
1) Your NT account needs to have IIS admin permission <BR>
|
||
|
|
2) start MMC version internet service manager<BR>
|
||
|
|
3) locate aspAppRestart.asp file from the manager<BR>
|
||
|
|
4) clear anonymous authentication for this file (if It is cleared, set it on and the off.
|
||
|
|
The last step will also add the file info to metabase, which is needed in this asp file)<BR>
|
||
|
|
<P>
|
||
|
|
<HR SIZE="1" COLOR="#000000">
|
||
|
|
Application("test") = <% =Application("test") %>
|
||
|
|
<HR SIZE="1" COLOR="#000000">
|
||
|
|
|
||
|
|
|
||
|
|
<FORM action="AspAppRestart.asp" method="post">
|
||
|
|
<P>Set Application("test") Variable
|
||
|
|
<BR><INPUT id=text1 name="AppVar" >
|
||
|
|
<BR><INPUT type="submit" value="Submit" id=submit1 name=submit1>
|
||
|
|
<INPUT type=hidden name ="hFlag1" value=1>
|
||
|
|
</FORM></P>
|
||
|
|
|
||
|
|
|
||
|
|
<FORM action="AspAppRestart.asp" method="post">
|
||
|
|
<P>Click to restart Application
|
||
|
|
<BR><INPUT type="submit" value="Restart App">
|
||
|
|
<INPUT type=hidden name=hFlag2 value=1 >
|
||
|
|
</FORM>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|