狐表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编辑过]
加好友 
发短信
Post By：2018/6/29 15:00:00 [只看该作者]
