
25/10/2005, 07:40
|
 | | | Fecha de Ingreso: noviembre-2004
Mensajes: 2.344
Antigüedad: 20 años, 4 meses Puntos: 8 | |
Código:
Dim Script As New System.Text.StringBuilder
Script.Append(vbCrLf & "<script language=" & Chr(34) & "javascript" & Chr(34) & ">" & vbCrLf)
Script.Append("function solonumeros(e){" & vbCrLf)
Script.Append("key = (document.all) ? e.keyCode : e.which;" & vbCrLf)
Script.Append("if (key==8) return true;" & vbCrLf)
Script.Append("patron =/\d/;" & vbCrLf)
Script.Append("te = String.fromCharCode(key);" & vbCrLf)
Script.Append("return patron.test(te);}")
Script.Append("</script>")
ME.RegisterStartupScript("SoloNumero", Script.ToString)
textbox.Attributes.Add("onkeypress", "return solonumeros(event);")
|