函数
<!--#include file="strcheck.asp"-->
<%
'笔者在写程序的过程中要用
'for i=1 to n
'Response.Write "<input type=text name=name"&n&" >"
'next
'但是在用javascript 中我不知道检验的名称，故想到了用ASP自动生成JavaScript代码来检验text
'通过过程的调用，你就可以用循环控制的form 里检验。
'---------------------------------
' Create javascript by ASP
' write by MIS in 2001,3,31
' MIS@tonghua.com.cn
' http://www.meetweb.net
'---------------------------------
'JavaScript 的开始checkhead
Call checkhead
'检查是否为空的字段 第一个参数是要检查的框的名称，第二个参数是提示错误信息
nullcheck "name1","it is null string"
nullcheck "tel","it is null string"
'检查是否为电话的字段 第一个参数是要检查的框的名称，第二个参数是提示错误信息
checktel "tel","it must be a tel !"
'检查是长度的字段检查 第一个参数是要检查的框的名称，第二个参数是提示错误信息
'第三个参数是长度最小值，第四个参数是长度的最大值
lengthcheck "changdu","it is max=8 and min=2","2","8"
'检查是EMAIL的字段检查 第一个参数是要检查的框的名称，第二个参数是提示错误信息
Emailcheck "email","it must be a Email!"
'检查是日期的字段检查 第一个参数是要检查的框的名称，第二个参数是提示错误信息
dateCheck "datestr","it is date"
nullcheck "numstr","it is null string"
'检查是否为数字的字段 第一个参数是要检查的框的名称，第二个参数是提示错误信息
numericcheck "numstr","it must be num!"
'JavaScript 的结束checktail
Call checktail
%>
<body>
<form name=form1 method=post action="index.asp" >
是否为空：<input type=text name=name1 ><br>
电话检验：<input type=text name=tel ><br>
长度检验：<input type=text name=changdu >(2--8)<br>
Email检查：<input type=text name=email><br>
日期检查：<input type=text name=datestr>(2000-10-1)<br>
数字检查：<input type=text name=numstr><br>
<input class=input type='submit' name='Submit' value='确定'>
</body>