[aspogren]

arkadaşım çok saolasın ama bunu inceledim ve bu benim çalışmamı gereğinden fazla zorluyor ve çalışma alanımın dışına taşmama sebep veriyor.

@ErincKuzu'nun verdiği aslında çok güzel ama bunu çalıştırabilsem çok güzel olacak.

[Karakan]

düzeltilmiş kod:

<%
URL=trim(Request.QueryString("url"))

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(URL)
%>

bu şekilde .ASP olarak kaydedip dosyaadi.ASP?url=http://blablablablablablablabla.com gibi kullanabilirsin
@ErincKuzu replace de ufak bi hata yapmıs ama farketmem yaklaşık 1 saatimi aldık kaç tane fonksiyon yazdım hatayı anlayana kadar (:

Hatalı;

Function DomainControl(URL)
URL = Replace(URL,"http://,""")

düzeltme;

Function DomainControl(URL)
URL = Replace(URL,"http://","")

denedim çalıştı
kolay gelsin.

[aspogren]

teşekkürler replace dosyasında hata alıyordum sorunum oradaydı şimdi sanırım halloldu. Teşekkürler ilginiz için.

[eKuzu]

Rica ederim...
@ LetSDie
O URL Replace leri burdan yazmıştım e her kul hata yapar yani