Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有4323人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
yjd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1434 威望:0 精华:0 注册:2014/11/7 21:15:00
[求助]  发帖心情 Post By:2015/1/9 22:31:00 [只看该作者]

甜版主,您的狐表连接手机发送短信应用发送方式太好了!请问如果数据表中有数百个手机信息,如何导入手机号群发!谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/10 8:49:00 [只看该作者]

FOR each r as row in tables("X").rows
    遍历所有行
next

 回到顶部
帅哥哟,离线,有人找我吗?
yjd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1434 威望:0 精华:0 注册:2014/11/7 21:15:00
  发帖心情 Post By:2015/1/10 12:08:00 [只看该作者]

甜版主的代码是这样,您的代码是For Each r As Row In Tables("x").rows
Next
应该怎么修改,谢谢!


Dim server As String = e.Form.Controls("TextBox1").Text
Dim phones As String = e.Form.Controls("TextBox2").Text
Dim context As String = System.Web.HttpUtility.UrlEncode(e.Form.Controls("TextBox3").Text)
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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/10 12:17:00 [只看该作者]

For Each r As Row In Tables("x").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)
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

 回到顶部
帅哥哟,离线,有人找我吗?
yjd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:183 积分:1434 威望:0 精华:0 注册:2014/11/7 21:15:00
  发帖心情 Post By:2015/1/10 13:00:00 [只看该作者]

谢谢老师,成功了。如果我在数据表中增加一个短信发送成功或失败列,代码应该怎么写。谢谢!

 回到顶部