0
Kayıt Ol

Ä°nput Listeleme Asp

9

●

1.038

  • 14-07-2014, 16:23:42
    #1
    beyogluhosting
    beyogluhosting
    Arkadaşlar Ana Kategorim var ve bunun alt kategorisi var 2 tane. Ürün eklerken ürün karışıklığını engellemek için.

    Ana Kategori / Alt Kategori / Ürün Kategorisi seklinde seçenkleri şeçerek ve id'leri eşitleyerek bir input tablosu yapmak istiyorum. Yardımcı olursanız sevinirim.
  • 14-07-2014, 16:44:39
    #2
    Misafir
    Misafir
    Yardım tam olarak nerede lâzım, bunu anlayamadım. ID'leri eşitlemekten kastınız nedir?
  • 14-07-2014, 18:31:09
    #3
    beyogluhosting
    beyogluhosting
    Misafir adlı üyeden alıntı: mesajı görüntüle
    Yardım tam olarak nerede lâzım, bunu anlayamadım. ID'leri eşitlemekten kastınız nedir?
    Ürün sayfasuna ürün ekleyecegim mesela. Diyemeyelim Telefon.

    Samsung (Ana Kategori) / S4 (Alt Kategori) / Åžarj Aleti (Detya Kategorisi)

    İnput'tan süzme yani id eşitleme yaparak bir alt ürün gurubunu listelemek istiyorum.

    https://www.google.com/intl/en/chrome/demos/speech.html

    Yukarıdaki linkteki gibi istiyorum fakat bir alt başlık daha olmalı.
  • 14-07-2014, 19:22:06
    #4
    Misafir
    Misafir
    Bunu Ajax ile yapabilirsiniz. Dışarıdayım, müsait bir zamanda yazıp gönderebilirim çalışan örneği isterseniz.
  • 14-07-2014, 23:57:37
    #5
    Misafir
    Misafir
    Basit bir kategori seçici yazdım şimdi. Mantığını çözdükten sonra, kolayca sitenize uyarlayabilirsiniz.

    kategori_sec.asp
    <%
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Set Baglan = Server.CreateObject("Adodb.Connection")
	Baglan.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("/r10-yardim/vt.mdb")
	
	Set KS1 = Baglan.Execute("Select * From ana_kategori")
	Set KS2 = Baglan.Execute("Select * From alt_kategori Where ana_kat_id=1")
	Set KS3 = Baglan.Execute("Select * From son_kategori Where ana_kat_id=1")
%>
<!DOCTYPE html>
<html lang="tr">
<head>
<meta charset="utf-8" />
<script>
function showHint(str, islem)
{
if (str.length==0)
  { 
  document.getElementById("txtHint").innerHTML="";
  return;
  }
if (window.XMLHttpRequest)
  {// code for IE7+, Firefox, Chrome, Opera, Safari
  xmlhttp=new XMLHttpRequest();
  }
else
  {// code for IE6, IE5
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  }
xmlhttp.onreadystatechange=function()
  {
  if(islem==1){
	  if (xmlhttp.readyState==4 && xmlhttp.status==200)
		{
		document.getElementById("alt_kategori").innerHTML=xmlhttp.responseText;
		}
  }
  if(islem==2){
	  if (xmlhttp.readyState==4 && xmlhttp.status==200)
		{
		document.getElementById("son_kategori").innerHTML=xmlhttp.responseText;
		}
  }
  }
xmlhttp.open("GET","Ajax.asp?"+str,true);
xmlhttp.send();
}
</script>
</head
><body>
<p><b>Lütfen ürün kategorilerini seçin</b></p>
<form> 
	<select onChange="showHint(this.value, 1)">
	<%Do Until KS1.EOF%>
		<option value="ana_kat=<%=KS1("id")%>"><%=KS1("kategori_adi")%></option>
	<%KS1.MoveNext : Loop%>
	</select>
	<select id="alt_kategori" onChange="showHint(this.value, 2)">
	<%Do Until KS2.EOF%>
		<option value="alt_kat=<%=KS2("id")%>"><%=KS2("kategori_adi")%></option>
	<%KS2.MoveNext : Loop%>
	</select>
	<select id="son_kategori">
	<%Do Until KS3.EOF%>
		<option value="son_kat=<%=KS3("id")%>"><%=KS3("kategori_adi")%></option>
	<%KS3.MoveNext : Loop%>
	</select>
</form>
</body>
</html>
    Ajax.asp
    <%
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Set Baglan = Server.CreateObject("Adodb.Connection")
	Baglan.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("/r10-yardim/vt.mdb")

		
If Request.QueryString("ana_kat") <> "" Then
	Set KS2 = Baglan.Execute("Select * From alt_kategori Where ana_kat_id=" & Request.QueryString("ana_kat"))
	Do Until KS2.EOF
		Response.Write("<option value=""alt_kat=" & KS2("id") & """>" & KS2("kategori_adi") & "</option>" & VbCrlf)
	KS2.MoveNext : Loop
ElseIf Request.QueryString("alt_kat") <> "" Then
	Set KS3 = Baglan.Execute("Select * From son_kategori Where alt_kat_id=" & Request.QueryString("alt_kat"))
	Do Until KS3.EOF
		Response.Write("<option value=""alt_kat=" & KS3("id") & """>" & KS3("kategori_adi") & "</option>" & VbCrlf)
	KS3.MoveNext : Loop
End If
%>
    Dosyaları indirmek için: Kategori-Secimi(AJAX-ASP).zip

    Her iki sayfada da veritabanı yolunu değiştirmeyi unutmayın.
    • beyogluhosting
    • CoderMaN
    beyogluhosting ve CoderMaN bunu beÄŸendi.
    2 kiÅŸi bunu beÄŸendi.
  • 15-07-2014, 11:45:50
    #6
    beyogluhosting
    beyogluhosting
    Misafir adlı üyeden alıntı: mesajı görüntüle
    Basit bir kategori seçici yazdım şimdi. Mantığını çözdükten sonra, kolayca sitenize uyarlayabilirsiniz.

    kategori_sec.asp
    <%
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Set Baglan = Server.CreateObject("Adodb.Connection")
	Baglan.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("/r10-yardim/vt.mdb")
	
	Set KS1 = Baglan.Execute("Select * From ana_kategori")
	Set KS2 = Baglan.Execute("Select * From alt_kategori Where ana_kat_id=1")
	Set KS3 = Baglan.Execute("Select * From son_kategori Where ana_kat_id=1")
%>
<!DOCTYPE html>
<html lang="tr">
<head>
<meta charset="utf-8" />
<script>
function showHint(str, islem)
{
if (str.length==0)
  { 
  document.getElementById("txtHint").innerHTML="";
  return;
  }
if (window.XMLHttpRequest)
  {// code for IE7+, Firefox, Chrome, Opera, Safari
  xmlhttp=new XMLHttpRequest();
  }
else
  {// code for IE6, IE5
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
  }
xmlhttp.onreadystatechange=function()
  {
  if(islem==1){
	  if (xmlhttp.readyState==4 && xmlhttp.status==200)
		{
		document.getElementById("alt_kategori").innerHTML=xmlhttp.responseText;
		}
  }
  if(islem==2){
	  if (xmlhttp.readyState==4 && xmlhttp.status==200)
		{
		document.getElementById("son_kategori").innerHTML=xmlhttp.responseText;
		}
  }
  }
xmlhttp.open("GET","Ajax.asp?"+str,true);
xmlhttp.send();
}
</script>
</head
><body>
<p><b>Lütfen ürün kategorilerini seçin</b></p>
<form> 
	<select onChange="showHint(this.value, 1)">
	<%Do Until KS1.EOF%>
		<option value="ana_kat=<%=KS1("id")%>"><%=KS1("kategori_adi")%></option>
	<%KS1.MoveNext : Loop%>
	</select>
	<select id="alt_kategori" onChange="showHint(this.value, 2)">
	<%Do Until KS2.EOF%>
		<option value="alt_kat=<%=KS2("id")%>"><%=KS2("kategori_adi")%></option>
	<%KS2.MoveNext : Loop%>
	</select>
	<select id="son_kategori">
	<%Do Until KS3.EOF%>
		<option value="son_kat=<%=KS3("id")%>"><%=KS3("kategori_adi")%></option>
	<%KS3.MoveNext : Loop%>
	</select>
</form>
</body>
</html>
    Ajax.asp
    <%
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Set Baglan = Server.CreateObject("Adodb.Connection")
	Baglan.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("/r10-yardim/vt.mdb")

		
If Request.QueryString("ana_kat") <> "" Then
	Set KS2 = Baglan.Execute("Select * From alt_kategori Where ana_kat_id=" & Request.QueryString("ana_kat"))
	Do Until KS2.EOF
		Response.Write("<option value=""alt_kat=" & KS2("id") & """>" & KS2("kategori_adi") & "</option>" & VbCrlf)
	KS2.MoveNext : Loop
ElseIf Request.QueryString("alt_kat") <> "" Then
	Set KS3 = Baglan.Execute("Select * From son_kategori Where alt_kat_id=" & Request.QueryString("alt_kat"))
	Do Until KS3.EOF
		Response.Write("<option value=""alt_kat=" & KS3("id") & """>" & KS3("kategori_adi") & "</option>" & VbCrlf)
	KS3.MoveNext : Loop
End If
%>
    Dosyaları indirmek için: Kategori-Secimi(AJAX-ASP).zip

    Her iki sayfada da veritabanı yolunu değiştirmeyi unutmayın.

    Üstad bilgi için teşekkürler. Ajax inputları tetiklemiyor.
  • 15-07-2014, 16:41:16
    #7
    Misafir
    Misafir
    Nasıl yani? Çalışmayan şeyi koymam buraya. Test ettikten sonra yükledim

    Muhtemelen veritabanı yolu ya da izni ile ilgili bir sıkıntıdan dolayı verileri çekemediniz. Akşam müsait olduğumda aynı dosyaları hosta atıp bağlantısını da burada paylaşacağım
    • beyogluhosting
    beyogluhosting bunu beÄŸendi.
    1 kiÅŸi bunu beÄŸendi.
  • 19-07-2014, 01:37:48
    #8
    Misafir
    Misafir
    beyogluhosting adlı üyeden alıntı: mesajı görüntüle
    Üstad bilgi için teşekkürler. Ajax inputları tetiklemiyor.
    Misafir adlı üyeden alıntı: mesajı görüntüle
    Nasıl yani? Çalışmayan şeyi koymam buraya. Test ettikten sonra yükledim

    Muhtemelen veritabanı yolu ya da izni ile ilgili bir sıkıntıdan dolayı verileri çekemediniz. Akşam müsait olduğumda aynı dosyaları hosta atıp bağlantısını da burada paylaşacağım
    Kusura bakmayın. Dosyaları hosta attım ancak buradan size yazmayı unutmuşum. İşlerim karıştı birbirine

    Hostta çalışan şekli, buyrun: Kategori Seçici
  • 20-07-2014, 23:21:08
    #9
    beyogluhosting
    beyogluhosting
    Misafir adlı üyeden alıntı: mesajı görüntüle
    Kusura bakmayın. Dosyaları hosta attım ancak buradan size yazmayı unutmuşum. İşlerim karıştı birbirine

    Hostta çalışan şekli, buyrun: Kategori Seçici
    Yardımın için teşekkürler üstad hallettim sorunu. Sıkıntı Ajax.asp deki veri tabanının yolu yanlışmış. Kendime göre uyarladım ve çalışıyor. Teşekkürler.