asp de içeriğe göre title ve meta uretmek
21
●1.818
- 23-09-2005, 16:29:56MisafirSayfada geçen kelimelere göre nasıl ayarlar bilmiyorum ama databasede kayıtlıysa, databaseden çekip title ve meta olarak yazdırabilirsin ve otomatik değişir.
- 23-09-2005, 17:56:19Misafirarkadaşlar peki şöyle birşey için kodu biliyormusunuz ( Kod olduguna eminim )
Mesela bir yazının titlesi "webmaster olmak isteyenlere ipuçları" ve baska bir yazıdada webmaster sözcügü geciyor, mesela "webmaster olmak kolaymı"
Webmaster olmak kolaymı adlı yazının altında
Bu Yazı ile ilgili olabilecek sayfalar;
- Webmaster olmak isteyenlere İpuçları"
Olarak cıkmasını saglayan kod nedir ( Asp )
Biraz uzun oldu ama
- 23-09-2005, 18:08:29Üyeliği durduruldu
<% Kelime = Title ' Bunu sen tanımlarsın. Başlıktaki tüm kelimeleri bölüp diğer başlıklarla eşleştireceğiz. ek_SQL = "" aranan = split(Kelime," ") kelimesayisi = ubound(aranan) for kelimeno = 0 to kelimesayisi ' konuların başlığını subject varsaydık. başlık içinde geçen her kelime için bir sorgu oluşturduk. ek_SQL = ek_SQL + " AND (Subject like '%" + replace(aranan(kelimeno),"'","''") + "%')" ' Tablo adını haber olarak varsaydık. SQL = "Select * from Haber Where (Onay = True) " + ek_SQL rs.Open SQL,Conn,1,3 do while not rs.Eof %> <font face="Verdana" size="1" <a href="haber_oku.asp?id=<%=rs("id")%>&name=<%=rs("Subject")%>" target="_blank"> <b><%=rs("Subject")%></b></a><br> <%=left(rs("Haber"),100)%><br> </font> <% rs.MoveNext Loop rs.close next %>Ufak tefek değişiklikler yapsanız çalışır.
Kolay gele..