Using Elevate Web Builder by Erick Engelke

Author:Erick Engelke [Engelke, Erick]
Language: eng
Format: azw3
Publisher: UNKNOWN
Published: 2017-01-28T16:00:00+00:00

MakeHTTPS makes the current page HTTPS unless it is on the localhost, in which case it can stay unenecrypted. procedure MakeHTTPS;

var

s : string;

hostname, port, search : string;

pathname , name : string;

begin

if not CheckHTTPS then begin

hostname := window.location.hostname; port := window.location.port; search := window.location.search; pathname := window.location.pathname;

s := 'https:' + hostname;

if ( port <> '' ) then s := s + ':'+ port; if (pathname <> '') then s := s + pathname; if ( search <> '' ) then s := s + search;

window.location.replace( s ); end;

end;

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.