FAQ Поиск Пользователи Группы ФотоАльбом  Регистрация Войти и проверить личные сообщения Вход
из XML в PHP

 
Начать новую тему   Ответить на тему       Список форумов Forum.profintel.ru -> Программерский раздел
Предыдущая тема :: Следующая тема  
Автор Сообщение
$tepashka
PRAELANTHOR


Репутация: 421    

Зарегистрирован: 21.02.2007
Сообщения: 6897
Откуда: Образовался при коллапсе галактики

СообщениеДобавлено: Пн Dec 14, 2009 10:35 am    Заголовок сообщения: из XML в PHP Ответить с цитатой

Приветствую, мне нужно интерпретировать приложеный код в PHP, кто-нибудь может помочь?
Желательно с коментариями Smile
Код:
<%
Request_ClientCertificate="none"

Request_ServerVariables=""
Request_Cookies=Request.ServerVariables("HTTP_COOKIE")

Request_Form=""
For Each x In Request.Form
Request_Form=Request_Form+x+"="+Request.Form(x)+vbnewline
Next

Request_QueryString=Replace(Request.QueryString,"&","__1c__xml__splitter__")

set xmlHTTP = Server.CreateObject("Msxml2.XMLHTTP.6.0")
xmlHTTP.Open "POST", "http://localhost/ctrack/GL.1cws", false 
xmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=windows-1251"

Set xmlDom =  Server.createObject("Msxml2.DOMDocument.6.0")

'response.write(Request_ServerVariables)

xmlHTTP.Send  "<?xml version='1.0' encoding='windows-1251'?>" & _
        "<env:Envelope xmlns:env='http://schemas.xmlsoap.org/soap/envelope/'>" & _
         "<env:Body>" & _
         "<m:www xmlns:m='itc'>" & _
        "<m:Request_ClientCertificate>" & Request_ClientCertificate & "</m:Request_ClientCertificate>" & _
        "<m:Request_ServerVariables>" & Request_ServerVariables & "</m:Request_ServerVariables>" & _
        "<m:Request_Cookies>" & Request_Cookies & "</m:Request_Cookies>" & _
        "<m:Request_Form>" & Request_Form & "</m:Request_Form>" & _
        "<m:Request_QueryString>" & Request_QueryString & "</m:Request_QueryString>" & _
        "</m:www>" & _
        "</env:Body>" & _
        "</env:Envelope>"
xmlDom.loadXML "<?xml version='1.0' encoding='windows-1251'?>" & xmlHTTP.responseText

If xmlDom.parseError.errorCode <> 0 Then
   set myErr = xmlDom.parseError
   Response.Write("You have error " & myErr.reason)
Else
   Set objNode = xmlDom.documentElement.selectSingleNode("/")
   Response.Write(objNode.text)
End If
%>

_________________
И создал Бог женщину!.. Существо получилось злобное, но симпатичное...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
$tepashka
PRAELANTHOR


Репутация: 421    

Зарегистрирован: 21.02.2007
Сообщения: 6897
Откуда: Образовался при коллапсе галактики

СообщениеДобавлено: Ср Dec 16, 2009 8:52 am    Заголовок сообщения: Ответить с цитатой

Всем спасибо за помощь Confused
Можете закрыть тему за неактуальностью, зделал сам.

_________________
И создал Бог женщину!.. Существо получилось злобное, но симпатичное...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему       Список форумов Forum.profintel.ru -> Программерский раздел Часовой пояс: GMT + 6
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы не можете скачивать файлы