The Web Application object allows access to the full URL and URL Parameters as name and value pairs. It also allows for monitoring of changes to the URL. A Visual LANSA web URL is formatted like this: http://\[domain\]:\[port\]/\[configuration\]/\[partition\]/\[webpage\].html?\[parm1\]=\[value\]&\[parm2=value\] The URL for the current page is published as the URL property of SYS_WEB. #Result := #sys_web.URL This could return something like: http://localhost:2014/tipvcs/ide/xvlwebtst.html?lang=eng&developer=yes&debug=yes,lansa14:51234 To process any parameters associated with the URL requires processing name/value pairs. The query string, that is any portion of the URL following the "?" (which by the way is optional), is parsed and made available as a collection of items, each with Name and Value properties. Each Name and Value is separated by a "&". If the query string is corrupt in any way, only those parameters before the corruption will be available. Evtroutine Handling(#sys_web.urlchanged) For Each(#Parameter) In(#sys_web.UrlParameters) Continue If(#Parameter.Name.UpperCase <> Trace) Continue If(#Parameter.Value.uppercase <> True) * Set this to be the trace handler for the application #Sys_appln.TraceHandler <= #Com_owner Leave Endfor Endroutine [<span style="color: #0000ee"><span style="text-decoration: underline; ">Show Contents List</span></span>|../../index.htm#lansa/vlwebeng01_0290.htm] |