主题：[求助]将& http.responseText的内容写到表里

在命令窗口测试：

Dim msg As String = "OID=23411&PHONE=13012345678&SP_NUMBER= 10655168826278&RECV_TIME= 20080225134241&MSG_CONT=信息内容"
Dim vals() As String  = msg.split("&")
For Each val As String In vals
    Dim nms() As String = val.split("=")
    If nms(0) = "PHONE" Then
        output.show("电话:" & nms(1))
    ElseIf nms(0) = "MSG_CONT" Then
        output.show("内容:" & nms(1))
    End If
Next