用vb编写程序向其它网站提交数据.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 的 程 序 是 通 过 填 写 表 格 的 方 式 提 交 数 据 ， 可 以 用 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编 码 。 
<END>