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

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

 我来答

3个回答

#热议# 在购买新能源车时，要注意哪些？

arvy_momo
2012-04-03 · TA获得超过2350个赞

知道大有可为答主

回答量：1552

采纳率：50%

帮助的人：988万

我也去答题访问个人页

关注

展开全部

下面的代码是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
%>

已赞过 已踩过<

评论收起

云算数据
2024-11-20 广告

云算数据总部位于深圳。作为一家基于数据智能技术的全方位数据处理服务提供商，公司专注于利用API(数据接口)和数据BI(数据智能)技术向客户提供涵盖多个领域、多种场景的标准化API技术服务。同时，云算数据还提供集成API治理、数据治理以及相关... 点击进入详情页

本回答由云算数据提供

狐美美美
2012-04-07 · 超过10用户采纳过TA的回答

知道答主

回答量：28

采纳率：0%

帮助的人：32.6万

我也去答题访问个人页

关注

展开全部

<%
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&_ 
	"//Power by xiaotian 2002"&vbCrlf&_ 
	"function checkSubmit()"&vbCrlf&_ 
	"{"&vbCrlf&_ 
	"var emailReg = /^[_a-z0-9]+@([_a-z0-9]+\.)+[a-z0-9]{2,3}$/;"&vbCrlf&_ 
	"var pwdReg = /[a-z0-9]$/;"&vbCrlf&_ 
	strShow&_ 
	"else"&vbCrlf&_ 
	"return true;"&vbCrlf&_ 
	"}"&vbCrlf&_ 
	"//-->"&vbCrlf&_ 
	"</script>" 
	Response.Write strShow 
End Sub 
%>


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

一九四三007
2012-03-30

知道答主

回答量：20

采纳率：0%

帮助的人：8.2万

我也去答题访问个人页

关注

展开全部

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

更多追问追答

追问

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

追答

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

已赞过 已踩过<

评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

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

其他类似问题

为你推荐：