sp; "{"&vbCrlf&_
"window.alert('"&tmpArr(i+2)&"');"&vbCrlf&_
"document."&frmName&"."&tmpArr(i)&".focus;"&vbCrlf&_
"return false;"&vbCrlf&_
"}"&vbCrlf&_
"}"&vbCrlf
Exit Function
End Select
End Function
%>
***********************************************************************
使用范例：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#Include file = "inc/check_formJS.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'=======================================================================================
' 表单验证实例
'=======================================================================================
'1、<!--#Include file = "inc/check_formJS.asp"-->;
'2、绘制表单：name="" onsubmit = "Javascript: return checkSubmit()" 注意大小写;
'3、定义Guo_Error //一句只能出现一个“，”如位数和确认密码项须多加“|”指定参数;
'4、Call CheckForm_js("formname,Guo_Error)
'=======================================================================================
Dim Guo_Error
Guo_Error ="text|0|文本项必须填写!,"
Guo_Error = Guo_Error & "number|0|数字项必须填写且必须为数字！,"
Guo_Error = Guo_Error & "number|2|数字项必须为数字!,"
Guo_Error = Guo_Error & "digital|3|位数项必须为６位!|6,"
Guo_Error = Guo_Error & "moredigital|4|多位项必须大于4位!|4,"
Guo_Error = Guo_Error & "email|5|Mail项必须填写Email地址!,"
Guo_Error = Guo_Error & "caractor|6|字符项必须为0-9A-Z的字符!,"
Guo_Error = Guo_Error & "password2|7|确认密码必须与密码项保持一致！|password1,"
Guo_Error = Guo_Error & "listmenu|1|必须选择!"
Guo_Error = Guo_Error & "uid|8|用户名不能以数字开头!,"
Call CheckForm_js("form1",Guo_Error)
'=======================================================================================
' 表单验证流程
'=======================================================================================
'1、通过split(Guo_Error,".")拆分至数组tempArr();
'2、通过split(tempArr,"|")拆分至数组tempArr();
'3、Select Case split(tempArr(i+1),"|")执行验证及输出错误提示信息split(tempArr(i+2));
'4、Javascript区分大小写地，所以各表单组件的名称都要注意书写一致哟~~
'=======================================================================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>表单验证实例</title>
</head>
<body>
<form name="form1" method="post" action="check_form.asp" >
<p align="center">待验证的表单</p>
*********************************************************************************
减小字体
增大字体