Foxtable(狐表) → 用户栏目 → 专家坐堂 → toptip不显示


  共有2882人关注过本帖树形打印复制链接

主题：toptip不显示
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		toptip不显示  发帖心情 Post By：2017/3/13 14:58:00 [只看该作者]

页面是这样的

图片点击可在新窗口打开查看此主题相关图片如下：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113877 积分：579988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/13 16:38:00 [只看该作者]

奇怪，代码和js代码都照着改了，测试多遍，还是没有提示顶部红色错误

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113877 积分：579988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/13 17:06:00 [只看该作者]

上传修改后的代码

 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/13 17:53:00 [只看该作者]

找到原因了，审核页面应该使用单独的内部函数，就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/13 17:56:00 [只看该作者]

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

 

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

 

请加入msgbox看是进入执行了 valid.htm 页面
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113877 积分：579988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1572 积分：11164 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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编辑过]
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 4 次数据查询