以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于submitAjaxFileds用法的请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100887)
--  作者：ap9709130
--  发布时间：2017/5/20 10:11:00
--  关于submitAjaxFileds用法的请教
老师

我想用submitAjaxFileds把某一控件提交给服务端，并返回一个结果，但我用这个结果，去动态的改变当前表单的一个复选列表项 里的选项，这样做可以吗？

代码是写在JS 里吗？大概要怎么写，能不能给点思路？
--  作者：有点蓝
--  发布时间：2017/5/20 10:31:00
--  
帮助就是这样的用法啊http://www.foxtable.com/mobilehelp/scr/0103.htm
--  作者：有点蓝
--  发布时间：2017/5/20 10:32:00
--  
改变复选列表项 里的选项可以这样

js代码

function setCodes(){
    var result= submitAjaxFileds(\'getCodes.htm\',\'\',\'bw2\',false);
    if(result=\'OK\'){
            document.getElementById("bw2").checked=true;
    }
}
--  作者：ap9709130
--  发布时间：2017/5/20 10:43:00
--  
老师

可能我没讲清楚。我是要动态改变复选列表项 里面的内容。 本来我的复选列表项 里面有 1|2|3|4 可以选， 收到结果后，我想把这个列表项改成：5|6|7|8|。 这种情况可以吗？
--  作者：有点蓝
--  发布时间：2017/5/20 11:01:00
--  
ajaxform.js文件

function setCodes(){
    var result= submitAjaxFileds(\'getCodes.htm\',\'\',\'areacode\',false);
    if(result){
        var vals=result.split("|");
var html = "";
for (var i = 0; i < vals.length; i++){
            html = html + "<label class=\'weui_cell weui_check_label\' for=\'bw" + i + "\'><div class=\'weui_cell_hd\'><input type=\'checkbox\' class=\'weui_check\' name=\'bw" + i + "\' id=\'bw" + i + "\'/>";
html = html+ "<i class=\'weui_icon_checked\'></i></div><div class=\'weui_cell_bd weui_cell_primary\'><p>" + vals[i] + "</p></div></label>";
}
//alert(html);
document.getElementById("rdg1").innerHTML = html;
    }
}

HttpRequest

Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>")
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","自动输入")
            .AddInput("areacode","区号","text")
            .AddInput("postcode","邮编","text")
        End With
        With wb.AddCheckGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer", True) \'默认勾选
            .Add("bw2","Google Chorme")
            .Add("bm3","FireFox")
            .Add("bm4","Safari").Enabled = False \'此项不可选
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "button").Attribute = "onclick=\'setCodes()\'"
        End With
        e.WriteString(wb.Build) \'生成网页
    Case "getCodes.htm" \'根据输入的省和县,获取区号有邮编
        e.WriteString("项目1|项目2|项目3")
End Select
[此贴子已经被作者于2017/5/20 11:01:24编辑过]
--  作者：ap9709130
--  发布时间：2017/5/20 11:52:00
--  
明白了。太给气了！