indexleme yöntemi kodları - basit anlaşılır -

0 1 2 3 4 5 6 7 8 9 A B C D E F G H I J K L M N O P R Q S T U V Y Z X W
gibi ilgili harfin üzerine tıklandığında o harfin karşılığı gelen ürünleri listeletmek isteyebilirsiniz. Benim inceleme fırsatı bulduklarım oldukça karışık ve kod yığını idi. Bende oturdum ve 3 dakika içinde bu scripti çıkardım
Kolay ve anlaşılabilir kısa ve öz olmasına özen gösterdim. Scripti inceleyerek işleyisi anlayabilirsiniz.
Kod yapısı.
-----------------------------------------------------
<!--#include file="baglantim.asp"-->
<%
Karakterler = "0123456789ABCDEFGHIJKLMNOPRQSTUVYZXW"
uzunluk=Len(Karakterler)
SET URUNGETIR= bag.EXECUTE("SELECT * FROM TBLURUNLER")
%>
<p align="center">İNDEXLEME YÖNTEMİ<br>
UZUN UZADIYA KOD YAZMAYA GEREK YOK. YADA KARIŞIK SQL SORGULAMALARINA VE KARIŞIK
DÖNGÜLERE</p>
<div align="center">
<table border="1" style="border-collapse: collapse" width="79%" bordercolor="#808080" id="table1">
<tr>
<td colspan="2"> <p align="center"><%for k=1 to uzunluk%><%response.write "<font face=verdana size=2><a href=default.asp?harf=" &mid(Karakterler,k,1) &" >" & mid(Karakterler,k,1) & " </a></font>" %> <%next%>
</td>
</tr>
<tr>
<td width="48%">Ürün Adı</td>
<td width="52%">Fiyatı</td>
</tr>
<%
KS=0
do while not URUNGETIR.eof
if (Request.Querystring("harf") = mid(URUNGETIR.fields("URUNADI").value,1,1)) OR (Request.Querystring("harf") = UCASE(mid(URUNGETIR.fields("URUNADI").value,1,1))) then
KS=KS+1
%>
<tr>
<td width="48%"><%=URUNGETIR("URUNADI")%></td>
<td width="52%"><%=FORMATNUMBER(URUNGETIR.FIELDS("FIYA TI").VALUE,2)%></td>
</tr>
<%
end if
URUNGETIR.movenext
loop
URUNGETIR.close
set URUNGETIR = nothing
%>
</table>
<p><%=Request.Querystring("harf")%> ile başlayan <%=KS%> kayıt bulundu.</div>
<p align="center"><a href="http://www.tuncsoft.com">TuncSoft Bilişim Hizmetleri</a></p>
<div align="center">
<form method="post" action="default.asp?olay=yeni">
<table border="1" style="border-collapse: collapse" width="50%" bordercolor="#808080" id="table2">
<tr>
<td colspan="2">
<p align="center">Yeni Ürün Ekle</td>
</tr>
<tr>
<td width="30%">Ürün adı</td>
<td width="69%"><input type="text" name="ad" ></td>
</tr>
<tr>
<td>Ürün Fiyatı</td>
<td><input type="text" name="fiyat"></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="sub" value="Kaydet"></td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
if Request.Querystring("olay")="yeni" then
if not isnumeric(Request.Form("fiyat")) then
response.write "<center> Fiyat alanı sadece numeric değer olabilir </center>"
elseif Request.Form("ad") ="" then
response.write "<center> Ürün adı alanına değer giriniz </center>"
else
YENIURUN = "Insert Into TBLURUNLER(URUNADI,FIYATI) values ('"&Request.Form("ad")&"',"&Request.Form("fiyat")& ")"
bag.Execute(YENIURUN)
bag.close
response.write "<center> Yeni Ürün Eklendi </center>"
end if
end if
%>

--------------------------------------------
test adresi. https://www.tuncsoft.com/urunler/default.asp
--------------------------------------------
dosya adresi. https://www.tuncsoft.com/urunler/urunler.rar

gerçekten güzel olmus mantıklı bir proje bu arada test adresinde gördüklerim için gerçekten üzüldüm işte böyle yarım akıllı arkadaslarda var

ben buna benzerini tag olarak yaptım . asp da başlıkları her boşluktan sonra böldüm. sonra mesela ;
indexleme yöntemi kodları - basit anlaşılır -
bunların herbirine ayrı link verdim sonra db de eğer onların geçtiği bi cümle varsa çıkarttım

örnek olarak al senin scriptini veriyim
TuncSoft Ürün İndexleme Yöntemi (tr) en altta tag olarak yaptım.

Teşekkür ederim.