- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于短信发送 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=9319)
-- 发布时间：2011/3/29 11:16:00
-- 关于短信发送
各位老师，我按帮助中画了如下代码，怎么显示 04 错误
Dim url As String
Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim tx As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txx As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim dr As DataRow = DataTables("收付类别").find("票据类型 = \'" & cm.value & "\'")
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id= \'" & cm.value & "\' pwd= \'" & dr("项目") & "\' & to= \'" & tx.value & "\' & c & time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)
如下例子公式表名与列名与上面公式不同．
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2011/3/29 11:23:00
--
04 参数不够或参数内容的类型错误！
-- 发布时间：2011/3/29 11:34:00
--
主要是这个：
url = "http://service.winic.org:8009/sys_port/gateway/?id= \'" & cm.value & "\' pwd= \'" & dr("项目") & "\' & to= \'" & tx.value & "\' & c & time="
你帮看看有什么问题．
-- 发布时间：2011/3/29 12:33:00
--
做个例子上来看看
-- 发布时间：2011/3/29 13:11:00
--
做个例子上来看看
已上传，帮请看看，哪个参数不对．
-- 发布时间：2011/3/29 15:12:00
--
注意账户、密码、手机号和短信内容，都不需要单引号的。
-- 发布时间：2011/3/29 15:57:00
--
url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & " &pwd=" & dr("项目") & "To=" & tx.value & " &c&time="
狐爸帮看看，这个也不对呀．下面去掉如上连接，仍不行，为何？能否指定哪个镶嵌不符条件．
url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & "pwd=" & dr("项目") & "To=" & tx.value & "c time="
-- 发布时间：2011/3/29 16:08:00
--
测试通过：
url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & "&pwd=" & dr("第二列") & "&To=" & tx.text & "&c&time="
-- 发布时间：2011/3/29 16:22:00
--
测试通过：
url = "http://service.winic.org:8009/sys_port/gateway/?id=" & cm.value & "&pwd=" & dr("第二列") & "&To=" & tx.text & "&c&time="
万分感谢，没有看清第一个& ,与其它语名有点不一样，每个字符前都要加上&.
再次感谢．