<% 'Set the response buffer to true Response.Buffer = False 'Set the script timeout to 90 seconds Server.ScriptTimeout = 90 'Whois function to query the whois server Private Function whoisResult(whoisURL, strMethod, strResultsStart, strResultsEnd) 'Dimension variables Dim objXMLHTTP 'Holds the XML HTTP Object Dim strWhoisResultString 'Holds the reult of the whois query 'Create an XML object to query the remote whois server Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'Alternative XML HTTP component, for version 3.0 of XMLHTTP 'Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Open a connection to the remote whois server objXMLHTTP.Open strMethod, whoisURL, False 'Send the request and return the data objXMLHTTP.Send 'Place the whois registry response into the result string strWhoisResultString = objXMLHTTP.ResponseText 'If the domain name is to short then tell them it's invalid If Len(strDomainName) < 3 Then 'Set the return result of the function to not valid whoisResult = "Not Valid - must be at least 3 characters" 'Else if there is an error ElseIF InStr(1, strWhoisResultString, "Error", vbTextCompare) Then 'Set the return result of the function to Taken whoisResult = "An Error has occured" 'Else there was a result Else 'Strip the whois result leaving the data we want whoisResult = resultFormater(strWhoisResultString, strResultsStart, strResultsEnd) End If 'Clean up Set objXMLHTTP = Nothing End Function 'Function to strip all non estential returned input Private Function resultFormater(strWhoisResultString, strResultsStart, strResultsEnd) 'Dimension variables Dim lngResultsStartPos Dim lngResultsEndPos 'Find the start position in the returned data of the result lngResultsStartPos = InStr(1, strWhoisResultString, strResultsStart, 1) + Len(strResultsStart) 'Find the end position in the returned data of the result lngResultsEndPos = InStr(lngResultsStartPos, strWhoisResultString, strResultsEnd, 1) 'Make sure the end position is not in error If lngResultsEndPos - lngResultsStartPos =< Len(strResultsStart) Then lngResultsEndPos = lngResultsStartPos + Len(strResultsStart) 'Now we know the start and end position of the result, strip the rest and return the result resultFormater = Trim(Mid(strWhoisResultString, lngResultsStartPos, (lngResultsEndPos - lngResultsStartPos))) End Function 'Function to strip non alphanumeric characters Private Function characterStrip(strTextInput) 'Dimension variable Dim intLoopCounter 'Holds the loop counter 'Loop through the ASCII characters up to - hyphen For intLoopCounter = 0 to 44 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters from hyphen to numeric charcaters For intLoopCounter = 46 to 47 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the ASCII characters numeric characters to lower-case characters For intLoopCounter = 58 to 96 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Loop through the extended ASCII characters For intLoopCounter = 123 to 255 strTextInput = Replace(strTextInput, CHR(intLoopCounter), "", 1, -1, 0) Next 'Return the string characterStrip = strTextInput End Function 'Dimension variables Dim strDomainName 'Holds the domain name to search for Dim strSuffix 'Holds the domain name suffix to search 'Read in the domain name to search strDomainName = Trim(Request.QueryString("domain")) strSuffix = Trim(Request.QueryString("suffix")) 'If a domain name has been entred then strip any unwanted characters from it If strDomainName <> "" Then 'Convert the domain name to check to lower case strDomainName = LCase(strDomainName) 'Remove www and http from in front strDomainName = Replace(strDomainName, "http://", "", 1, -1, 1) strDomainName = Replace(strDomainName, "www.", "", 1, -1, 1) 'Remove suffixes strDomainName = Replace(strDomainName, ".com", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".net", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".org", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".info", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".biz", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".tv", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".name", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".co.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".org.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".ltd.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".plc.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".net.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".me.uk", "", 1, -1, 1) strDomainName = Replace(strDomainName, ".pn.uk", "", 1, -1, 1) 'Remove any hyphens from the first and last characters If Left(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 2, Len(strDomainName)) If Right(strDomainName, 1) = "-" Then strDomainName = Mid(strDomainName, 1, Len(strDomainName)-1) 'Remove any hyphens double hyphens strDomainName = Replace(strDomainName, "--", "-", 1, -1, 1) 'Strip all non aphanumeric characters from the input strDomainName = characterStrip(strDomainName) End If %> ثبت دامنه در سايت ايراني

   درباره ما   
   تماس با ما   
   نمونه کار   
   طراحی وب   
   ميزبانی وب   
   ثبت دامنه   
 
Domain Name Search   Domain Name Lookup:
 
<% 'If a domain name is enterd check it If strDomainName <> "" Then 'Display the avialbility Response.Write("Search results for www." & strDomainName & strSuffix & "
")
             
	'Call the domain checking function depending on domain suffix
	
	'Check for .co.uk
	If strSuffix = ".co.uk" Then   
	        Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".co.uk", "GET", "
", "
")) 
	
	'Check for .me.uk
	ElseIf strSuffix = ".me.uk" Then   
		Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".me.uk", "GET", "
", "
"))
	
	'Check for .org.uk
	ElseIf strSuffix = ".org.uk" Then   
		Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".org.uk", "GET", "
", "
"))
	
	'Check for .net.uk
	ElseIf strSuffix = ".net.uk" Then   
		Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".net.uk", "GET", "
", "
"))           
	
	'Check for .ltd.uk
	ElseIf strSuffix = ".ltd.uk" Then   
		Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".ltd.uk", "GET", "
", "
"))           
	
	'Check for .plc.uk
	ElseIf strSuffix = ".plc.uk" Then   
		Response.Write(whoisResult("http://cgi.nic.uk/cgi-bin/whois.cgi?query=" & strDomainName & ".plc.uk", "GET", "
", "
"))           

	'Check for .com
	ElseIf strSuffix = ".com" Then 
		Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".com&type=domain", "GET", "
", "
"))
		
	'check for .net
	ElseIf strSuffix = ".net" Then 
		Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".net&type=domain", "GET", "
", "
"))
	
	'Check for .org	
	ElseIf strSuffix = ".org" Then 
		Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".org&type=domain", "GET", "
", "
"))
	
	'Check for .biz	
	ElseIf strSuffix = ".biz" Then 
		Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".biz&type=domain", "GET", "
", "
"))
	
	'Check for .info	
	ElseIf strSuffix = ".info" Then 
		Response.Write(whoisResult("http://www-whois.internic.net/cgi/whois?whois_nic=" & strDomainName & ".info&type=domain", "GET", "
", "
"))	
	End If  
	
	'Finsh the red span tag
	Response.Write("
") End If %>  

نکاتی برای انتخاب نام دامنه

ثبت دامنه بصورت Online
ليست قيمت های ثبت دومين در وب سايت ايرانی

سال/پسوند

1 سال

 2 سال 3 سال 4 سال 5 سال 6 سال 7 سال 8 سال 9 سال 10 سال
.COM 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.NET 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.ORG 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.INFO 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.BIZ 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.TV 350,000
ريال		 700,000
ريال		 1,050,000
ريال		 1,400,000
ريال		 1,750,000
ريال		 2,100,000
ريال		 2,450,000
ريال		 2,800,000
ريال		 3,150,000
ريال		 3,500,000
ريال
.CA 160,000
ريال		 320,000
ريال		 480,000
ريال		 640,000
ريال		 800,000
ريال		 960,000
ريال		 1,120,000
ريال		 1,280,000
ريال		 1,440,000
ريال		 1,600,000
ريال
.CC 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.ORG.UK - 160,000
ريال		 - - - - - - - -
.CO.UK - 160,000
ريال		 - - - - - - - -
.US 88,000
ريال		 176,000
ريال		 264,000
ريال		 352,000
ريال		 440,000
ريال		 528,000
ريال		 616,000
ريال		 704,000
ريال		 792,000
ريال		 880,000
ريال
.WS 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.NU - 560,000
ريال		 - - - - - - - -
.NAME 88,000
ريال		 - - - - - - - - -
.COM.CN 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.NET.CN 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.ORG.CN 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.CN 240,000
ريال		 480,000
ريال		 720,000
ريال		 960,000
ريال		 1,200,000
ريال		 1,440,000
ريال		 1,680,000
ريال		 1,920,000
ريال		 2,160,000
ريال		 2,400,000
ريال
.COM.MX 800,000
ريال		 1,600,000
ريال		 2,400,000
ريال		 3,200,000
ريال		 4,000,000
ريال		 4,800,000
ريال		 5,600,000
ريال		 6,400,000
ريال		 7,200,000
ريال		 8,000,000
ريال
.TM - - - - - - - - - 10,400,000
ريال

 

وب سايت اختصاصی تيم طراحی وب ايرانی

Copyright © 2003 IRANI inc. All rights reserved