Bilgisayar Bölümü ASP Kod ve Script Arşivi


Yazılan sayıyı para formatına dönüştürür

<%@ Language=VBScript %>
<%If Request.QueryString (""dolu"")=1 Then
Response.Write Request.Form (""test"")
End If
%>
<html>

<HEAD>

<SCRIPT LANGUAGE=""JavaScript"">
Function currencyFormat(fld, milSep, decSep, e) {
var sep = 0;
var key = '';
var i = j = 0;
var Len = len2 = 0;
var strCheck = '0123456789';
var aux = aux2 = '';
var whichCode = (window.Event) ? e.which : e.keyCode;
If (whichCode == 13) Return True; // Enter
key = String.fromCharCode(whichCode); // Get key value from key code
If (strCheck.indexOf(key) == -1) Return False; // Not a valid key
Len = fld.value.length;
For(i = 0; i < Len; i++)
If ((fld.value.charAt(i) != '0') && (fld.value.charAt(i) != decSep)) break;
aux = '';
For(; i < Len; i++)
If (strCheck.indexOf(fld.value.charAt(i))!=-1) aux += fld.value.charAt(i);
aux += key;
Len = aux.length;
If (Len == 0) fld.value = '';
If (Len == 1) fld.value = '0'+ decSep + '0' + aux;
If (Len == 2) fld.value = '0'+ decSep + aux;
If (Len > 2) {
aux2 = '';
For (j = 0, i = Len - 3; i >= 0; i--) {
If (j == 3) {
aux2 += milSep;
j = 0;
}
aux2 += aux.charAt(i);
j++;
}
fld.value = '';
len2 = aux2.length;
For (i = len2 - 1; i >= 0; i--)
fld.value += aux2.charAt(i);
fld.value += decSep + aux.substr(Len - 2, Len);
}
Return False;
}
// End -->
</script>

</HEAD>

<BODY>
<FORM action=""autocurrency.asp?dolu=1"" method=POST id=form1 name=form1>
Enter Value:
<Input Type=Text name=""test"" onKeyPress=""Return(currencyFormat(this,',','.',Event))"">
<Input Type=""submit"" value=""Submit"" id=submit1 name=submit1>
</FORM>
</body>
</html>
"

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2023 Bilgisayarbolumu.com