http://wsftserver.fasttrack.net/FTServer/DataStatus
<script> var URL = "https://wssql.fasttrack.net/clssDBStatus/datastatus"; try { $.ajax( { type: "GET", url: URL, datatype: "JSON", success: dosuccess, error: err }); } catch (ex) { alert(ex.message); } function dosuccess(data) { var txt = JSON.stringify(data, null, 2); $("#jsonresponse").html(txt); } function err(xhr, status, errorThrown) { alert(status + " - " + xhr.statusText); } </script> <div id="jsonresponse"></div>
Imports System.IO Imports System.Net Imports System.Runtime.Serialization.Json ... Public Function getDataStatus() As clssdatastatus Dim x As New clssdatastatus x = makecalljson("http://wsftserver.fasttrack.net/FTServer/DataStatus", x) Return x End Function Private Function makecalljson(ByRef rqst_str As String, ByRef _type As Object) As Object Dim request As HttpWebRequest = CType(WebRequest.Create(rqst_str), HttpWebRequest) Dim response As HttpWebResponse response = request.GetResponse() Dim receiveStream As Stream = response.GetResponseStream() Dim dcs As New DataContractJsonSerializer(_type.GetType) Dim obj As Object = dcs.ReadObject(receiveStream) receiveStream.Close() Return obj End Function