Uyarı ASP Hazır kodlar

Katılım
24 Ara 2020
Mesajlar
7
Beğeniler
0
Puanları
1
Ad Soyad
Meslek
Yaş
Selam Sayfayı her yenilediğinizde farklı resim görüntülemek istiyorsanız..

HTML:
<%
Randomize
Resim = INT(Rnd * 5)+1
Response.write "<img src=klasor/"&Resim&".jpg>"
%>
Merhaba,
bu bölüm ASP bölümü olsun o zaman buda Uzun kelimeleri ayırmak için

Kod:
Dim GELEN_KELIME, AYR_KELIME
GELEN_KELIME ="MerhaBA ÇOKKKKKKMMMMMMLLMMMMMMMLÝLEMUKEÝAMLYUÝ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) %>
 
erotik film izle hdd dolum çaycuma satılık daire
Üst