Dynamically generate the install script and deploy bounce.exe and readme.txt.
<%
'--------Utility functions---------
'Double quote
Function Q(data)
Q = """" & data & """"
End Function
Function Q2(param0, param1)
Q2 = Q(param0) & "," & Q(param1)
End Function
Function Q3(param0, param1, parm2)
Q3 = Q(param0) & "," & Q(param1) & "," & Q(parm2)
End Function
'Append
Function A(data)
A = " & " & data
End Function
Function A2(param0, param1)
A2 = A(param0) & A(param1)
End Function
Sub Response_Write(data)
Response.Write data & vbCrLf
End Sub
Sub AddObject(Install, name, objtype, attrib)
Response_Write "Install.AddObject " & Q3(name, objtype, attrib)
Install.AddObject name, objtype, attrib
End Sub
%>
<%
'--------ASP code for On-The-Fly Web Install---------
Dim strAppUrl
Dim strAppBaseDir
Dim strAppSubDir
Dim strUninstallUrl
Dim strOkUrl
Dim strErrorUrl
On Error Resume Next
strAppUrl = "http://www.hexatech.com/on_the_fly_install/asp"
strPackageDir = "C:\Inetpub\wwwroot\web_install"
strAppBaseDir = "C:\Program Files"
strAppSubDir = "web_install\sample1"
strUninstallUrl = "http://www.hexatech.com/on_the_fly_install/uninstall_sample1.htm"
strOkUrl = "http://www.hexatech.com/on_the_fly_install/install_ok.htm"
strErrorUrl = "http://www.hexatech.com/on_the_fly_install/install_error.htm"
Response_Write ""
%>