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

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

Dim MsPhone As String

Dim context As String

For Each dr As DataRow In DataTables("表A").DataRows

    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

    cfont-family: Verdana; font-size: 14px; font-style: normal; font-variant: normal; font-weight: normal; line-height: normal; ">    url=""

Next

MessageBox.Show(MsPhone & "发送失败,请确认服务器地址设置正确!","提示")

有个地方乱码了，重贴一下！

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

Dim MsPhone As String

Dim context As String

For Each dr As DataRow In DataTables("表A").DataRows

    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

    c"

Next

MessageBox.Show(MsPhone & "发送失败,请确认服务器地址设置正确!","提示")