vb.net(visual basic)下ajax+ashx（一般处理程序）进行Json数据传输

vb.net(visual basic)下ajax+ashx（一般处理程序）进行Json数据传输的应用场景

华仔在web端开发的过程中，需要用到前端和后端进行Json互传，这样的数据传输才能更加稳定，更易于处理。

下面就介绍下这种互传方式的解决方案。

vb.net(visual basic)下ajax+ashx（一般处理程序）进行Json数据传输的解决方案

1、前端ajax代码

　var data = {
　　Todo: "MxSubmitData",
　　FuNo: $("#FuNo option:selected").text(),
　　QJiao: document.getElementById("QJiao").value,
　　HJiao: document.getElementById("HJiao").value,
　　MxPsn: document.getElementById("MxPsn").value,
　　MxTimeLong: document.getElementById("MxTimeLong").value,
　　MillingCutNo1: document.getElementById("MillingCutNo1").value,
　　MxPcs: document.getElementById("MxPcs").value,
　　MxPcs2: document.getElementById("MxPcs").value,
　　MxDate: document.getElementById("MxDate").value,
　　DaoPosun: document.getElementById("DaoPosun").value,
　　username: localStorage.getItem("username"),
　};
　$.ajax({
　　type: "POST",
　　ContentType: "application/json",
　　url: "http://" + localStorage.getItem("验证域名") + "/" + localStorage.getItem("数据处理子目录") + "/铣刀磨削.ashx",
　　data: JSON.stringify(data),//这个地方的JSON.stringify就是把数据转成Json格式
　　timeout: 8000,
　　dataType: 'json',
　　async: false,
　　success: function (data, textStatus) {


　　jsonObj.Rows = eval('(' + data + ')');

　　　if (jsonObj.Rows[0].status == "Ok") {
　　　　$("#提交").attr("disabled", false);
　　　　alert('录入成功！');
　　　　window.location.reload();
　　　}
　　　else {
　　　　$("#提交").attr("disabled", false);
　　　　alert(jsonObj.Rows[0].status);
　　}

　　},
　　error: function () {
　　　$("#提交").attr("disabled", false);
　　　alert('服务器连接有点问题，稍会再试。');
　　}
　});

2、后端一般处理程序接收

　　context.Response.ContentType = "application/json"
　　context.Response.Charset = "utf-8"

　　Dim Stream As Stream = context.Request.InputStream
　　Dim StreamReader As New StreamReader(Stream)
　　Dim Json As String = StreamReader.ReadToEnd rem 这里Json得到的就是Json格式的数据

您可能感兴趣的文章

• visualbasic(vb.net)中C1TrueDbGrid控件如何实现当前单元格整行背景色深色
• visualbasic(vb.net)中如何实现机器绑定验证——硬盘绑定
• visual basic(vb.net)中使用C1TrueDBGrid控件，如何个性化行高
• visual basic(vb.net)中如何直接构造数据表，存贮数据
• visual basic(vb.net)中如何对字符串进行TripleDESCryptoServiceProvider加密，确保程序安全
• vb.net中如何将一个32位的数转换为两个16位的数，并且再转换回来？
• visualbasic(vb.net)中进行post、get方法学习，如何对弹出的新网页使用浏览器自带的开发者工具抓包
• visual basic(vb.net)应用C1TrueDBGrid控件，如何实现网格区域点选，空白区域无操作