用ASP的方法动态写出JavaScript的表单验证的函数checkSubmit()

'8:必须为a-z或0-9或A-Z的字符Text类型

'9:必须大于指定位数的Text类型

'-----------------------------------------------------------------------------

%>

<%

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&_

         "//Powered by dovia.net"&vbCrlf&_

         "function checkSubmit()"&vbCrlf&_