Çılgın Paylaşım

Türkiye'nin en çılgın paylaşım mekanı
 
AnasayfaRADYOKayıt OlGiriş yap

Paylaş | 
 

 Domain sorgulama

Aşağa gitmek 
YazarMesaj
**$ERK@N**
Admin
Admin
avatar

Erkek
Mesaj Sayısı : 910
Yaş : 27
Nerden : Bursa
Kayıt tarihi : 21/01/08

MesajKonu: Domain sorgulama   Çarş. Ocak 23, 2008 5:46 pm

<%
If request.form("domain")<>"" then
GotothisURL = "http://www." & request.form("domain")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

ResponsePage = GetConnection.getResponseHeader("Date")

if ResponsePage="" then
Response.write("Domain kullanımda değil")
else
Response.write("Domain alınmış(kullanımda)")
end if

Set GetConnection = Nothing

else
%>
<form method=post action=<% =request.servervariables("URL") %>>
<input type=text name=domain size=15 value="domain.com">
<input type=submit value="Find domain name">
</form>
<% end if %>

_________________



Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://srknweb.ueuo.com/
 
Domain sorgulama
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Çılgın Paylaşım :: Dersler :: Asp Dersleri-
Buraya geçin: