主题：[求助]将& 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

1、我对你这个收信息的业务感兴趣，能告诉我哪里可以开通吗？

2、完整的代码：

Dim url As String
Dim http As Object
Dim msg As String
url = "http://218.246.34.171/daredo/pushsms/mingxun_mo.jsp?CP_ID=155901&CP_PASSWORD=210739"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("post", url, False)
http.send()
msg =  http.responseText
Dim r As Row = Tables("表A").AddNew()
Dim vals() As String  = msg.split("&")
For Each val As String In vals
    Dim nms() As String = val.split("=")
    If nms(0) = "RECV_TIME" Then
        r("czsj") = nms(1)
    ElseIf nms(0) = "MSG_CONT" Then
        r("czr") = nms(1)
    End If
Next