Medya Blue

Windows Server Family Developer Center

  • GSWhois.DLL Alan Adı Sorgulama Bileşeni

    GSWhois ücretiz bir alan adı sorgulama bileşenidir.
    Bu bileşeni kullanabilmek için sunucunuzda kaydedilmiş olması yeterlidir.

    1Asp Script

    <%
    Domain = "medyablue.com"
    'Domain = Request("Domain")

    Bol = ""
    DomAr = SPLIT(Domain,".")
    For dz = 1 to Ubound(DomAr)
    Bol = Bol &"."& DomAr(dz)
    Next
    Uzanti = UCase(Bol)

    Select case Uzanti
    Case ".COM" Whois_Server = "whois.verisign-grs.com"
    Case ".NAME" Whois_Server = "whois.nic.name"
    Case ".MUSEUM" Whois_Server = "whois.museum"
    Case ".NET" Whois_Server = "whois.verisign-grs.com"
    Case ".ORG" Whois_Server = "whois.pir.org"
    Case ".EDU" Whois_Server = "whois.crsnic.net"
    Case ".INFO" Whois_Server = "whois.afilias.info"
    Case ".BIZ" Whois_Server = "whois.biz"
    Case ".US" Whois_Server = "whois.nic.us"
    Case ".DE" Whois_Server = "whois.nic.de"
    Case ".LI" Whois_Server = "whois.nic.li"
    Case ".TC" Whois_Server = "whois.metu.edu.tr"
    Case ".IT" Whois_Server = "whois.nic.it"
    Case ".TV" Whois_Server = "whois.nic.tv"
    Case ".TR" Whois_Server = "whois.metu.edu.tr"
    Case ".COM.TR" Whois_Server = "whois.nic.tr"
    Case ".NET.TR" Whois_Server = "whois.nic.tr"
    Case ".ORG.TR" Whois_Server = "whois.nic.tr"
    Case ".GOV.TR" Whois_Server = "whois.nic.tr"
    Case ".GEN.TR" Whois_Server = "whois.nic.tr"
    Case ".WEB.TR" Whois_Server = "whois.nic.tr"
    Case ".EDU.TR" Whois_Server = "whois.nic.tr"
    Case ".BEL.TR" Whois_Server = "whois.nic.tr"
    Case ".POL.TR" Whois_Server = "whois.nic.tr"
    Case ".AV.TR" Whois_Server = "whois.nic.tr"
    Case Else Whois_Server = "whois.crsnic.net"
    End Select

    Set Whois = CreateObject("GSWhois.Whois")
    If Whois.Connect(Whois_Server) = "OK" Then
    DomainBilgisi = Whois.Query(Domain)
    Else
    DomainBilgisi = "Whois Sunucusu Çalışmıyor"
    End If
    Whois.Close
    Set Whois = Nothing

    response.write DomainBilgisi
    %>

    Yüklemeler
    GSWhois.DLL Alan Adı Sorgulama Bileşeni
    GSWhois v1.0.0.1
    rar
    Tasarım Deep Design Group
    Copyright ® 2013 MEDYA BLUE