<% Response.Buffer = False Server.ScriptTimeout = 90 Private Function characterStrip(strTextInput) strTextInput = LCase(strTextInput) strTextInput = Replace(strTextInput, "http://", "", 1, -1, 1) strTextInput = Replace(strTextInput, "www.", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".tr", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".com", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".net", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".org", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".biz", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".info", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".mobi", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".name", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".edu", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".pro", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".int", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".am", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".cc", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".cx", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".eu", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".fm", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".ie", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".tc", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".tm", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".us", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".ws", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".gen", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".web", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".name", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".gov", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".edu", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".bel", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".k12", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".mil", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".pol", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".dr", "", 1, -1, 1) strTextInput = Replace(strTextInput, ".av", "", 1, -1, 1) If Left(strTextInput, 1) = "-" Then strTextInput = Mid(strTextInput, 2, Len(strTextInput)) If Right(strTextInput, 1) = "-" Then strTextInput = Mid(strTextInput, 1, Len(strTextInput)-1) strTextInput = Replace(strTextInput, "--", "-", 1, -1, 1) For intLoopCounter = 0 to 44 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next For intLoopCounter = 46 to 47 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next For intLoopCounter = 58 to 96 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next For intLoopCounter = 123 to 255 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next characterStrip = strTextInput End Function If Request.QueryString("cmd") = "whois" Then strDomainName = characterStrip(Trim(Request.QueryString("domain"))) strSuffix = LCase(Trim(Request.QueryString("suffix"))) Private Function whoisResultsToScreen(whoisURL, strMethod, strResultsStart, strResultsEnd) Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open strMethod, whoisURL, False objXMLHTTP.Send strwhoisResultsToScreenString = objXMLHTTP.ResponseText If Len(strDomainName) < 3 Then whoisResultsToScreen = "Not Valid - must be at least 3 characters" ElseIF InStr(1, strwhoisResultsToScreenString, "Error", vbTextCompare) Then whoisResultsToScreen = "An Error has occured" Else whoisResultsToScreen = whoisResultsToScreenFormater(strwhoisResultsToScreenString, strResultsStart, strResultsEnd) End If Set objXMLHTTP = Nothing End Function Private Function whoisResultsToScreenFormater(strwhoisResultsToScreenString, strResultsStart, strResultsEnd) lngResultsStartPos = InStr(1, strwhoisResultsToScreenString, strResultsStart, 1) + Len(strResultsStart) lngResultsEndPos = InStr(lngResultsStartPos, strwhoisResultsToScreenString, strResultsEnd, 1) If lngResultsEndPos - lngResultsStartPos =< Len(strResultsStart) Then lngResultsEndPos = lngResultsStartPos + Len(strResultsStart) whoisResultsToScreenFormater = Trim(Mid(strwhoisResultsToScreenString, lngResultsStartPos, (lngResultsEndPos - lngResultsStartPos))) End Function If strDomainName <> "" Then Response.Write("BRKNR Whois Kontrol
" & strDomainName & strSuffix & " Whois Bilgileri
")
		Response.Write(whoisResultsToScreen("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName & strSuffix , "GET", "Close Window
", "
") End If Response.End End If Public Function whoisResult(whoisURL, strMethod, strCheckString) Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open strMethod, whoisURL, False objXMLHTTP.Send strWhoisResultString = objXMLHTTP.ResponseText If InStr(1, strWhoisResultString, strCheckString, vbTextCompare) Then Result = "Available" ElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then Result = "Error" Else Result = "Taken" End If Set objXMLHTTP = Nothing End Function Private Function resultFormater(strWhoisResultString, strResultsStart, strResultsEnd) lngResultsStartPos = InStr(1, strWhoisResultString, strResultsStart, 1) + Len(strResultsStart) lngResultsEndPos = InStr(lngResultsStartPos, strWhoisResultString, strResultsEnd, 1) If lngResultsEndPos - lngResultsStartPos =< Len(strResultsStart) Then lngResultsEndPos = lngResultsStartPos + Len(strResultsStart) resultFormater = Trim(Mid(strWhoisResultString, lngResultsStartPos, (lngResultsEndPos - lngResultsStartPos))) End Function if Request.QueryString("cmd") = "Add" Then DomainName = Request.QueryString("Domain") function WriteToFile(FileName, Contents, Append) on error resume next if Append = true then iMode = 8 else iMode = 2 end if set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(Server.MapPath(FileName), iMode, True) oTextFile.Write Contents oTextFile.Close set oTextFile = nothing set oFS = nothing end function WriteToFile "DomainList.txt", chr(13) & chr(10) & DomainName, True Response.Write "" Response.End End if if Request.QueryString("cmd") = "ShowCache" Then DomainName = Request.QueryString("Domain") %>

<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("DomainList.txt"), 1) Satir = 0 do while f.AtEndOfStream = false If (Satir mod 4) = 0 Then Response.Write("") %> <% If (Satir mod 4) = 3 Then Response.Write("") Satir = Satir + 1 loop f.Close Set f=Nothing Set fs=Nothing %>
<%=Response.Write(f.ReadLine) %>
  
<% Response.End End if %> Domain Sorgula, Whois
 
Domain Adı:
"/>
.com .net .org .biz .com.tr .net.tr .org.tr .biz.tr
.info .mobi .name .edu .info.tr .gen.tr .web.tr .name.tr
.pro .int .am .cc .gov.tr .edu.tr .bel.tr .k12.tr
.cx .eu .fm .ie .mil.tr .pol.tr .dr.tr .av.tr
.tc .tm .us .ws
 
<% if Request.QueryString("cmd") = "Search" Then %>
<% strDomainName = characterStrip(Lcase(Server.HTMLEncode(Trim(Request("domain"))))) strSuffixArray = Split(LCase(request("uzanti")), ", ") for each strSuffix in strSuffixArray Result = "" FullDomainName = Lcase(Server.HTMLEncode(strDomainName &"."& strSuffix)) If Right(strSuffix,3) = ".tr" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "com" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "net" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "org" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "NOT FOUND")) ElseIf strSuffix = "biz" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Not found")) ElseIf strSuffix = "info" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "NOT FOUND")) ElseIf strSuffix = "mobi" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "NOT FOUND")) ElseIf strSuffix = "name" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "edu" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No Match")) ElseIf strSuffix = "pro" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Unknown domain")) ElseIf strSuffix = "int" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "not found")) ElseIf strSuffix = "am" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "cc" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "cx" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Not Registered")) ElseIf strSuffix = "eu" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Status: FREE")) ElseIf strSuffix = "fm" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) ElseIf strSuffix = "ie" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Not Registered")) ElseIf strSuffix = "tc" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "not registered")) ElseIf strSuffix = "tm" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "- Available")) ElseIf strSuffix = "us" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "Not found")) ElseIf strSuffix = "ws" Then Response.Write(whoisResult("http://www.easydomaincheck.com/whois.php?domain=" & strDomainName &"."& strSuffix , "GET", "No match")) End If %> <% If Result = "Available" Then %> <% ElseIf Result = "Taken" Then %> <% ElseIf Result = "Error" Then %> <% Else %> <% End If next %>
  Domain Adı: Durum:  

<%=FullDomainName%> Alan adı müsait

<%=FullDomainName%> Alan adı kayıtlı - Whois Bilgileri  

<%=FullDomainName%> Hata oluştu  

<%=FullDomainName%> Hiç beklenmedik bir şeyler oldu  
 
<% end if %>