 加好友  发短信
等级：小狐
帖子：373
积分：2732
威望：0
精华：0
注册：2012/2/17 20:05:00
|
[求助]自定义函数中为何表单验证的代码不可用呢？如何修改？  Post By：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
|
|
