Action()
{
web_reg_save_param("Response","LB=", "RB=", LAST);
web_add_header("SOAPAction","http://WebXml.com.cn/getWeather");
web_custom_request("Sample_Request",
"Method=POST",
"Mode=HTML",
"RecContentType=text/xml",
"EncType=text/xml;charset=UTF-8",
"URL=http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx",
"Body="
"<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:web="http://WebXml.com.cn/">
"
" <soapenv:Header/>
"
" <soapenv:Body>
"
" <web:getWeather>
"
" <!--Optional:-->
"
" <web:theCityCode>792</web:theCityCode>
"
" <!--Optional:-->
"
" <web:theUserID></web:theUserID>
"
" </web:getWeather>
"
" </soapenv:Body>
"
"</soapenv:Envelope>",
LAST);
lr_convert_string_encoding(lr_eval_string("{Response}"),LR_ENC_UTF8,LR_ENC_SYSTEM_LOCALE,"ResponseUTF8");
lr_output_message("Response is : %s",lr_eval_string("{ResponseUTF8}"));
return 0;
}