English | Vietnamese
 

banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register   [Login] Login [  http  | https  ]
 
Forum Index Thảo luận hệ điều hành Windows Có bác nào có code PHP check domain *.vn *.com.vn....không  XML
  [Question]   Có bác nào có code PHP check domain *.vn *.com.vn....không 06/12/2006 07:03:06 (+0700) | #1 | 28206
[Avatar]
 canh_nguyen
Elite Member
[Minus]    0    [Plus]
Joined: 23/08/2004 18:55:09
Messages: 775
Location: Broken dream
Offline
[Profile] [PM] [WWW] [Yahoo!] [MSN] [ICQ]
Bác nào có code này share cho em với nhá. Thanks trước. smilie)
[Up] [Print Copy]
  [Question]   Re: Có bác nào có code PHP check domain *.vn *.com.vn....không 08/12/2006 02:04:57 (+0700) | #2 | 28830
include_1984
Member
[Minus]    0    [Plus]
Joined: 07/12/2006 13:54:08
Messages: 1
Offline
[Profile] [PM]
có đây! you thử dùng đoạn code này xem
trang domain.html có nội dung như sau:
----------------------------------------------------------------------------------------
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Check domain</title>
<script>
function TestForm(form) {
if ( !TestWhois(form) ) return false;
return true;
}
function TestWhois(form) {
str = document.checkDomain.domain.value;
if ( str.indexOf('www.', 0) != -1) {
alert("\nKhông duoc nhâp www.\n\n");
form.domain.value = "";
document.checkDomain.domain.focus();
return false; }
if ( str.indexOf('.', 0) != -1) {
alert("\nKhôg danh duôi Domain Name.\n\n");
form.domain.value = "";
document.checkDomain.domain.focus();
return false; }
if ( str == "" ) {
alert("\nTên Domain không duoc trông.\n\n");
document.checkDomain.domain.focus();
return false; }
for ( var i = 0; i < str.length; i++ ) {
var ch = str.substring(i, i + 1);
if (((ch < "a" || "z" < ch) && (ch < "A" || "Z" < ch) && (ch < "0" || "9" < ch)) && ch != '-') {
alert("Tên Domain không dung!");
form.domain.value = "";
document.checkDomain.domain.focus();
return false;
} } return true;
}
</script>
</head>

<body>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td bgcolor="#EFF3F7" height="25"> <b>Kiểm tra Tên miền hợp lệ</b></td>
</tr>
<tr>
<td>
<center>
<table width="55%" border="0" cellspacing="2" cellpadding="2">
<form name=checkDomain action="whois.asp" method="post" onSubmit="return TestForm(this);">
<tr>
<td width="11%" height="25">www.</td>
<td width="36%" height="25"><input class=box type="text" name="domain" size="20"></td>
<td width="21%" height="25">
<select class=box name="ext">
<option value="com">.com</option>
<option value="net">.net</option>
<option value="org">.org</option>
<option value="us">.us</option>
<option value="info">.info</option>
<option value="biz">.biz</option>
<option value="name">.name</option>
<option value="cc">.cc</option>
<option value="tv">.tv</option>
<option value="bz">.bz</option>
<option value="nu">.nu</option>
<option value="ws">.ws</option>
</select></td>
<td width="32%" height="25"><input class=submit type="submit" name="Submit" value="Kiểm tra!"></td>
</tr>
</form>
</table>
</center>
</td>
</tr>
</table>
</center>
</body>

</html>
-------------------------------------------------------------------------------------
trang global.asa có nội dung như sau:
----------------------------------
<SCRIPT LANGUAGE='VBScript' RUNAT='Server'>
Sub Session_OnStart
Session("LoggedIn") = False
Session("TLD") = ""
Session("SLD") = ""
End Sub
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("username")="checkdomain"
Application("password")="checkdomain"
Application("Branch")="Reseller"
End Sub
</SCRIPT>

----------------------------
trang whois.asp có nội dung như sau:
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Check domain</title>
</head>

<body>
<center>
<table border="0" cellpadding="0" cellspacing="0">
<tr><td>
<SCRIPT language=JavaScript>
function ShowWhois(sobj1, sobj2)
{
sobj1.style.display = 'none';
sobj2.style.display = '';
}
</SCRIPT>

<%
Domain = Request.Form("domain") & "." & Request.Form("ext")

set mWhoIs = Server.CreateObject("DIWhoIs.DiWhoIs")
mWhoIs.Host = "whois.directi.com"
mWhoIs.Port = 43
mWhoIs.Domain = Domain
mWhoIs.Lookup

chuoi = len(trim(mWhoIs.Result))

If chuoi > 100 Then
Response.write "<font color=""#FF0000""><br><br><b>Tên miền www." & Domain & " "
Response.write " đã có người đăng ký rồi</b></font><font color=""#000066""><br><br>Bạn hãy kiểm tra Tên miền khác... Tổ chức ICANN quốc tế.<br><br>"

Response.write "<center>"
Response.write "<table id=link border=0 cellpadding=0 cellspacing=0>"
Response.write "<tr>"
Response.write "<td align=""center""><A href=""javascript:ShowWhois(link, whois)"">Chi tiết - Whois »</A></td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</center>"

Response.write "<center>"
Response.write "<table id=whois style=""DISPLAY: none"" border=0 cellpadding=0 cellspacing=0>"
Response.write "<tr align=center>"
Response.write "<td align=center>"
Response.write mWhoIs.HTMLResult
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</center>"

Else
set netWhoIs = Server.CreateObject("DIWhoIs.DiWhoIs")
'netWhoIs.Host = "whois.networksolutions.com"
netWhoIs.Host = "whois.directi.com"
netWhoIs.Port = 43
netWhoIs.Domain = Domain
netWhoIs.Lookup
thongtin = len(trim(netWhoIs.Result))
If thongtin > 2000 Then
Response.write "<font color=""#FF0000""><br><br><b>Tên miền www." & Domain & " "
Response.write " đã có người đăng ký rồi</b></font><font color=""#000066""><br><br>Bạn hãy kiểm tra Tên miền khác... Tổ chức ICANN quốc tế.<br><br>"

Response.write "<center>"
Response.write "<table id=link border=0 cellpadding=0 cellspacing=0>"
Response.write "<tr>"
Response.write "<td align=""center""><A href=""javascript:ShowWhois(link, whois)"">Chi tiết - Whois »</A></td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</center>"

Response.write "<center>"
Response.write "<table id=whois style=""DISPLAY: none"" border=0 cellpadding=0 cellspacing=0>"
Response.write "<tr align=center>"
Response.write "<td align=center>"
Response.write thongtin
Response.write "<br>"
Response.write netWhoIs.HTMLResult
Response.write "</td>"
Response.write "</tr>"
Response.write "</table>"
Response.write "</center>"
set netWhoIs = nothing
Else
cSld = Request.Form("domain")
cTld = Request.Form("ext")
Set Enom = Server.CreateObject( "Enom.EnomURL" )
Enom.AddParam "UID", Application( "username" )
Enom.AddParam "PW", Application( "password" )
Enom.TLD = cTld
Enom.SLD = cSld
Enom.Check
if Enom.Response( "ErrCount" ) <> "0" then
cErrorMsg = Enom.Response( "Err1" )
bError = true
else
bError = false
select case Enom.Response( "RRPCode" )
case "210"
bAvailable = true
case "211"
bAvailable = false
case else
bError = true
cErrorMsg = Enom.Response( "RRPText" )
end select
end if
if bError = true then
Response.Write( "<strong class=""red"">We're sorry, there was an error checking the <br>" &_
"availability of the domain name <b class=""bigblack"">" & cSld & "." & cTld &_
"</b>. The error was """ & cErrorMsg & """</strong><br><br>Would you like to try again?" )
elseif bAvailable = false then
'Da co nguoi dang ky
Response.write "<p align=center><font color=""#FF0000""><br><br><b>Tên miền www." & Domain & " "
Response.write "đã có người đăng ký rồi</b></font><font color=""#000066""><br><br>Bạn hãy kiểm tra Tên miền khác... Tổ chức ICANN quốc tế.<br><br>"
elseif bAvailable = true then
'Chua co ai dang ky
response.write "<font color=""#FF0000""><b>Tên miền www." & Domain & " "
response.write " hiện chưa có ai đăng ký</b></font><font color=""#000066""><br><br> Thông tin này được cung cấp bởi tổ chức ICANN quốc tế.<br><br>"
response.write "<A href=""dangky.asp"">Đăng ký »</A>"
else
Response.Write( "Darn those asp guys they made a bug!" )
end if
'response.write "<font color=""#FF0000""><br><br><b>Tên miền www." & Domain & " "
'response.write " hiện chưa có ai đăng ký</b></font><font color=""#000066""><br><br> Thông tin này được cung cấp bởi tổ chức ICANN quốc tế.<br><br>"
'response.write "<A href=""dangky.asp"">Đăng ký »</A>"
End If

End If

set mWhoIs = nothing
%>
</td></tr>
</table>
</center>
</body>
</html>
-------------------------
3 trang này để cùng 1 thư mục.

[Up] [Print Copy]
  [Question]   Có bác nào có code PHP check domain *.vn *.com.vn....không 08/12/2006 03:57:57 (+0700) | #3 | 28848
[Avatar]
 canh_nguyen
Elite Member
[Minus]    0    [Plus]
Joined: 23/08/2004 18:55:09
Messages: 775
Location: Broken dream
Offline
[Profile] [PM] [WWW] [Yahoo!] [MSN] [ICQ]
Hình như bác chưa đọc kỹ tiêu đề. Cái em xin là code php và check domain dạng *.vn, *.com.vn....^^
[Up] [Print Copy]
  [Question]   Có bác nào có code PHP check domain *.vn *.com.vn....không 09/12/2006 01:18:34 (+0700) | #4 | 29081
[Avatar]
 kdot
Member
[Minus]    0    [Plus]
Joined: 28/10/2005 10:53:37
Messages: 84
Offline
[Profile] [PM]
Chú thử vào http://pavietnam.net tham khảo mã nguồn của nó.
[Up] [Print Copy]
[digg] [delicious] [google] [yahoo] [technorati] [reddit] [stumbleupon]
Go to: 
 Users currently in here 
1 Anonymous

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|