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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  toptip不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97489)

--  作者：zhangjian222200
--  发布时间：2017/3/13 14:58:00
--  toptip不显示

页面是这样的

此主题相关图片如下：qq图片20170310191707.png
Dim e As RequestEventArgs = args(0) \'注册第1页,注册
Select Case e.Path
Case "register.htm"
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
wb.AddPageTitle("","pageheader","***","***************")
wb.AddForm("","form1","register.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","快速注册")
With .AddInputCell("ic1") \'通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsj","手机",0) \'增加标签(0显示在左边)
.AddInput("isj","text",1).PlaceHolder= "请输入手机号" \'增加输入框(0靠左显示,1居中显示,2靠右显示)
End With
With .AddInputCell("ic2")
.AddLabel("lyz","验证",0)
.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
.AddVcodeButton("vyz","获取验证码",2) \'0靠左显示,1居中显示,2靠右显示
End With
With .AddInputCell("ic3")
.AddLabel("lmm","密码",0)
.AddInput("imm","text",1).PlaceHolder= "请输入密码"
End With
.AddSelect("sxb","性别","|男|女")
.AddSwitch("fuwuxieyi","同意协议")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "注册", "submit")
.Add("btn1", "查看服务协议", "","/fillout.htm").Kind = 1
End With
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
Else
Dim sb As New StringBuilder
sb.AppendLine("<meta name=\'viewport\' c>")
sb.AppendLine("我已经收到您提交的数据和文件")
e.WriteString(sb.Tostring)
End If
验证，toptip不显示
Case "valid.htm"
If e.PostValues.ContainsKey("手机") Then \'判断手机状态
Dim num As String = e.PostValues("手机")
If num = "" Then
e.WriteString("手机不能为空!")
ElseIf num.Length <> 11 Then
e.WriteString("手机号必须为11位!")
ElseIf num.Length = 11 Then
Dim dr As DataRow = DataTables("会员资料").Find("手机 = \'" & num & "\'")
If dr IsNot Nothing Then
e.WriteString("手机不能重复!")
End If
End If
End If
End Select

js文件如下
在"e:\\web"目录下，建立子目录lib，文件名为"ajaxform.js"，文件内容为：
function validit(){
var result=submitAjaxFileds("valid.htm","","手机","密码","性别","同意协议",false);
if(result=="OK"){
return true;
}
else{
showTopTips("toptip1",result,2500);
return false;
}
}

[此贴子已经被作者于2017/3/13 15:09:11编辑过]

--  作者：有点蓝
--  发布时间：2017/3/13 16:05:00
--

注意输入框名称和输入框标题的区别：http://www.foxtable.com/mobilehelp/scr/0045.htm

    Case "valid.htm"
            Dim num As String = e.PostValues("isj")
            If num = "" Then
                e.WriteString("手机不能为空!")
            ElseIf num.Length <> 11 Then
                e.WriteString("手机号必须为11位!")
            ElseIf num.Length = 11 Then
                Dim dr As DataRow = DataTables("会员资料").Find("手机 = \'" & num & "\'")
                If dr IsNot Nothing Then
                    e.WriteString("手机不能重复!")
                End If
            End If

js代码

var result=submitAjaxFileds("valid.htm","","isj",false);

--  作者：zhangjian222200
--  发布时间：2017/3/13 16:38:00
--
奇怪，代码和js代码都照着改了，测试多遍，还是没有提示顶部红色错误

--  作者：有点蓝
--  发布时间：2017/3/13 17:06:00
--
上传修改后的代码

--  作者：zhangjian222200
--  发布时间：2017/3/13 17:16:00
--

Dim e As RequestEventArgs = args(0) \'注册第1页,注册
Select Case e.Path
Case "register.htm"
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
wb.AddPageTitle("","pageheader","郎窝网","*******,***************")
wb.AddForm("","form1","register.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","快速注册")
With .AddInputCell("ic1") \'通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsj","手机",0) \'增加标签(0显示在左边)
.AddInput("isj","text",1).PlaceHolder= "请输入手机号" \'增加输入框(0靠左显示,1居中显示,2靠右显示)
End With
With .AddInputCell("ic2")
.AddLabel("lyz","验证",0)
.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
.AddVcodeButton("vyz","获取验证码",2) \'0靠左显示,1居中显示,2靠右显示
End With
With .AddInputCell("ic3")
.AddLabel("lmm","密码",0)
.AddInput("imm","text",1).PlaceHolder= "请输入密码"
End With
.AddSelect("sxb","性别","|男|女")
.AddSwitch("fuwuxieyi","同意协议")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "注册", "submit")
.Add("btn1", "查看服务协议", "","/fillout.htm").Kind = 1
End With
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
Else
Dim sb As New StringBuilder
sb.AppendLine("<meta name=\'viewport\' c>")
sb.AppendLine("我已经收到您提交的数据和文件")
e.WriteString(sb.Tostring)
End If
Case "valid.htm"
Dim num As String = e.PostValues("isj")
If num = "" Then
e.WriteString("手机不能为空!")
ElseIf num.Length <> 11 Then
e.WriteString("手机号必须为11位!")
ElseIf num.Length = 11 Then
Dim dr As DataRow = DataTables("会员资料").Find("手机 = \'" & num & "\'")
If dr IsNot Nothing Then
e.WriteString("手机不能重复!")
End If
End If
End Select

js代码：在"e:\\web"目录下，建立子目录lib，文件名为"ajaxform.js"，

此主题相关图片如下：qq图片2017031172259.png
文件内容为：
function validit(){
var result=submitAjaxFileds("valid.htm","","isj",false);
if(result=="OK"){
return true;
}
else{
showTopTips("toptip1",result,2500);
return false;
}
}
valid.htm是放在内部函数register下面的，是不是该单独设置一个内部函数？

[此贴子已经被作者于2017/3/13 17:48:44编辑过]

--  作者：zhangjian222200
--  发布时间：2017/3/13 17:53:00
--
找到原因了，审核页面应该使用单独的内部函数，就可以了

--  作者：有点色
--  发布时间：2017/3/13 17:56:00
--

你代码里面根本就没有调用 validit 函数

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

请加入msgbox看是进入执行了 valid.htm 页面

--  作者：有点蓝
--  发布时间：2017/3/13 17:58:00
--

wb.AddForm("","form1","register.htm").Attribute="onsｕbmit=\'retｕrn vａlidit()\'"

Dim fl As String = "e:\\web\\" & e.path

--  作者：zhangjian222200
--  发布时间：2017/3/13 18:45:00
--

wb.AddForm("","form1","register.htm").Attribute="onsｕbmit=\'retｕrn vａlidit()\'"，红色部分我5楼代码也有的，只是复制黏贴的时候，可能官方限制，没有粘上去

这句没看懂放哪
Dim fl As String = "e:\\web\\" & e.path
valid.htm，我单独做了一个内部函数，指向这个页面，就正常了

--  作者：zhangjian222200
--  发布时间：2017/3/13 19:44:00
--

下面这段代码是内部函数，函数名：valid，在浏览器测试，除验证服务协议没有成功（最后一段代码），其他均测试成功，移动指南我看了，还是对value值的使用不了解，还麻烦直接写出代码，谢谢！

Dim e As RequestEventArgs = args(0) \'验证页面
Select Case e.Path
Case "valid.htm"
Dim num As String = e.PostValues("isj") \'验证手机号,如何才能验证手机号没有字母?
If num = "" Then
e.WriteString("手机不能为空!")
ElseIf num <> "" AndAlso num.Length <> 11 Then
e.WriteString("请输入正确的手机号!")
ElseIf num.Length = 11 Then
Dim dr As DataRow = DataTables("会员资料").Find("手机 = \'" & num & "\'")
If dr IsNot Nothing Then
e.WriteString("手机不能重复!")
End If
End If

Dim yzmm As String = e.PostValues("imm") \'验证密码
If yzmm = "" Then
e.WriteString("密码不能为空!")
ElseIf yzmm <> "" AndAlso (yzmm.Length > 12) Then
e.WriteString("密码不能大于12位!")
ElseIf yzmm <> "" AndAlso (yzmm.Length < 6) Then
e.WriteString("密码不能小于6位!")
End If

Dim yzxb As String = e.PostValues("sxb") \'验证性别
If yzxb = "" Then
e.WriteString("性别不能为空!")
End If

Dim yzfwxy As String = e.PostValues("fuwuxieyi") \'验证服务协议,希望这里判断value值是不是on,如果是,才可以注册，移动指南我看了，还是对value值的使用不了解，还麻烦直接写出代码，谢谢！
If yzfwxy <> "on" Then
e.WriteString("未确认服务协议!")
End If
End Select

[此贴子已经被作者于2017/3/13 19:47:11编辑过]