Validation 使用vbscript验证表单和数据的完整性

嗨，我在当地一家公司实习，他们希望我编写一个基于web的应用程序，将数据输入并输入sql。调用vbscript验证函数时遇到问题。我知道vbscript现在对于web开发人员来说是一种糟糕的语言，但是老板只会使用vbscript和VisualBasic6来满足任何编程需求

密码 全名 工资单ID 主动式&emsp； 终止 “我删除了select中的所有信息，只是因为它不需要 功能验证 如果1=2，则 验证=真 其他的 验证=错误 如果结束 msgbox Validate'此函数的其余部分正在工作中 响应写入Adc “dimsql “暗号 “暗淡的工资单 “暗淡的努平 “暗淡的努帕罗尔 “dim FormObject ”“为什么 '出现错误时，请继续下一步 '设置FormObject=document.formsEmployeeForm 'Pin=FormObject.Pin.Value '工资单=FormObject.PayRoll.Value “错误原因= '如果连接1，则 'SQL=从ISO_Employee中选择countPin作为NumPin，其中pin=&pin '如果是queryrs，那么是sql “直到R.eof为止 'NumPin=dbfrs，NumPin “下一个 '循环 “快关 ”“否则呢 'response.write ErrDesc "完" 'SQL=从ISO_Employee中选择countpayrollid作为工资单，其中payrollid=&payroll '如果是queryrs，那么是sql “直到R.eof为止 'NumPayRoll=dbfrs，NumPayRoll “下一个 '循环 ”“否则呢 'response.write ErrDesc "完" '如果NumPin为0，则 'ErrorReason=不是唯一的Pin码 "完" '如果NumPayRoll为0，则 'ErrorReason=ErrorReason&不是唯一的Pin码 "完" “断开 ”“否则呢 'response.write ErrDesc "完" “如果有理由的话 “”显示验证失败的原因 '验证=错误 ”“否则呢 'Validate=true "完" 端函数 sub-cmdSubmit\u onClick 如果验证，则 document.EmployeeForm.submit 其他的 response.write失败 如果结束 端接头 应该注意的是，html代码位于与validate函数和onsubmit函数不同的文件中。validate和onsumbit函数位于包含在此网站所有其他页面中的全局.asp文件中

---

这应该总是返回一个false，但是它仍然在发布表单。有人知道吗？或者我应该在服务器端执行所有验证，如果验证为false，就重新加载页面吗？

最初的问题是1永远不会等于2。不能将整数用作变量

if **1 = 2** then
    Validate = true
else
    Validate = false
end if