Server.Tranfer и Response.Redirect

@zardoz · Регистрация: 12.11.2007

Server.Transfer есть только на 5.0, а то что он дает нужно реализовать на 4.0.
Как это сделать с наименьшими затратами

@t1k · 12.11.2007, 11:38

Response.Redirect, подходит в случае если переменные передаются методом GET, или выбираются на страничке с помощью Request('name').
При этом задействуется клиент.

Если же хочется полностью симулировать Server.Transfer (без использования клиента), тогда подойдет XMLHTTP.

1-й случай
cGet = ''
For Each cVar In Request
cGet = cGet & cVar & '=' & Request(cVar) & '&'
Next
Response.Redirect 'a.asp?' & cURL

2-й случай
cGet = ''
For Each cVar In Request.QueryString
cGet = cGet & cVar & '=' & Request(cVar) & '&'
Next

cPost = ''
For Each cVar In Request.Form
cPost = cPost & cVar & '=' & Request.Form(cVar) & '&'
Next

Set o = CreateObject('msxml2.serverxmlhttp')
o.open 'POST','http://localhost/a.asp?' & c,False
o.send cPost
Response.Clear
Response.Write o.ResponseText

@zardoz 0 / 0 / 0 Регистрация: 12.11.2007 Сообщений: 31
		1
	Server.Tranfer и Response.Redirect 12.11.2007, 10:47. Показов 1096. Ответов 1 Метки нет (Все метки) Server.Transfer есть только на 5.0, а то что он дает нужно реализовать на 4.0. Как это сделать с наименьшими затратами 0

@t1k 4 / 4 / 5 Регистрация: 10.05.2007 Сообщений: 1,616
	12.11.2007, 11:38	2
	Response.Redirect, подходит в случае если переменные передаются методом GET, или выбираются на страничке с помощью Request('name'). При этом задействуется клиент. Если же хочется полностью симулировать Server.Transfer (без использования клиента), тогда подойдет XMLHTTP. 1-й случай cGet = '' For Each cVar In Request cGet = cGet & cVar & '=' & Request(cVar) & '&' Next Response.Redirect 'a.asp?' & cURL 2-й случай cGet = '' For Each cVar In Request.QueryString cGet = cGet & cVar & '=' & Request(cVar) & '&' Next cPost = '' For Each cVar In Request.Form cPost = cPost & cVar & '=' & Request.Form(cVar) & '&' Next Set o = CreateObject('msxml2.serverxmlhttp') o.open 'POST','http://localhost/a.asp?' & c,False o.send cPost Response.Clear Response.Write o.ResponseText 0

Опции темы