ASP Kelimelerin Baş Harflerini Büyütmek

Kelimelerin baş harflerini büyütmek için aşağıdaki hazır kodu kullanabilirsiniz:

<% Function Proper(X) 'Return a String With the first letter of the word capitalised If IsNull(X) Then Exit Function Else lowercaseSTR = CStr(LCase(X)) OldC = " " MyArray = Split(lowercaseSTR," ") For IntI = LBound(MyArray) To UBound(MyArray) For I = 1 To Len(MyArray(IntI)) If Len(MyArray(IntI)) = 1 Then newString = newString & UCase(MyArray(IntI)) & " " ElseIf I=1 Then newString = newString & UCase(Mid(MyArray(IntI), I, 1)) ElseIf I = Len(MyArray(IntI)) Then newString = newString & Mid(MyArray(IntI), I, 1) & " " Else newString = newString & Mid(MyArray(IntI), I, 1) End If Next Next 'IntI Proper = Trim(newString) End If End Function %>

arkadaş banlanmış ama başka bir yöntem daha söylemek istiyorum, css ile text-transform:capitalize; ilede büyütülebilir..

Ouzz, konu asp...

<%
Function complex(metin)
If metin = "" Then Exit Function
Splitter = " "
If metin <> "" Then
xarr = split(metin, splitter)
For i = 0 To ubound(xarr)
xmetin = trim(xarr(i))
If xmetin <> "" then
xmetin = LCase(xmetin)
xstletter = ucase(Left(xmetin,1))
xstletter = replace(xstletter,"i","İ", 1, -1)
xmetin = right(xmetin, Len(xarr(i)) - 1)
xmetin = replace(xmetin,"İ","i", 1, -1)
xmetin = xstletter & xmetin
End If
zmetin = zmetin & " " & xmetin
Next
End If
complex = zmetin
End Function
%>
Bu fonksiyonu her projemde kullanıyorum tavsiye ederim.