Merhabalar;

Uzun süre sonra buraya konu açabilmek, sizlerin cevaplarını beklemek çok hoş. Bizi kavuşturanlara teşekkürlerimi sunuyorum

Hemen soruma geçiyorum;

Bitmeyenkartus.com.tr sitesindeki ürünlerin xml ile çıktısını almaktayım.Aldığım bu çıktıda yer alan ürünleri web sayfama çekmek istiyorum, aslında direk çekebiliyorum ama tek sayfada 10.000 ürün oldumu sayfa çok kasıyor

1- Çektiğim bu ürünleri sayfalayabilirmiyim?
2- Ürünleri kategori kategori sıralayabilirmiyim?
3- Ürüne tıkladığımda detay sayfasında ürünü açabilirmiyim? (urun.asp?id=289374 gibi)

Şimdiden teşekkürler

Bahsettiğin bu sitedeki ürünleri kendi sitene çekmek istiyorsun yani bir nevi bot yapmak istiyorsun anladığım kadarıyla, bu bahsettiğin sayfalama, kategorileme detay işlemlerini yapmak için öncelikle bu gelen verileri veritabanına kayıt ettirmelisin ondan sonrası klasik Asp zaten.

Bahsettiğin 10.000 ürünü sayfana çektikten sonra yazdırma işlemi yerine o bilgileri veritabanına kayıt ettirirsen sanırım sorunun çözülür

peki bu veritabanına kaydı nasıl yaparım?

Aşağıda kayıt bölümünü yazıyorum bu kayıt bölümünü xml belgesinden çektiğin verileri yazdırdığın sayfanda yazdırma komutu yerine kullan. ( bu yapacağın sayfayı farklı bir sayfa olarak oluştur ki bu sadece bot olarak işlev görüp veritabanına kayıt işlemi için işe yarayacaktır. )


##Veritabanı bağlantını yap##

set rs = server.CreateObject("adodb.recordset")
Sql = "select * from tablon"
rs.open Sql, bag, 1,3

Set isaret = objXML.selectNodes("//alanadı")
For d = 0 to (isaret.Length - 1)
rs.AddNew
rs("alanadın") = isaret(d).GetAttribute("cekilenalan")
rs.update
Next

rs.close : set rs = nothing
bag.close : set bag = nothing

Response.Write "kayıt tamam"

Ferhat bahsettiğin şekilde yaptım, hatta ilk etapta sadece xmlde yer alan "stockCode olanı kaydediyorum...

set isaretin oldugu 15. satırda hata alıyorum;

Object required: ``




Set baglan = Server.CreateObject("adodb.connection")
baglan.open "Provider=Microsoft.Jet.Oledb.4.0;data source=" &Server.MapPath("dbm.mdb")

set rs = server.CreateObject("adodb.recordset")
Sql = "select * from kartus"
rs.open Sql, baglan, 1,3

Set isaret = objXML.selectNodes("http://www.bitmeyenkartus.com.tr/index.php?do=catalog/output&pCode=8905167878")
For d = 0 to (isaret.Length - 1)
rs.AddNew
rs("stockCode") = isaret(d).GetAttribute("stockCode")
rs.update
Next

rs.close : set rs = nothing
baglan.close : set baglan= nothing

Response.Write "kayıt tamam"

kodlamada belirttiğim alan adı web adresi değil Tcay xml verisindeki veri çekmek istediğin bölümün adı yani düğüm diye geçer.

<stockcode>

gibi.

Peki xml linkini nereye koyacağım o zaman?

sen xml verilerini çektiğin kodlarda herhangi bir değişiklik yapma, 10.000 bilgiyi sayfama çekip yazdırıyorum dedin ya, yazdırdığın yerde bu bahsettiğim kodları ekle ki sayfaya değil veri tabanına kayıt olsun

xml ile ilk defa çektiğim için neyi nereye gideceği konusunda bi bilgim yok;

xml çekme kodum ise;

Dim rssOku
Dim ObjeListesi
Dim Obje
Dim I

Set rssOku = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
rssOku.async = False

rssOku.setProperty "ServerHTTPRequest", True
rssOku.Load("http://www.bitmeyenkartus.com.tr/index.php?do=catalog/output&pCode=8905167878")

Set ObjeListesi = rssOku.getElementsByTagName("item")
Set rssOku = Nothing

For Each Obje In ObjeListesi
%>
<%=Obje.childNodes(6).Text%><br><br>
<%
Next

Set ObjeListesi = Nothing

şöyle bir örnek yaptım bi dene istersen

<%
URL = "http://www.bitmeyenkartus.com.tr/index.php?do=catalog/output&pCode=8905167878"

Set objXML = CreateObject("MSXML.DOMDocument" )
objXML.async = False
objXML.setProperty "ServerHTTPRequest", true
objXML.load(URL )

Set baglan = Server.CreateObject("adodb.connection")
baglan.open "Provider=Microsoft.Jet.Oledb.4.0;data source=" &Server.MapPath("dbm.mdb")

set rs = server.CreateObject("adodb.recordset")
Sql = "select * from kartus"
rs.open Sql, baglan, 1,3

Set sec = objXML.selectNodes("//root" )

For i = 0 to (sec.Length - 1 )

rs.AddNew
rs("stockCode")=sec(i).GetAttribute("stockCode")
rs.update
Next
Response.Write ("Kayıt edildi." )
%>

kayıt edildi sayfasını alıyorum, sanırım kaydı gerçekleştiriyor ama bir sorunda çıkmıyor...

Access veritabanını bilgisayara indiriyorm, tabloyu açarken hata alıyorum, sanırsam veritabanını bozuyor aynı anda 500 veri ekleyince... Mysqlde deneyim

aynı anda çoklu kayıt girmek veri tabanını ister istemez yorar, bot sayfasını her çalıştırdığında kayıtları 20şer 20şer falan eklettir bence daha sağlıklı olur

bot sayfasını zaten haftada 1 kez çalıştırıcam zaten o yüzden pek sıkıntı olmaz...

Mysql veritabanına yükleyeceğim ama

rs("stockCode")=sec(i).GetAttribute("stockCode")

şu satırı insert intoda nasıl yazdıracağım?

yani kayıt satırım nasıl olmalı?

mysql veritabanına kayıt ekletirken de yukarıdaki şekliyle kullanabilirsin Insert Into şart değil,

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

diye bir hata aldım

- Kayıt edeceğin verilerin uzunluğu fazlaysa alan türünü text olarak belirle
- Kayıt ettiğin alan adlarını (Büyük küçük harfler dahil ) tekrar gözden geçir aynı olduğundan emin ol
- Veritabanı bağlantını yaparken farklı bir bağlantı kodu dene

bu 3 adımı teker teker denermisin

Sponsor Bağlantı