以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义函数中为何表单验证的代码不可用呢？如何修改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110599)
--  作者：WUZHAN
--  发布时间：2017/12/6 9:26:00
--  [求助]自定义函数中为何表单验证的代码不可用呢？如何修改？
[求助]自定义函数中为何表单验证的代码不可用呢？如何修改？
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 "addnew.htm"
        If e.PostValues.Count = 0 Then
            Dim wb As New weui
            wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
            wb.AddForm("","form1","addnew.htm").Attribute=""
            With wb.AddInputGroup("form1","ipg1","新增订单")
                .AddSelect("产品","产品","|PD01|PD02|PD03")
                .AddInput("数量","数量","number")
                .AddInput("单价","单价","number").Step = 0.1
                .AddInput("折扣","折扣","number").Step = 0.01
                With .AddUploader("up1","图片",True)
                    .TextPosition = 0 \'标题靠左
                    .AddImage("./images/shuqi2.jpg")
                End With
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定","submit")
            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"
        If e.PostValues.ContainsKey("产品") AndAlso e.PostValues.ContainsKey("数量") AndAlso e.PostValues.ContainsKey("折扣") Then
            If e.PostValues("产品") = "PD01" AndAlso e.PostValues("数量") > 1000 Then
                e.WriteString("PD01库存只剩1000啦!")
            ElseIf e.PostValues("产品") = "PD01" AndAlso e.PostValues("折扣") > 0.1 Then
                e.WriteString("PD01的最大允许折扣为0.1哦")
            Else
                e.WriteString("OK")
            End If
        Else
            e.WriteString("请完整输入订单内容!")
        End If
End Select
--  作者：WUZHAN
--  发布时间：2017/12/6 10:06:00
--  
为何验证的Case "valid.htm"代码不起作用？
--  作者：有点蓝
--  发布时间：2017/12/6 10:43:00
--  
wb.AddForm("","form1","addnew.htm").Attribute="这里怎么写的"

JS文件“ajaxform.js”代码又是怎么写的

能不能进入这个case？

Case "valid.htm"
msgbox(e.PostValues("产品")) \'这3个提示框能否弹出来，都有什么值？
msgbox(e.PostValues("数量"))
msgbox(e.PostValues("折扣"))
        If e.PostValues.ContainsKey("产品") AndAlso e.PostValues.ContainsKey("数量") AndAlso e.PostValues.ContainsKey("折扣") Then