ASP Microsoft.XMLHTTP Check Existing Domain or URL Address at Web Design Tips Web Programming Tutorials

Kemaren ada yang minta dibuatin script untuk mengecek keberadaan sebuah domain, sempet bingung juga gimana yah caranya akhirnya setelah baca-baca kitab suci yang lupa udah berusia berapa taon hehe ampe kemakan rayap, pada bagian XMLHTTP ada penjelasan tentang melakukan request menggunakan Microsoft.XMLHTTP, tapi karna itu kitab lama harus di sinkronkan dengan versi barunya (kalo ada :d) setelah googling sebentar plus coba-coba akhirnya jadi, selama masa percobaan seh jalan sesuai harapan.

function CheckDomain(byval s)
dim bReturn,oConn,sResponse
bReturn = true
if len(s) > 0 then
Set oConn = CreateObject(“Microsoft.XMLHTTP”)
On Error Resume Next
oConn.Open “get”, s, False
oConn.Send
sResponse = oConn.getResponseHeader(“Date”)
if len(sResponse)= 0 then bReturn = False
Set oConn = Nothing
end if
CheckDomain = bReturn
end function

Contoh Implementasi kita akan mengecek domain chazzuka.com (he eh sekalian promosi)

dim sUrl
sUrl = “http://www.chazzuka.com”
Response.Write CheckDomain(sUrl)

1 Response to “ASP Microsoft.XMLHTTP Check Existing Domain or URL Address”

Feed for this Entry Trackback Address

1 javac
Sep 10th, 2008 at 2:01 am

function CheckDomain(byval s)==>ditulis pake bhs apa sih mas, kalo sy liat pake ASP , kalo ASP harusnya bukan :
Set oConn = CreateObject(“Microsoft.XMLHTTP”)
tapi :
Set oConn = Server.CreateObject(“Microsoft.XMLHTTP”)
( CMIIW )

btw , sy coba di vb biar cpt codingnya..gak jalan
muncul alert :

Run time error ‘-214 …..’
Method ‘open’ of object ‘IXMLHTTPRequest’ failed

pas di baris :
oconn.open “get”, s, False