Я делаю API REST в ASP используя такой Visual Basic как базовый код. Нужно помнить, что нет многой документации для такого языка по этому поводу.
У меня есть этот JSON:
{
"Id": 1,
"NombreUsuario": "admin",
"Clave": "admin",
"CorreoElectronico": "admin@localhost",
"Token": "0m1sand5p2ru5gdinaewi2ox"
}
Но то, что я хочу, состоит в том, чтобы создавать объект JSON таким образом:
{
"statusCode" : 200,
"statusText" : "OK",
"data" : [
{
"Id": 1,
"NombreUsuario": "admin",
"Clave": "admin",
"CorreoElectronico": "admin@localhost",
"Token": "0m1sand5p2ru5gdinaewi2ox"
}
]
}
Я не нахожу способ вводить данные, предыдущие "дате" в компьютер: []
Это мой код VB.NET:
Dim respuesta = obj.login '' Aca solamente hace la consulta de un login
If respuesta.HasRows Then
Session.Timeout = 5
Dim key = Session.SessionID
Dim array As New JArray()
While respuesta.Read
obj.id = respuesta(0)
For index As Integer = 0 To respuesta.FieldCount - 1
array.Add(respuesta(index))
Next
End While
Dim o As New JObject()
o("Id") = array(0)
o("NombreUsuario") = array(1)
o("Clave") = array(2)
o("CorreoElectronico") = array(3)
o("Token") = key
respuesta.Close()
Dim schema As JSchema = JSchema.Parse(o.ToString)
obj.TokenKey = key
Dim token = obj.token
If token Then
Response.AddHeader("Content-Type", "application/json")
Response.AddHeader("Access-Control-Allow-Origin", "*")
Response.Write(o)
Else
print_json("401", "Error de autenticacion", Nothing)
End If
Уже resolvГ - моя проблема, я имею cГіdigo на всякий случай любой его переместил то же самое
Dim respuesta = obj.login
If respuesta.HasRows Then
Session.Timeout = 5
Dim key = Session.SessionID
Dim array As New JArray()
While respuesta.Read
obj.id = respuesta(0)
For index As Integer = 0 To respuesta.FieldCount - 1
array.Add(respuesta(index))
Next
End While
Dim o As New JObject()
o("Id") = array(0)
o("NombreUsuario") = array(1)
o("Clave") = array(2)
o("CorreoElectronico") = array(3)
o("Token") = key
Dim dict As New Dictionary(Of String, JObject)
dict.Add("data", o)
respuesta.Close()
obj.TokenKey = key
Dim token = obj.token
If token Then
Response.AddHeader("Content-Type", "application/json")
Response.AddHeader("Access-Control-Allow-Origin", "*")
Dim stringb As New StringBuilder
stringb.Append("{")
stringb.Append(Chr(34) & "statusCode" & Chr(34) & ": 200,")
stringb.Append(Chr(34) & "statusText" & Chr(34) & ":" & Chr(34) & "OK" & Chr(34) & ",")
For Each a In dict
stringb.Append(Chr(34) & a.Key.ToString & Chr(34))
stringb.Append(":")
stringb.Append(a.Value.ToString)
stringb.Append("}")
Next
Response.Write(stringb)
Else
print_json("401", "Error de autenticacion", Nothing)
End If
string json = @"{
statusCode: 200,
statusText: 'OK',
data: [
{
Id: 1,
NombreUsuario: 'admin',
Clave: 'admin',
CorreoElectronico: 'admin@localhost',
Token: '0m1sand5p2ru5gdinaewi2ox'
}
]
}";
JObject o = JObject.Parse(json);