http://www.hakansen.com/Kod/url-yapma-fonksiyonu.txt

http://www.hakansen.com/Kod/video.function.txt

Function videogoster(ByVal strMesaj)



     '// Değişken boşsa fonksiyondan çıkılıyor

     If strMesaj= "" Then Exit Function



     '// Mesajda [vidyo] komutu  ile video gösterimi hazirlama

     Do While InStr(strMesaj, "[vidyo]") > 0  AND InStr(strMesaj, "[/vidyo]") > 0



     DeyimBaslangici = InStr(strMesaj, "[vidyo]")

     DeyimSonu = InStr(DeyimBaslangici, strMesaj, "[/vidyo]") + 8          

     If DeyimSonu < DeyimBaslangici Then DeyimSonu = DeyimBaslangici + 7

     strLink = Trim(Mid(strMesaj, DeyimBaslangici, (DeyimSonu - DeyimBaslangici)))

     strGeciciMesaj = strLink

     strGeciciMesaj = Replace(strGeciciMesaj, "[vidyo]", "", 1, -1, 1)

                     strGeciciMesaj = Replace(strGeciciMesaj, "watch?v=", "v/", 1, -1, 1) 

     strGeciciMesaj = Replace(strGeciciMesaj, "[/vidyo]", "", 1, -1, 1)     

     strGeciciMesaj = "<span class=""video""><object width=""425"" height=""350""><param name=""movie"" Value="""& strGeciciMesaj &"""></param><param name=""wmode"" Value=""transparent""></param><embed src="""& strGeciciMesaj &""" type=""Application/x-shockwave-flash"" wmode=""transparent"" width=""425"" height=""350""></embed></object></span>"

     strMesaj = Replace(strMesaj, strLink, strGeciciMesaj, 1, -1, 1)

     Loop



     MesajFormatla = strMesaj



End Function

[vidyo]http://www.youtube.com/watch?v=aAueNbUp8d0[/vidyo]

<%=videogoster(rs("veri"))%>

<% 

' yazan : Hakan Şen

' mail : hakan@sen.com.tr

' web : www.hakansen.com



Function parcala(gelen,shf) 

If not InStr(gelen,"|kes|") = 0 Then 

Dim bolunen,k 

bolunen = Split(gelen,"|kes|",-1,1) 

b = shf - 1 

parcala = bolunen(b) 

Else 

parcala = gelen 

End If 

End Function 



Function say(gelen) 

If not InStr(gelen,"|kes|") = 0 Then 

Dim bolunen 

bolunen = Split(gelen,"|kes|",-1,1) 

For i=1 To UBound(bolunen) 

Response.Write " <a href='"&Request.ServerVariables("SCRIPT_NAME")&"?shf="&i&"'>"&i&"</a> " 

Next 

End If 

End Function 

%> 



Kullanımı : 



<% ' verimizi belirliyoruz |kes| ile kesilecek yerleri belirliyoruz. 



veri = "Başkanımız Aziz Yıldırım Avrupa’da sadece |kes| 12 statta bulunan ısıtma sistemini, |kes| Fenerbahçe Şükrü Saraçoğlu’na kazandırarak Türkiye’de bir ilke daha imza attı. Bu konuda çalışmalara başlanarak önce şeref tribünü, Fenerium ve maraton tribünlerine 450 adet |kes| ısıtma sistemi monte edildi. Ardından Telsim ve Migros |kes| tribünlerine de daha farklı ısıtma cihazları takılarak ligin 2. yarısında taraftarların hizmetine girecek. Bu sayede stadımızdaki sıcaklık en az 10 derece artarak soğuk kış aylarında oynanan maçlarda gelen başarılarla da bahar havası yaşanacak. " 



shf = Request.QueryString("shf") ' ile gelen sayfayı alalım 

If shf = "" OR shf = 0 Then shf = 1 'eğer belirilmemiş veya sıfır ise 1 olarak atayalım 



Response.Write parcala(veri,shf) 'burada gelen sayfaya göre iki parca arasını alıyoruz. 



Response.Write "<br>" ' bir satır boşluk verelim ) 



Response.Write say(veri) ' makaleyi sayfalayalım. 





%>

<%

Function complex(metin)

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))

               '// You can add here your language characters

               xstletter = Replace(xstletter,"i","İ", 1, -1) 'Y

          xmetin = Right(xmetin, Len(xarr(i)) - 1)

               '// You can add here your language characters

               xmetin = Replace(xmetin,"İ","i", 1, -1) 'Y

          xmetin = xstletter & xmetin

     End If

          zmetin = zmetin & " " & xmetin

     Next

End If

complex = zmetin

End Function

%>

<%=complex("heLLo")%>