0
Kayıt Ol

Asp'de küçük bir soru

1

●

438

  • 06-04-2013, 16:57:43
    #1
    JasepH
    JasepH
    Aşağıdaki fonksiyon ile makale içerisinde bin karakterden sonraki ilk noktadan kesmeyi başardım. Ben bu bin karakterden sonraki noktadan kesildiği yere reklam kodu koymak ve sonra kaldığı yerden makalenin aynen devam etmek istiyorum


    Kod: 

    <%
if len(GelSayfaDetay)>1000 Then 
IlkBinKarakter = mid(GelSayfaDetay,1000,len(GelSayfaDetay))
NoktayiBUL = inStr(IlkBinKarakter,".")
IlkParagraf = Left(GelSayfaDetay,1000+NoktayiBUL)
  Response.Write(IlkParagraf & " <br>REKLAM KODU")
else
 Response.Write GelSayfaDetay
end if
%>
  • 06-04-2013, 18:16:51
    #2
    moss218
    moss218
    Alıntı
    <%
    if len(GelSayfaDetay)>1000 Then
    IlkBinKarakter = mid(GelSayfaDetay,1000,len(GelSayfaDetay))
    NoktayiBUL = inStr(IlkBinKarakter,".")
    IlkParagraf = Left(GelSayfaDetay,1000+NoktayiBUL)
    Response.Write(IlkParagraf & " <br>REKLAM KODU<br>" & Mid(GelSayfaDetay,1000+NoktayiBUL,Len(GelSayfaDeta y)))
    else
    Response.Write GelSayfaDetay
    end if
    %>
    şeklinde dener misiniz?