主题：[求助]

For Each r As Row In Tables("对公客户明细").rows

    Dim server As String = e.Form.Controls("TextBox1").Text

    Dim phones As String = r("手机")

    Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)

    If phones > "" AndAlso context > "" Then '如果输入了电话号码和内容

        e.Form.Controls("btnSend").Enabled = False '禁用发送按钮,避免用户重复单击发送按钮

    End If

    Dim url  As String = server & "/?numbers=" & phones & "&text=" & context

    try

        Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)

        Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse

        rsps.close

        'Dim stm As System.IO.Stream = rsps.GetResponseStream()

        'Dim reader As New System.IO.StreamReader(stm)

        'Dim strResult As String = reader.ReadToEnd

        'msgbox(strResult)

        msgbox("提交发送成功")

    catch ex As exception

        msgbox("发送失败,请确认服务器地址设置正确!")

    End try

Next