主题：请教有点甜老师，关于RemoteSmS,急！

 不应该，试试这样

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

For Each dr As DataRow In DataTables("表A").DataRows
    Dim context As String = ""
    Dim phone As String = dr("手机号")
    For Each dc As DataCol In DataTables("表A").DataCols
        If dc.name<>"手机号" Then
            context = context & dc.name & ": " & dr(dc.name) & "  "
        End If
    Next
    context=System.Web.HttpUtility.UrlEncode(context.TrimEnd)
    Dim url  As String = server & "/?numbers=" & phone & "&text=" & context
    try
        Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
        Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
    catch ex As exception
        MsPhone = MsPhone & dr("手机号") & ","
    End try
Next
MessageBox.Show(MsPhone & "发送失败,请确认服务器地址设置正确!","提示")

 看3楼，可能是字符过长了，再试一试。

 如果还报错，加入代码测试报什么错

catch ex As exception
    MsPhone = MsPhone & dr("手机号") & ","

    msgbox(ex.Message)
End try

 呵呵，忘记关闭了，抱歉

Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
rsps.Close