JS怎么实现ASP网页中表单不刷新验证 1表单中只有单选，多选和一个下拉菜单 2只判断是否输入

如果未选择就回到未选择的元素上。
不提交实现
1、判断表单中，单选和多选是否选择。
2、判断表单中，下拉菜单式否选择。
3、如果未选择回到表单中未选择元素上.

举报该文章

相关建议 2012-04-03

下面的代码是ASP动态验证表单的——不刷新，只需要点表单的“提交”就会验证。你所说的表单元素只是表单的表现形式，它的值是怎么样的呢？你可以根据表单元素的值灵活变通一下就可以了。

<%
Function findJS(frmName,errStr)
Dim tmpArr
Dim i
'参数值
i=0
'获取错误列表，建立数组
tmpArr=Split(errStr,"|")
'输出查询条件
Select Case tmpArr(i+1)
Case "0" '必填的Text类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "1" '必填的ListMenu类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "2" '必须为数字的Text类型
findJS="if (isNaN(document."&frmName&"."&tmpArr(i)&".value))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "3" '必须为指定位数的Text类型
findJS="if (document."&frmName&"."&tmpArr(i)&".value.length="&tmpArr(i+3)&")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "4" '必须大于指定位数的Text类型
findJS="if (document."&frmName&"."&tmpArr(i)&".value.length<"&tmpArr(i+3)&")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "5" '必须为Email的Text类型
findJS="if ((!emailReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "6" '必须为a-z或0-9的字符的Text类型
findJS="if ((!pwdReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "7" '确认密码和密码必须相等的Text类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)!=(document."&frmName&"."&tmpArr(i+3)&".value))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
End Select
End Function

Sub CheckForm_JS(frmName,errStr)
Dim tmpArr
Dim i
Dim strShow '输出JS的字符串
'获取错误列表，建立数组
tmpArr=Split(errStr,",")
'写JS
for i=0 to UBound(tmpArr)
if i<>0 then
strShow=strShow&"else "&findJS(frmName,tmpArr(i))
else
strShow=strShow&findJS(frmName,tmpArr(i))
end if
next
'输出
strShow="<script language=javascript>"&vbCrlf&_
""&vbCrlf&_
"</script>"
Response.Write strShow
End Sub
%>

温馨提示：内容为网友见解，仅供参考

当前网址：https://aolonic.com/aa/n5kkddand.html

其他看法

第1个回答 2012-04-07

<%
Function findJS(frmName,errStr)
Dim tmpArr
Dim i
'参数值
i=0
'获取错误列表，建立数组
tmpArr=Split(errStr,"|")
'输出查询条件
Select Case tmpArr(i+1)
Case "0" '必填的Text类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "1" '必填的ListMenu类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)=="""")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "2" '必须为数字的Text类型
findJS="if (isNaN(document."&frmName&"."&tmpArr(i)&".value))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "3" '必须为指定位数的Text类型
findJS="if (document."&frmName&"."&tmpArr(i)&".value.length="&tmpArr(i+3)&")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "4" '必须大于指定位数的Text类型
findJS="if (document."&frmName&"."&tmpArr(i)&".value.length<"&tmpArr(i+3)&")"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "5" '必须为Email的Text类型
findJS="if ((!emailReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "6" '必须为a-z或0-9的字符的Text类型
findJS="if ((!pwdReg.test(document."&frmName&"."&tmpArr(i)&".value))&&(document."&frmName&"."&tmpArr(i)&".value!=''))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
Case "7" '确认密码和密码必须相等的Text类型
findJS="if ((document."&frmName&"."&tmpArr(i)&".value)!=(document."&frmName&"."&tmpArr(i+3)&".value))"&vbCrlf&_
"{"&vbCrlf&_
"window.alert ('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".select();"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus();"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf
'"else"&vbCrlf&_
'"return true;"&vbCrlf
Exit Function
End Select
End Function

Sub CheckForm_JS(frmName,errStr)
Dim tmpArr
Dim i
Dim strShow '输出JS的字符串
'获取错误列表，建立数组
tmpArr=Split(errStr,",")
'写JS
for i=0 to UBound(tmpArr)
if i<>0 then
strShow=strShow&"else "&findJS(frmName,tmpArr(i))
else
strShow=strShow&findJS(frmName,tmpArr(i))
end if
next
'输出
strShow="<script language=javascript>"&vbCrlf&_
""&vbCrlf&_
"</script>"
Response.Write strShow
End Sub
%>本回答被提问者采纳

第2个回答 2012-03-30

单选的话就加一个好像是selected属性
多选就加一个checked属性
下拉菜单就加一个onchange属性
不知到你说的不刷新是什么意思，是不是不提交啊追问

不提交，不知道怎么判断，求可用源码

追答

先通过js获得单选、多选、下拉菜单（如：var a = document.getElementById('单选id').selected;if(a == true)说明选择了），不会的地方可以查文档

追问

求源代码

追答

源代码？我要给你写一个吗？你可以从网上搜一个例子看看嘛

...1表单中只有单选,多选和一个下拉菜单 2只判断是否输入
Function findJS(frmName,errStr)Dim tmpArr Dim i '参数值 i=0 '获取错误列表，建立数组 tmpArr=Split(errStr,"|")'输出查询条件 Select Case tmpArr(i+1)Case "0" '必填的Text类型 findJS="if ((document."&frmName&"."&tmpArr(i)&".value)==""")"&vbCrlf&_"{"&vbCrlf&_"windo...

请问怎么实现提交一个表单后但其下拉列表的值不刷新?
用js把提交以前的下拉列表的选项记录在input type=hidden，然后在body的onload里面把input type=hidden的值取出来，把select选中上就ok了

在ASP页面,同一表单里如何获取下拉框选项值,作为另一个下拉框里面asp语 ...
这个有两个方法第一个方法：用刷新，在你部门的下拉菜单上加上onchange事件，然后用js的location方法来加载本页面，并用这个URL传递一个值，就是用来标识这个部们的值。把你的代码改写之后应该是这样的：部门1 部门2 部门3 这样当选择部门的时候就将option选项的value添加到了URL，如选择部门1，...

ASP如何判断文本框中输入的是正确的身份证号码具体的js代码和表单处...
18位身份证号检测生日那几位是否日期，通过前17位计算最后的校验位是否准确。下面的函数是用VBA写的，ASP也能用吧。不知是否要相应该做些修改。用于服务器端判断，js代码的话可以根据算法自己写。Function CheckId(id As String)Dim IdLen Dim Wi, Yi, Ai(0 To 17)Dim s, Y, cIdLen = Len(...

asp中的form中,select下拉菜单,如何传递2个值?
有两种解决方式：1、修改option的值 <option value="<%=rs("prod_type")%>|<%=rs("prod_name")%>"><%=rs("prod_name")%> 这样的话，就可以接收到如下的数据 XXX|YYYY ，这时，楼主只要将接收的数据分割一下就行了前面的就是你的prod_type，后面的是prod_name 2、既然你的prod_type...

在一个表单中如何实现填写两项,第三项直接得到结果,用ASP实现
用js就可以实现在第一项和第二项都加入onchange事件，两项任何一个改变第三项都会改变建议给点分，然后贴出具体代码出来

ASP中填写表单时怎么判断是否为空或者输入格式错误等并提示
提交页面就是填表单的页面，验证多数有分两种 1.填写或提交时使用js的onsubmit()方法触发javascript验证内容 2.填写或提交时使用ajax方法触发asp验证页最简单莫过于用js，举个例子：表单里有个输入框的name="username"，我们来验证它是否为空 1.先在表单里面加上onsubmit事件，如onsubmit(return checkF...

asp中如何判断表单内容不能为空?
第一步：把这段代码贴入你的页面 function CheckForm(){ if (document.form1.name.value.length == 0) { alert("用户名没有填写！");document.form1.name.focus();return false;} return true;} 第二步：设置下提交按钮其他的判断你还可以用同样的方法添加，OK测试下看看。

ASP中同一个表单中两个按钮,怎么分别传输数据?
用js来控制action function sm(f, k){ f.action = k ? "a.asp" : "b.asp"; \/\/根据函数传递的第二个参数判断提交的目标地址 f.submit();}

...实现表单中两个值(字符)相加以后通过post 递交到一个asp页面的...
弄个隐藏域c就可以了 function CheckForm(){ \/\/你的代码，在submit（）之前添加下面的 document.getElementById('').value = document.getElementById('a1').value + document.getElementById('a1').value;}

相似回答

大家正在搜