以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121122)
--  作者：OKK
--  发布时间：2018/6/29 15:00:00
--  [求助]
狐表HTTP的代码：
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
        Dim aa As Integer
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            With .Add("pn2","标题二",txt,"./images/search.png") 
                .AddFoot("<input type=\'text\' id=\'tst\' value=\'12\' />")
            End With
        End With
        
        \'If tst = 12
        \'messagebox.show("ok")
        \'Else
        \'If tst = 13
        \'messagebox.show("no")
        \'End 

        With wb.AddButtonGroup("","btg1",True)
            .Add("btn1", "确定", "button").Attribute= "" \'调用js函数上传
        End With
        wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
        e.WriteString(wb.Build) \'生成网页
End Select







ajaxform.js的代码：
    function submitForm() {
        var txt = document.getElementById("tst");
        var a = txt.value;
        a++;
        tst.value = a;
    }







以上代码，点击按钮后，input框数值增加1；
如果要同时在狐表中获取这个新的值并记录到数据库，中间得增加些代码来获取，比如蓝色那段代码；
这段代码应该怎么写？

[此贴子已经被作者于2018/6/29 15:00:23编辑过]
--  作者：有点甜
--  发布时间：2018/6/29 15:05:00
--  

编写ajax给后台服务器发送数据

 

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

 

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

 
--  作者：OKK
--  发布时间：2018/6/29 15:10:00
--  
好的，谢谢！！！