Validation 嵌套ASP验证

我有一张申请四种捐赠的表格。用户必须从四项捐赠中选择一项。此外，根据他们选择哪一个，他们需要填写相邻字段（金额）

如果A1填写在B1中，则必须填写在
如果A2填写在B2中，则必须填写在
如果A3填写在B3中，则必须填写
如果A4填写，则B4必须填写

---

。。。但至少必须填写一个A。

假设您正在进行ASP验证（即在发布后），您可以执行以下操作：

dim A1 : A1 = trim(request.form("A1"))
dim A2 : A2 = trim(request.form("A2"))
dim A3 : A3 = trim(request.form("A3"))
dim A4 : A4 = trim(request.form("A4"))

dim B1 : A1 = trim(request.form("B1"))
dim B2 : B2 = trim(request.form("B2"))
dim B3 : B3 = trim(request.form("B3"))
dim B4 : B4 = trim(request.form("B4"))

dim ValidationError : ValidationError = ""

if A1 <> "on" and A2 <> "on" and A3 <> "on" and A4 <> "on" then
    ValidationError = "Please select at least one option"
else
    if A1 = "on" and B1 = "" then ValidationError = "You selected A1, please complete the amount"
    if A2 = "on" and B2 = "" then ValidationError = "You selected A2, please complete the amount"
    if A3 = "on" and B3 = "" then ValidationError = "You selected A3, please complete the amount"
    if A4 = "on" and B4 = "" then ValidationError = "You selected A4, please complete the amount"
end if

if ValidationError <> "" then
    response.write(ValidationError)
else
    '#### All OK
end if

尺寸A1:A1=修剪（请求表格（“A1”））
尺寸A2:A2=修剪（请求表（“A2”））
尺寸A3:A3=修剪（请求表（“A3”））
尺寸A4:A4=修剪（请求表格（“A4”））
尺寸B1:A1=饰件（申请表（“B1”））
尺寸B2:B2=修剪（请求表（“B2”））
尺寸B3:B3=修剪（请求表（“B3”））
尺寸B4:B4=修剪（请求表（“B4”））
dim ValidationError:ValidationError=“”
如果A1“开”，A2“开”，A3“开”，A4“开”，则
ValidationError=“请至少选择一个选项”
其他的
如果A1=“on”和B1=”“，则ValidationError=“您选择了A1，请填写金额”
如果A2=“on”和B2=”“，则ValidationError=“您选择了A2，请填写金额”
如果A3=“on”和B3=”“，则ValidationError=“您选择了A3，请填写金额”
如果A4=“on”和B4=”“，则ValidationError=“您选择了A4，请填写金额”
如果结束
如果ValidationError“”则
response.write（ValidationError）
其他的
”“好的
如果结束

---

但是像这样的东西在javascript（客户端-前后）验证中通常会更流畅。

@ricosave发现得很好，Dims在完全vb中的位置确实变为VBA问题是什么，是否要验证表单输入字段，是否在客户端或服务器端验证它们？