[aspogren]

Arkadaşlar bir çok script ve kod buldum ama hepsi http://www. ile whoise çekiyor ve parkta olanları da alınmamış gösteriyor.

Sağlam ve çalışır bir sorgulama scripti olan yardımcı olabilir mi? Gerçekten çok önemli, projem var tamamladım fakat bir tek domain sorgulama bölümüm kaldı, lütfen yardımcı olun

[komplike]

"http://www." ile çekmekten kastın ne?

Whois sorgulamasında www. kullanılmaz çünkü subdomain'e bakılmaz. Direkt olarak domain.tld şeklinde sorgulama yapılır. Ayrıca muhtemelen sorununun kaynağı script değil, whois sorgulaması yaptığın sunucu. Her sunucunun kayıtları birebir ve güncel olamıyor. Senin en güncel ve hızlı whois sunucusunu bulup ona whois sorgulaması yapman gerekiyor.

http://www.google.com.tr/search?q=asp+whois

[aspogren]

komplike ben elmahost.net'in sorgulamasını sevdim bu itp bir sorgulama nasıl yapabilirim peki.

[aspogren]

buldum arkadaşlar Ferruh Mavituna, abi çok teşekkürler. Yazılarını takip ettiğim bir abimin sitesinde varmış, boşuna onca uğraşmışım meğer.

Ellerine sağlık abi çok güzel ve kolay bir şey yapmışsın.

editörün notu: url ile text ters yazılmıştı, düzeltildi.

[eKuzu]

@ aspogren galiba o script XML.HTTP ile control yapıyor ama IP-BAN yeme ihtimalin var bilgin olsun.

[aspogren]

düştük ocağa artık sürüneceğiz. daha mantıklı bir düşüncesi olan yada benzeri bir script elinde olan varsa paylaşırsa sevinirim.

[Anticapital]

ErincKuzu tarafından gönderilen mesaj:

@ aspogren galiba o script XML.HTTP ile control yapıyor ama IP-BAN yeme ihtimalin var bilgin olsun.

bu konuda biraz daha bilgi verebilir misin yanlış iş yapmasın kimse

[eKuzu]

<%
Function DomainControl(URL)
URL = Replace(URL,"http://,""")
URL = Replace(URL,"www.","")
WhoisServer = "http://www.webservicex.net/whois.asmx/GetWhoIS?HostName=" & URL
Const adTypeText = 2
Const adReadAll = -1
Set objHTTP = server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objStream = server.CreateObject("ADODB.Stream" )
objHTTP.Open "GET" , WhoisServer, false
objHTTP.Send

objStream.Open
objStream.Type = adTypeText
objStream.WriteText(objHttp.ResponseBody)
objStream.Position = 0
objStream.CharSet = "latin1"
ControlResult = objStream.ReadText(adReadAll)
objStream.Close

Set objStream = Nothing
Set objHTTP = Nothing
If instr(ControlResult,"No match for")<>0 Then
DomainControl = True
Response.Write("domain müsait")
Else
DomainControl = False
WhoisInformation = Replace(ControlResult,chr(10),"<br>")
Response.Write("domain müsait değildir")

End If

End Function

Call DomainControl("Google.com")
%>

Bir sistem için yazmıştım şimdi biraz eklenti yaptım kafana göre değiştirebilirsin.
http://www.webservicex.net XML domDocument ilede çekebilirsin sonuçları ben ADO Dil vs. kullandım.
Serviste ne yoğun sorgulama yaparsanız bile IP-Ban vs. yok çok araştırmıştım öyle buldum böyle bir servisi.
+ tr uzantılı tüm domainleri falanda kontrol edebiliyorsunuz bel.tr k12.tr vs. vs.

@ Anticapital
Bağzı servisler internic,dnsstuff gibi bilindik domain,IP,NS vs.vs. XML sorgulamak için ban atabiliyorlar IP ye hatta dnsstuff tt en altta ban attığı ip lerin bilgilerini görebilirsin.
Beleşe karşı adamlar napalım
When the server was last reloaded, we had 283016 IP addresses banned
yani herşeyin merkezi tabiki ICANN

[aspogren]

ben bunu ayarlayamadım. biraz yardımcı olabilirmisin ?

[Karakan]

• .com
• .org
• .biz
• .info
• .net
• .us (domain Checker application only)
• .co.uk
• .me.uk
• .org.uk
• .plc.uk
• .ltd.uk
• .net.uk

umarım işini görür