function isDigit(evt)
{
var charCode = (evt.which) ? evt.which : event.keyCode
if (charCode > 47 && charCode < 58)
{
return true;
}
else
{
return false;
}
}asp:textbox id="TextBox1" onkeyup="return isDigit(event)" runat="server" width="238px"
function CheckLength(obj,Length)
{
if (obj.value.length>Length)
{
alert("Exceeding Maximum " + Length +" Characters")
obj.focus()
obj.select()
}
} asp:textbox id="TextBox1" onkeyup="CheckLength(this,5)" runat="server" width="238px"
function Validatenumber(obj)
{
if (obj.length !=0)
{
var text = /^[-0-9]+$/;
if ((document.getElementById(obj.id).value != "") && (!text.test(document.getElementById(obj.id).value)))
{
alert("Please enter numeric values only");
obj.focus();
obj.select();
}
}
}
function ValidateYear(obj)
{
if (obj.length !=0)
{
var text = /^[0-9]+$/;
if ((document.getElementById(obj.id).value != "") && (!text.test(document.getElementById(obj.id).value)))
{
alert("Please Enter Numeric Values Only");
obj.focus();
obj.select();
}
if (document.getElementById(obj.id).value.length>4)
{
alert("Year is not proper. Please check");
obj.focus();
obj.select();
}
}
}
function reverseStr(str)
{
if (!str) return; // nothing to change
var rstr = '';
for (i=str.length-1;i>=0;i--)
{
rstr += str.charAt(i);
}
return rstr;
}
ChkDecimalNumbers(txtNo,e,2,3)
Shared Sub ChkDecimalNumbers(ByVal ctxt As TextBox, ByVal x As System.Windows.Forms.KeyPressEventArgs, ByVal bfrDec As Int16, ByVal aftDec As Int16)
If (Char.IsControl(x.KeyChar) Or Char.IsDigit(x.KeyChar) = True) Or x.KeyChar = "." Or Asc(x.KeyChar) = 8 Then
If ctxt.Text.IndexOf(".") <> -1 Then
If x.KeyChar = "." Then
x.Handled = True
End If
If ctxt.SelectionStart >= 0 And Asc(x.KeyChar) <> 8 Then
If (((Mid(ctxt.Text, ctxt.Text.IndexOf(".") + 1).Length > aftDec And ctxt.SelectionStart > ctxt.Text.IndexOf(".")) Or (Mid(ctxt.Text, 1, ctxt.Text.IndexOf(".") + 1).Length > bfrDec And ctxt.SelectionStart < selectionlength = 0))) Then
x.Handled = True
End If
End If
Else
If (aftDec = 0 And x.KeyChar = ".") Or (((Mid(ctxt.Text, 1).Length > bfrDec - 1 And x.KeyChar <> "." And Asc(x.KeyChar) <> 8) Or (ctxt.SelectionStart > bfrDec And x.KeyChar.ToString.Equals("."))) And ctxt.SelectionLength = 0) Then
x.Handled = True
End If
End If
Else
x.Handled = True
End If
End Sub
Shared Function ChkBlank(ByVal CTxt As TextBox, ByVal CTxtNam As String) As Boolean If Len(CTxt.Text.Trim()) > 0 Then CTxt.Text = UCase(CTxt.Text) Return True Else MessageBox.Show(CTxtNam & " Can Not Be Blank", "Notification", MessageBoxButtons.OK, MessageBoxIcon.Warning) CTxt.Focus() Return False End If End Function
Public Function fnDetectBrowserCapabilities() As Boolean Try Dim strBrowser As String = String.Empty Dim intVersion As Int16 = 0 Dim boolFrames As Boolean = False Dim boolTables As Boolean = False Dim boolCookies As Boolean = False Dim boolActiveX As Boolean = False Dim decJavaScript As Decimal = 0.0 strBrowser = HttpContext.Current.Request.Browser.Browser intVersion = HttpContext.Current.Request.Browser.MajorVersion boolFrames = HttpContext.Current.Request.Browser.Frames boolTables = HttpContext.Current.Request.Browser.Tables boolCookies = HttpContext.Current.Request.Browser.Cookies decJavaScript = CDec(HttpContext.Current.Request.Browser.EcmaScriptVersion.ToString) boolActiveX = HttpContext.Current.Request.Browser.ActiveXControls If strBrowser = "IE" AndAlso intVersion < 6 Then Return False ElseIf strBrowser = "Firefox" AndAlso intVersion < 2 Then Return False ElseIf boolFrames = False Then Return False ElseIf boolTables = False Then Return False ElseIf boolCookies = False Then Return False ElseIf decJavaScript < 1 Then Return False ElseIf strBrowser = "IE" AndAlso boolActiveX = False Then Return False Else Return True End If Catch ex As Exception Return False End Try End Function
Public Function GetRandomPasswordUsingGUID1(ByVal length As Double) As String
Dim guidResult As String = System.Guid.NewGuid.ToString
guidResult = guidResult.Replace("-", String.Empty) 'Use to Remove "-" from Random Passward
If length <= 0 OrElse length > guidResult.Length Then
Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
End If
Return guidResult.Substring(0, length)
End Function
Public Function GetRandomPasswordUsingGUID(ByVal length As Double) As String
Dim guidResult As String = System.Guid.NewGuid.ToString
If length <= 0 OrElse length > guidResult.Length Then
Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
End If
Return guidResult.Substring(0, length)
End Function