以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  还是不能熟练使用post方法,请指教。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98675)

--  作者:ycwk
--  发布时间:2017/4/5 7:35:00
--  还是不能熟练使用post方法,请指教。
Select Case e.Path
    Case "input.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<form enctype=\'multipart/form-data\' action=\'accept.htm?id=1&page=10\' method=\'post\' id=\'form1\' name=\'form1\'>")
        sb.AppendLine(
"
产品: <input name=\'cp\' id=\'cp\'><br/><br/>")
        sb.AppendLine(
"
客户: <input name=\'kh\' id=\'kh\'><br/><br/>")
        sb.AppendLine(
"
数量: <input type=\'number\' name=\'sl\' id=\'sl\'><br/><br/>")
        sb.AppendLine(
"
日期: <input type=\'date\' name=\'rq\' id=\'rq\'><br/><br/>")
        sb.AppendLine(
"<input type=\'submit\' name=\'sumbit\' id=\'sumbit\' value=\'
提交\'>")
        sb.AppendLine(
"<input type=\'reset\' name=\'reset\' id=\'reset\' value=\'
重置\'>")
         sb.AppendLine("</form>")
        e.WriteString(sb.ToString)

在帮助中有这么一段,请问post方式提交数据  就是在html中把method设为post吗?     httpclient 的方式能用post吗?

--  作者:狐狸爸爸
--  发布时间:2017/4/5 8:11:00
--  
1、是的
2、可以:
http://www.foxtable.com/mobilehelp/scr/0159.htm


--  作者:ycwk
--  发布时间:2017/4/5 13:23:00
--  
这是我在网上找到的一段vb.net 的post方法,用来发送短信的,请问对吗?  1.可以直接应用在狐表中吗?      2.  如果用httpclient 要怎样改呢?

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
Dim web As New System.Net.WebClient() \'发送短信
web.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim d As Byte()
d = System.Text.Encoding.UTF8.GetBytes("userid=你的ID&password=你的密码&account=你的账号&c&mobile=" + TextBox2.Text)
Dim res As Byte() = web.UploadData("http://www.qf106.com/sms.aspx?action=send", "POST", d)
Dim str_res As String
str_res = System.Text.Encoding.GetEncoding("utf-8").GetString(res)
Response.Write(str_res)
End Sub
End Class
[此贴子已经被作者于2017/4/5 13:23:17编辑过]

--  作者:有点色
--  发布时间:2017/4/5 14:38:00
--  

如果直接用get请求,这样写

 

http://www.foxtable.com/webhelp/scr/2243.htm

 

如果post请求,参考

 

http://www.foxtable.com/mobilehelp/scr/0159.htm

 


--  作者:ycwk
--  发布时间:2017/4/5 14:48:00
--  
如果是post方法调webservice呢?   我上面贴出来的代码不能用吗?
--  作者:有点色
--  发布时间:2017/4/5 14:59:00
--  
以下是引用ycwk在2017/4/5 14:48:00的发言:
如果是post方法调webservice呢?   我上面贴出来的代码不能用吗?

 

请,使用,论坛以前的post请求。请先把代码测试成功,再谈其它。


--  作者:ycwk
--  发布时间:2017/4/5 15:09:00
--  
Dim hc As New HttpClient("http://10.26.254.23:8080//Identity.asmx/IdentityCheck")
hc.FormData.Add("Name","李三")
hc.FormData.Add("User","000000")
hc.FormData.Add("Password","w0****")
Dim ret As String = hc.getData()
Dim xo As Xobject = XObject.parse(ret)
\'msgbox(xo)


这样的代码不对吗?  弹出错误,怎么改呢?


---------------------------
版本:2017.3.6.1
---------------------------
代码执行出错,错误信息:



System.Xml.XmlException: 缺少根元素。

   在 System.Xml.XmlTextReaderImpl.Throw(Exception e)

   在 System.Xml.XmlTextReaderImpl.ThrowWithoutLineInfo(String res)

   在 System.Xml.XmlTextReaderImpl.ParseDocumentContent()

   在 System.Xml.XmlTextReaderImpl.Read()

   在 System.Xml.XmlLoader.Load(XmlDocument doc, XmlReader reader, Boolean preserveWhitespace)

   在 System.Xml.XmlDocument.Load(XmlReader reader)

   在 System.Xml.XmlDocument.LoadXml(String xml)

   在 Foxtable.XObject..ctor(String A_0)

   在 Foxtable.XObject.Parse(String XML)

   在 UserCode.Test()
---------------------------
确定   
---------------------------

[此贴子已经被作者于2017/4/5 15:09:53编辑过]

--  作者:ycwk
--  发布时间:2017/4/5 15:13:00
--  
我跟Webservice的提供方约定:

我发送   <XML><Name>姓名</Name><User>工号</User><Password>密码</Password></XML>

它返回   <XML><User>工号</User><CheckResult>验证结果</CheckResult><CheckTime>验证时间</CheckTime></XML>

--  作者:有点蓝
--  发布时间:2017/4/5 15:13:00
--  
Dim ret As String = hc.getData()
msgbox(ret)

看看返回的是什么内容?

--  作者:ycwk
--  发布时间:2017/4/5 15:17:00
--  
Dim hc As New HttpClient("http://10.26.254.23:8080//Identity.asmx/IdentityCheck")
hc.FormData.Add("Name","张三")
hc.FormData.Add("User","000000")
hc.FormData.Add("Password","*****")
Dim ret As String = hc.getData()
msgbox(ret)

在命令行执行如上代码:报如下错误  ,这个代码能确保生成    上面指定格式的xml字符串post过去吗?

.NET Framework 版本:2.0.50727.8745
Foxtable 版本:2017.3.6.1
错误所在事件:
详细错误信息:
远程服务器返回错误: (500) 内部服务器错误。



[此贴子已经被作者于2017/4/5 15:17:22编辑过]