أذا كان لديك اسم النطاق و تريد التحويل فقط اضغط هنا
اتصل بنا لتتعرف على العديد من المفاجأت
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
. أيجبت هوستس هى الخيار المفضل لاستضافة المواقع الشخصية والمشروعات الصغيره و الكبيره و العملاقه افنحن نقدم خدمه ذات جوده عاليه و للتأكد يمكنك مشاهده صفحه ماذا قالوا عنا ؟ نحن نعطيك شهر للتجريب أذا كنت تريد التجريب أضغط هنا لتسجيل طلب تجريب الاستضافه. و نحن نقدم خدماتنا بسرعه و دقه متناهيه لكل انحاء العالم .ولدينا حزم من البرامج و التطبيقات التى تفى كل المتطليات فشركه دوت برو للبرمجيات تدعمنا بكل التطبيقات و البرامج و يقوم مجموعه من المبرمجين بتقديم كافه الخدمات بسرعه و دقه و بكل ود و محبه... و من هنا اكتسبت ايجبت هوستس الاسم الذى جعل لها هذه المكانه بين شركات تكنولجيا المعلومات.. و لا تكتفى الشركه بتقديم خدمات الاستضافه بل نقوم بأبحاث فى كافه مجالات تكنولجيا المعلومات و قريبا سننشر مجله عن ابحاثنا و ما ننوى تقديمه .انت تحصل على الاستضافه و معها اسم نطاق مجانى و تصميم من معرضنا و كل هذا بسعر لا منافس له ليرفع موقعك فى ساعه واحده ,هذه بالاضافه الى انه يمكنك تحديد المواصفات التى تريدها يل و يمكنك تحديد نطاق المبلغ الذى تستطيع دفعه و نحن نقوم بأعداد المواصفات التى تقبل المبلغ الذى تحدده لنا , و السوءال الأن هو اى شركه تقوم بتقديم هذه الخدمات بهذه المواصفات؟؟؟ الاجابه متروكه لك
Tags : Hosting - Hosting plans - site designer - domain purchase - domain prices - web hosting services- web hosting -
مساحه : 10 جيجا
تسكين خمس مواقع
الزحام الشهرى لا نهائى
15 قاعده بيانات
400 بريد الكترونى
400 L.E

كل ما عليك هو الاتصال بنا بالتليغون او بالبريد الالكترونىعلى sales@egypt-hosts.com
ونحن بدورنا ستنصل يك , نحن نوفر لك ما تريد بأفضل الاسعار و فى حدود امكانياتك
|
|
<% If domainOK Then WhoisQ = fm_Whois(Domain) If BoolFound Then '// Do Response.Write "
" & domain & " is not available...
" & WhoisQ DomainAv="notavailable" Else Response.Write "is available : " & domain DomainAv="available" End IF Else Response.Write "Write domain name, example : yahoo
" End If '*********************************** '// FUNCTIONS + This part of code could be in an include file '*********************************** '// Clear from Top Function ClearTop(byVal Code, byVal ClearTopStr) PosCounter = 1 If ClearTopStr <> "" Then '// Clear bottom unwanted Code If Instr(PosCounter,Code,ClearTopStr) Then While NOT ClearTopPosCheck ClearTopPos = Instr(PosCounter,Code,ClearTopStr) If Instr(PosCounter,Code,ClearTopStr) Then ClearTopPosCheck = True Else ClearTopPosCheck = False End If PosCounter = PosCounter + Len(ClearTopStr)-1 Wend If ClearTopPos > 0 Then If ClearTopStrPlus = "" Then ClearTopStrPlus = 0 Code = Right(Code,Len(Code)-ClearTopPos-Len(ClearTopStr)-ClearTopStrPlus) End If End If End If ClearTop = Code End Function '// Clear from Bottom Function ClearBottom(byVal Code, byVal ClearBottomStr) If ClearBottomStr <> "" Then '// Clear bottom unwanted Code ClearBottomPos = Instr(Code,ClearBottomStr) If ClearBottomPos > 0 Then Code = Left(Code,ClearBottomPos-1-ClearBottomPlus) End If End If ClearBottom = Code End Function '*************************************************************************************** Function fm_Whois(byVal domain) Dim Xobj, Code, Xurl, ArrCode If Trim(domain) = "" Then fm_Whois = "No Domain specified ! " : Exit Function '// GET URL If Instr(domain,".tr") Then '// TR Xurl = "http://whois.cc.metu.edu.tr/whois/wwwwhois" XPost = "Whois=" & Trim(domain) '// XMLHTTP ' Set Xobj = Server.CreateObject("Msxml2.XMLHTTP") ' Xobj.Open "POST",Xurl,false ' Xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" ' Xobj.Send XPost ' Code = xobj.ResponseText '// ASPTear Set Xobj = CreateObject("SOFTWING.ASPtear") Code = xobj.Retrieve(Xurl, 1, XPost, "", "") '// Kill Set Xobj = Nothing ClearTopStr = "" ClearBottomStr ="" Code = ClearTop(Code,ClearTopStr) ' Response.Write Server.HTMLEncode(Code) Code = ClearBottom(Code,ClearBottomStr) 'fm_Whois = Code '// Check Found If Instr(Lcase(Code),"not found") > 0 Then BoolFound = False Else BoolFound = True Else Xurl = "http://www-whois.internic.net/cgi/whois?whois_nic=" & domain & "&type=domain" Set Xobj = Server.CreateObject("Msxml2.XMLHTTP") Xobj.Open "GET",Xurl,false Xobj.SetRequestHeader "Content-type", "text/html" Xobj.Send If Int(xobj.Status) = 200 Then Code = xobj.ResponseText Else Code = "Whois server can not accesible at the moment !" End If '// Kill Set Xobj = Nothing ClearTopStr = "" ClearBottomStr ="" Code = ClearTop(Code,ClearTopStr) Code = ClearBottom(Code,ClearBottomStr) '// Check Found If Instr(Lcase(Code),"not found")>0 OR Instr(Lcase(Code),"no match")>0 Then BoolFound = False Else BoolFound = True '// Handle Errors If err Then Code = "Error !
Err : " & err.description & "
" & Code 'fm_Whois = Code End If End Function %>Egypt-Hosts
طريقك الى الاستصافه المريحه
مساحه:100جيجا
مواقع لا نهائيه
استقبال الزحام لا نهائى
قواعد بيانات لا نهائيه
2000 بريد الكترونى
الفان جنيه

Copyright© 2008 DotProSoftware Inc :: All The Content Of Thise Site Owned to Dotprosoftware as a one of its group on the web , egypt-hosts is a ™ and it is Registered ® and CopyRighted © . Legal . Privacy :: All-inclusive Software and web applications belong to egypt-hosts all done by dotpro software and All copyRights Is for DotproSoftware.
| © 2002-2010 DotproSoftware,Inc. All Rights Reserved.© | Help • Terms/Privacy • |
Call Now : 002-0120316988
Toll Free : 00202-35685982



