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