 |
操作系统: Windows95/98/NT
编程工具: VB、ASP、VBscript
问题: 小弟正在用VB编写数据表多站连发程序，即怎样用所输表信息向其它网站一次性直接传送呢。亦即怎样用VB编写internet下多站连发的程序。
1、利用VB的什么控件
2、本地表结构设为 企业名称、联系人、联系电话、Email、标题、内容、地址、网址等
3、对方Web服务器的结构为：企业名称、联系人、联系电话、标题、内容、地址等。
4、双方表的名称和结构并不一样
务请各位高手指点帮助。(网虎)
|
| |
|
 |
如果你的程序是通过填写表格的方式提交数据，可以用VB的Intenet Transfer Control。关键要知道几点：
1、服务器是采用POST方式，还是GET方式？
2、服务器表单的每个字段的名字
你可以使用浏览器访问该站点，然后查看页面的源程序，看看其中的<Form>...</FORM>中的有关内容。
例子程序可以参考QA000473 "编程实现填写、发送一个表单并识别是否成功"。
网虎来信希望得到进一步解释：
1、其它设置应无问题。包括服务器表的字段、构件属性的设置等
2、问题是postdata后带多个参数应该怎么写？
附我的数据传送处理部分程序：
Do While Not Data2.Recordset.EOF
'******** '处理数据传送
Dim strurl As String
Dim strformdata As String
strurl = http://202.96.138.151/OFFER/offer.dll/save?
strformdata = "name='" & Trim(Data2.Recordset.Fields("name")) & "'," _
& "address='" & Trim(Data2.Recordset.Fields("address")) & "'," _
& "homepage='" & Trim(Data2.Recordset.Fields("homepage")) & "'," _
& "stateid='" & Trim(Data2.Recordset.Fields("stateid")) & "'," _
& "areaid='" & Trim(Data2.Recordset.Fields("areaid")) & "'," _
& "contacter='" & Trim(Data2.Recordset.Fields("contacter")) & "'," _
& "phone='" & Trim(Data2.Recordset.Fields("phone")) & "'," _
& "fax='" & Trim(Data2.Recordset.Fields("fax")) & "'," _
& "email='" & Trim(Data2.Recordset.Fields("email")) & "'," _
& "zip='" & Trim(Data2.Recordset.Fields("zip")) & "'," _
& "mode='" & Trim(Data2.Recordset.Fields("mode")) & "'," _
& "tilte='" & Trim(Data2.Recordset.Fields("title")) & "'," _
& "body='" & Trim(Data2.Recordset.Fields("body")) & "'"
Inet1.Execute strurl, "post", strformdata
If Not Data2.Recordset.EOF Then
Data2.Recordset.MoveNext
Else
Exit Do
End If
Loop
回答：
postdata后带多个参数应该是这样：
filed1=value1&field2=value2&field3=value3&...
字段值不用引号括起来，字段间使用&连接。对于字段值应该进行URL encode编码。
 相关问题：
QA003740 "如何用vb实现手机短讯的发送"
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Internet编程, INET, www, internet, ie。
|
| |
|
| |
|
| |
|
|
用VB编写程序向其它网站提交数据