xmlhttp請求一個URL,並執行.

Function ExecUrl(jobno,datestr) '改變mysql數據庫,使與本系統數據庫同步操作
set xmlhttp = CreateObject("Microsoft.XMLHTTP")
 xmlhttp.open "post","http://192.168.2.7:8080/web/usenddate.do",false
 stra="jobno="&jobno&"&senddate="&datestr
 xmlhttp.setrequestheader "content-length",len(stra)
 xmlhttp.setrequestheader "content-type","application/x-www-form-urlencoded"
 xmlhttp.send stra
 set xmlhttp=nothing
End Function