web用户名验证 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim str As String

Select Case e.path

Case "dt"

Dim json As String = e.PlainText

Dim jo As JObject = JObject.Parse(json)

str=jo("username")

dim dr as datarow = datatables("用户").find("名称='" & str & "'")

if dr isnot nothing andalso dr("密码") = jo("密码") then

e.writestring(“成功”)

else

e.writestring(“失败”)

end if

End Select

前端js

var res = ajax提交返回的数据

if (res = "成功") {处理成功的操作}

else{处理失败的操作}

不能。使用了ajax就只能在ajax里获取返回数据，和做其它后续的处理。先网上搜索学学ajax的原理了

提问题不要问可不可以。请测试，然后反馈测试的结果和问题

先网上搜索学学ajax的原理了，连什么是ajax还不懂。估计连js代码还看不懂，根本不知道代码在哪提交和接收返回数据的，先学一下js基础。这里没有时间给你们重头做科普的。

使用了框架的先过2遍框架文档，先不考虑Foxtable，做些静态页面例子，学会先把框架用起来，熟悉了在考虑结合Foxtable使用。瞎猫碰死耗子一样乱用是没有用的，更加浪费时间

success:function(res){

if (res = "成功") {

window.location.href = 'http://127.0.0.1/index.html';

}

else{

window.location.href = 'http://127.0.0.1/logon.html';

}

没头没尾的看不懂呀。咋一看应该是js代码，却像穿越了，乱入了Foxtable的代码语法

建议直接把单号传到服务端，由服务端来拼接查询条件。而不是在前端拼接，很容易被人拼接一些侵入性的条件

where:{

tj:key,

Dim filter As String =""

If e.values.containskey("tj") Then

filter="单号='"+e.values("tj")+"' or "+"单号='"+e.values("tj")+"'"

End If

http://www.foxtable.com/mobilehelp/topics/0113.htm

先不说网页部分，现在连Foxtable基本的语法都还没有搞懂：http://www.foxtable.com/webhelp/topics/1284.htm

msgbox(e.plantext) 弹出什么值

msgbox(e.PostValues("id")) 弹出什么值
cnt = DataTables("table_3").SQLDeleteFor("单号='" & e.PostValues("id") & "'")

[此贴子已经被作者于2021/11/16 15:53:09编辑过]

先解析：http://www.foxtable.com/mobilehelp/topics/0140.htm

Dim ja As JArray = Jarray.Parse(接收到的json)

dim r as row = tabels(xx).addnew

r("第一列") = jo("第一列").tostring

主题：web用户名验证