| |||
Respuesta: lo contrario de isnumeric() ¿isstring? Pues yo te aconsejo que uses una validacion con expresiones regulares, yo hice esto, mira si te sirve: Dim objRegExp Set objRegExp = CreateObject("VBScript.RegExp") Dim reg Function IsType(ByVal dato, ByVal tipo) If tipo="entero" Then reg="^[0-9]*$" ElseIf tipo="cadenaSinEspacios" Then reg="^[a-zA-Z]*$" ElseIf tipo="cadenaConEspacios" Then reg="^[a-zA-Z\s]*$" ElseIf tipo="fecha" Then reg="^([0][1-9]|[12][0-9]|3[01])(/|-)(0[1-9]|1[012])\2(\d{4})$" ElseIf tipo="decimal" Then reg="^\d+\.?\d+$" ElseIf tipo="email" Then reg="^[\w-\.]{3,}@([\w-]{2,}\.)*([\w-]{2,}\.)[\w-]{2,4}$" End If objRegExp.Pattern=reg IsType=objRegExp.Test(dato) End Function |
| |||
![]() ![]() Tal vez puedas provar con esta función: <script language="javascript" type="text/javascript" > var strExplorador; strExplorador = navigator.appName; function validaNum(evento) { var Tecla; var bolReg=false; if (strExplorador.indexOf("Explorer",0) != -1) { Tecla = evento.keyCode; } else { Tecla=evento.which; } if (((Tecla > 47) && (Tecla < 58)) || (Tecla == 13)){ bolReg=true; } if (strExplorador.indexOf("Explorer",0) != -1) { if (!bolReg) { evento.keyCode = ""; alert("Sólo puedes introducir números"); } } return bolReg; } </script> Aqui la mandas llamar en un textBox :D <input type="text" name="txtIDa" style="size:25px" maxlength="50" onkeypress="validaNum(event);" value="<%=varID%>" /> En la función solo tendrias que cambiar en esta padre } if (((Tecla > 47) && (Tecla < 58)) || (Tecla == 13)){ bolReg=true; } Alli pondras los caracteres que quieres que se acepten En este caso solo acepta numeros y la tecla de enter Esta en base a codigo ASCII Espero que te sirva EXITO :B |