MyDesign | Kod Arşivi - Anasayfaya Dön   No banner in farm
Anasayfa Araştır Forum Gelişmiş Arama Siteniz İçin En Hit İçerikler RSS İçerik Ekle Scriptler Destekleyenler Kadromuz Reklam İletişim Giriş Sayfası Yap  Sık Kullanılanlara Ekle
Bu Kategorinin En Yeni Kodları:


Bu Kategorinin En Çok Görüntülenen Kodları:






Arama:
Gelişmiş Arama


No banner in farm



En Çok Görüntülenen Kodlar:


Üye Girişi:
 Üye Ol



Anasayfa > Asp > Kodlar

Http:// ile başlayan yazıların link olması

Yazılarınızda http:// ile başlayan kısımların otomatik olarak link olmasını sağlayan fonksiyon.

Kategori : Asp
Gönderen : mYavuz
Telif :
Tarih : 22 Nisan 2005
Örnek Dosya : Bulunmamakta
Okunma Sayısı : 8246
Puan
: 10 / 10 (2 Oy)
Puan Verin :
Google Bookmarks  del.icio.us  Digg  Yahoo! MyWeb  Windows Live  Furl
 
 
Function Linkle(strInput)
     Dim  iCurrentLocation  string
     Dim  iLinkStart       
     Dim  iLinkEnd          
     Dim  strLinkText       
     Dim  strOutput       

    iCurrentLocation = 1

     Do  While  InStr(iCurrentLocation, strInput, "http://", 1) <> 0
        iLinkStart =  InStr(iCurrentLocation, strInput, "http://", 1)
        
        iLinkEnd =  InStr(iLinkStart, strInput, " ", 1)
        
         If  iLinkEnd = 0  Then  iLinkEnd =  Len(strInput) + 1

         Select  Case  Mid(strInput, iLinkEnd - 1, 1)
             Case  ".", "!", "?"
                iLinkEnd = iLinkEnd - 1
         End  Select
        
        strOutput = strOutput &  Mid(strInput, iCurrentLocation, iLinkStart - iCurrentLocation)

        strLinkText =  Mid(strInput, iLinkStart, iLinkEnd - iLinkStart)
        
        strOutput = strOutput & "<A HREF=""" & strLinkText & """ target=""_blank"">" & strLinkText & "</A>"

        'Response.Write iLinkStart & "," & iLinkEnd & "<BR>" & vbCrLf
        
        iCurrentLocation = iLinkEnd
     Loop
    
    strOutput = strOutput &  Mid(strInput, iCurrentLocation)
    
    linkle = strOutput
End  Function
%>

Örneğin veritabanında bulunan bir yazıyı 
<%=Linkle(kayizdizesi("yazi"))%>
ile otomatik olarak link yapabilirsiniz.
 
 

Http:// ile başlayan yazıların link olması için yazılan yorumlar

Henüz yorum eklenmedi.

Yorum ekleyin

Anasayfa > Asp > Kodlar > Http:// ile başlayan yazıların link olması
Kategoriler:


Forum:



Bağlantılar:


En Son Yorumlanan İçerikler:


Murat Yavuz | Site Haritası | Gizlilik Bildirimi | 54.227.48.147 | 0,11 Saniye
© Copyright 2004-2018 MyDesign | Kod Arşivi. Tüm Hakları Saklıdır.
MyDesign | Kod Arşivi, en iyi görünüm için, 1024x768 ve üzeri çözünürlük tavsiye eder.