<%
' Oğuzhan YILMAZ
' 20.06.2007
' aspsrc@gmail.com
' GSWhois.Whois Componentini Kullanır.
Class DomWhois
Public Domain
'Domain'in hangi whois sunucusunda olduğunu belirler.
Public Property Get WhoisServer
Select case DomainUzanti
Case ".COM" WhoisServer = "whois.verisign-grs.com"
Case ".NAME" WhoisServer = "whois.nic.name"
Case ".MUSEUM" WhoisServer = "whois.museum"
Case ".NET" WhoisServer = "whois.verisign-grs.com"
Case ".ORG" WhoisServer = "whois.pir.org"
Case ".EDU" WhoisServer = "whois.crsnic.net"
Case ".INFO" WhoisServer = "whois.afilias.info"
Case ".BIZ" WhoisServer = "whois.biz"
Case ".US" WhoisServer = "whois.nic.us"
Case ".DE" WhoisServer = "whois.nic.de"
Case ".LI" WhoisServer = "whois.nic.li"
Case ".TC" WhoisServer = "whois.metu.edu.tr"
Case ".IT" WhoisServer = "whois.nic.it"
Case ".TV" WhoisServer = "whois.nic.tv"
Case ".TR" WhoisServer = "whois.metu.edu.tr"
Case ".COM.TR" WhoisServer = "whois.nic.tr"
Case ".NET.TR" WhoisServer = "whois.nic.tr"
Case ".ORG.TR" WhoisServer = "whois.nic.tr"
Case ".GOV.TR" WhoisServer = "whois.nic.tr"
Case ".GEN.TR" WhoisServer = "whois.nic.tr"
Case ".WEB.TR" WhoisServer = "whois.nic.tr"
Case ".EDU.TR" WhoisServer = "whois.nic.tr"
Case ".BEL.TR" WhoisServer = "whois.nic.tr"
Case ".POL.TR" WhoisServer = "whois.nic.tr"
Case ".AV.TR" WhoisServer = "whois.nic.tr"
Case Else WhoisServer = "whois.crsnic.net"
End Select
End Property
'Domain'in whois sunucusuna bağlanır. Dönen değeri alır.
Public Property Get DomainBilgisi
Set Whois = Server.CreateObject("GSWhois.Whois")
If Whois.Connect(WhoisServer) = "OK" Then
DomainBilgisi = Whois.Query(Domain)
Else
DomainBilgisi = "Ops! Whois Sunucusu Çalışmıyor!"
End If
Whois.Close
Set Whois = Nothing
End Property
'Whois serverdan dönen değeri yorumlar.
Public Property Get DomainDurumu
If inStr(DomainBilgisi,"Ops! Whois Sunucusu Çalışmıyor!") <> 0 Then
DomainDurumu = 2 ' Whois Sunucusu Çalışmıyor.
ElseIf inStr(DomainBilgisi,"No match found for") <> 0 OR inStr(strString,"NOT FOUND") <> 0 OR inStr(strString,"Not found:") Or inStr(DomainBilgisi,"No match for") Then
DomainDurumu = 0 ' Domain Alınabilir.
Else
DomainDurumu = 1 ' Domain Müsait Değil.
End if
End Property
'Domain'in uzantısını bulur. .com , .net, .sex
Public Property Get DomainUzanti
dUzanti = ""
DomAr = SPLIT(Domain,".")
For dz = 1 to Ubound(DomAr)
dUzanti = dUzanti &"."& DomAr(dz)
Next
DomainUzanti = UCase(dUzanti)
End Property
End Class
'Kullanım..
Set Kontrol = New DomWhois
Kontrol.Domain = "websahibi.com.tr"
Response.Write "
Domain : "& Kontrol.Domain
Response.Write "
Domain Uzantısı : "& Kontrol.DomainUzanti
Response.Write "
Domain Whois Server : "& Kontrol.WhoisServer
Response.Write "
Domain Durumu : "& Kontrol.DomainDurumu
Response.Write "
Whois Serverdan Dönen Bilgi
"& Kontrol.DomainBilgisi &"
"
Set Kontrol = Nothing
%>