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

         "{"&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

Function findJS(frmName,errStr)

Dim tmpArr

Dim i

'参数值

i=0

'获取错误列表，建立数组

tmpArr=Split(errStr,"|")