Si, sia POST che GET.
Per leggere i valori devi prendere il DocumentContext e Request_Content se richiesta di tipo POST o Query_String (o Query_String_Decoded) se GET.
Ci ho sopra le mani in questo momento, io mi sono fatto una classe:
Public Class RequestParams
Private names() As String
Private values() As String
Private bounds As Integer
Private Sub Push(param As String)
Dim v As Variant
Redim Preserve Me.names(0 To bounds)
Redim Preserve Me.values(0 To bounds)
If Instr(param, "=") = 0 Then
Me.names(bounds) = param
Me.values(bounds) = ""
Else
v = Split(param, "=")
Me.names(bounds) = v(0)
Me.values(bounds) = v(1)
End If
Me.bounds = Me.bounds + 1
End Sub
Sub New (Request_Content As String)
Dim v As Variant
bounds = 0
Redim Me.names(0 To 0)
Redim Me.values(0 To 0)
If Instr(Request_Content, "&") = 0 Then
Me.Push Request_Content
Else
v = Split(Request_Content, "&")
For i = Lbound(v) To Ubound(v)
Me.Push v(i)
Next
End If
bounds = bounds - 1
End Sub
Public Function GetValue(pname As String) As String
GetValue = ""
If Me.bounds >= 0 Then
For i = 0 To bounds
If Lcase(Me.names(i)) = Lcase(pname) Then
GetValue = Me.values(i)
Exit For
End If
Next
End If
End Function
End Class
Da usare come:
Dim s as new notessession
Dim docWeb as notesdocument
Dim rp as RequestParams
Set docWeb = s.documentcontext
Set rp = New RequestParams(Join(docWeb.getitemvalue("Request_Content"))) \'se POST
Set rp = New RequestParams(Join(docWeb.getitemvalue("Query_String_Decoded"))) \'se GET
Ciao.
Massimo Nadalin | Devangarde
|