IIS Reverse Proxy scipt (like mod_proxy)

[aspguru]

I have been hunting around recently for reverse proxy solutions to
work with IIS. An example use for this would be to put outlook web
access on your multi host IIS box on port 80 or an application like
sitecope on IIS's port 80. There are many 3rd party solutions below
some including ISAPI filters.

http://www.at32.com/doc/rproxy.htm
http://www.isapirewrite.com/
http://www.octagate.com/

I've managed to sort of half fudge this with a single ASP script. If
you name it default.asp and point your default 404 error message to a
URL of "/default.asp" it will kick in for every request on the site.
The upshot of all this is it's like a virtual directory but instead of
pointing to another local folder, UNC path or URL redirect it feeds
another site by proxy.

I have tested this with Outlook Web Access and seems to work (just
need to pass username and password arguments on the objHTTP.send line)

The script admittedly is far from perfect for example not handling
form posts , login credential requests so I would welcome comments /
enhancements.

'BEGIN SCRIPT
<%
option explicit
'on error resume next

dim strmirrorURL
dim strRequest
dim strrequestfile
dim intlen
dim strRmethod

strmirrorURL = "http://server.to.be.mi rrored.com:80"
strrmethod = request.serverv ariables("REQUE ST_METHOD")
if left(request.qu erystring,3) = "404" then
'we have page request other than this one, parse script request and
path out of querystring

intlen = 11 + len(request.ser vervariables("S ERVER_NAME")) + 1 + _
len(request.ser vervariables("S ERVER_PORT"))
strrequestfile = right(request.q uerystring,len( request.queryst ring)-
intlen)
end if
strrequest = strmirrorurl & strrequestfile

call Proxy(strreques t,strRmethod)

sub Proxy(strReques t,strRmethod)
dim ObjHTTP
dim lngResolve
dim lngConnect
dim lngReceive
dim lngSend

lngResolve =5000
lngConnect = 5000
lngReceive = 5000
lngSend = 5000
set objHTTP = server.CreateOb ject("Msxml2.se rverXMLHTTP")
objHttp.setTime outs lngResolve, lngConnect, lngSend, lngReceive

objHTTP.open strRmethod, strRequest, false
objHTTP.send

Response.Conten tType = objhttp.getResp onseHeader("Con tent-Type")
Response.Binary Write objhttp.respons ebody
set objhttp = nothing
end Sub
%>
'END SCRIPT

[Ken Schaefer]

A bit like ISA Server?
http://www.microsoft.com/isaserver/default.asp

Cheers
Ken
--
~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~ ~~~~~
"aspguru" <as*****@email. com> wrote in message
news:21******** *************** ***@posting.goo gle.com...
: I have been hunting around recently for reverse proxy solutions to
: work with IIS. An example use for this would be to put outlook web
: access on your multi host IIS box on port 80 or an application like
: sitecope on IIS's port 80. There are many 3rd party solutions below
: some including ISAPI filters.
:
: http://www.at32.com/doc/rproxy.htm
: http://www.isapirewrite.com/
: http://www.octagate.com/
:
: I've managed to sort of half fudge this with a single ASP script. If
: you name it default.asp and point your default 404 error message to a
: URL of "/default.asp" it will kick in for every request on the site.
: The upshot of all this is it's like a virtual directory but instead of
: pointing to another local folder, UNC path or URL redirect it feeds
: another site by proxy.
:
: I have tested this with Outlook Web Access and seems to work (just
: need to pass username and password arguments on the objHTTP.send line)
:
: The script admittedly is far from perfect for example not handling
: form posts , login credential requests so I would welcome comments /
: enhancements.
:
: 'BEGIN SCRIPT
: <%
: option explicit
: 'on error resume next
:
: dim strmirrorURL
: dim strRequest
: dim strrequestfile
: dim intlen
: dim strRmethod
:
: strmirrorURL = "http://server.to.be.mi rrored.com:80"
: strrmethod = request.serverv ariables("REQUE ST_METHOD")
: if left(request.qu erystring,3) = "404" then
: 'we have page request other than this one, parse script request and
: path out of querystring
:
: intlen = 11 + len(request.ser vervariables("S ERVER_NAME")) + 1 + _
: len(request.ser vervariables("S ERVER_PORT"))
: strrequestfile = right(request.q uerystring,len( request.queryst ring)-
: intlen)
: end if
: strrequest = strmirrorurl & strrequestfile
:
: call Proxy(strreques t,strRmethod)
:
: sub Proxy(strReques t,strRmethod)
: dim ObjHTTP
: dim lngResolve
: dim lngConnect
: dim lngReceive
: dim lngSend
:
: lngResolve =5000
: lngConnect = 5000
: lngReceive = 5000
: lngSend = 5000
: set objHTTP = server.CreateOb ject("Msxml2.se rverXMLHTTP")
:
:
: objHttp.setTime outs lngResolve, lngConnect, lngSend, lngReceive
:
: objHTTP.open strRmethod, strRequest, false
: objHTTP.send
:
: Response.Conten tType = objhttp.getResp onseHeader("Con tent-Type")
: Response.Binary Write objhttp.respons ebody
: set objhttp = nothing
: end Sub
: %>
: 'END SCRIPT

[aspguru]

"Ken Schaefer" <ke*******@THIS adOpenStatic.co m> wrote in message news:<#y******* ******@TK2MSFTN GP11.phx.gbl>.. .

A bit like ISA Server?
http://www.microsoft.com/isaserver/default.asp

Cheers
Ken

Yes I understand ISA performs a reverse proxy function also.