ASP Hazır kodlar

[Mr.Senatore]

Sayfayı her yenilediğinizde farklı resim görüntülemek istiyorsanız :

Kod:
<% Randomize Resim = INT(Rnd * 5)+1 Response.write "<img src=klasor/"&Resim&".jpg>" %>

 

[Mr.Senatore]

Merhaba,
bu bölüm ASP bölümü olsun o zaman buda Uzun kelimeleri ayırmak için

Alıntı:
Dim GELEN_KELIME, AYR_KELIME
GELEN_KELIME ="MerhaBA ÇOKKKKKKMMMMMMLLMMMMMMMLÝLEMUKEÝAMLY UÝEKAYUMLÝEAK"
AYR_KELIME = 15

Function METINBOL(GELEN)
MARRAY = SPLIT(GELEN, " ") : TOPKELIME = UBound(MARRAY,1)
For I = 0 To TOPKELIME
KUZUN = Len(MARRAY(I))
If KUZUN > AYR_KELIME Then
BAS = 1 : BIT = AYR_KELIME
For J = 1 To (KUZUN/AYR_KELIME)+1
RESPONSE.Write MID(MARRAY(I),BAS,BIT) & " "
BAS = BAS + AYR_KELIME : If BIT + AYR_KELIME < AYR_KELIME Then BIT = BIT + AYR_KELIME Else BIT = AYR_KELIME
Next
Else
RESPONSE.Write MARRAY(I) & " "
End If
Next
End Function





Kullanımı:

Code:

<% METINBOL(GELEN_KELIME) %>

 

[Mr.Senatore]

Kelimelerin baş harflerini büyüt


Kod:
<%Function Proper(X)'Return a String With the first letter of the word capitalisedIf IsNull(X) ThenExit FunctionElselowercaseSTR = 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 ThennewString = newString & UCase(MyArray(IntI)) & " "ElseIf I=1 ThennewString = newString & UCase(Mid(MyArray(IntI), I, 1))ElseIf I = Len(MyArray(IntI)) ThennewString = newString & Mid(MyArray(IntI), I, 1) & " "ElsenewString = newString & Mid(MyArray(IntI), I, 1)End IfNextNext 'IntIProper = Trim(newString)End IfEnd Function%>