如 果 你 的 程 序 是 通 過 填 寫 表 格 的 方 式 提 交 數 據 ， 可 以 用 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>