<%@ LANGUAGE = "VBSCRIPT" %> <% Session.Codepage="65001" %> <% Response.Buffer = True %> <% Session.Timeout = 60 %> <% Server.ScriptTimeout = 3600 %> Bani Host™ | Professional Web Hosting Services - بانی هاست | خدمات حرفه ای وب | هاستینگ | هاست | میزبانی وب | ثبت دامنه | سرور اختصاصی | اعطای نمایندگی
<% Session("DStep1") = "Failed" Session("DStep2") = "Failed" If Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.Form("hidStep1") = "Yes" Then '--------- Clean String (Prevent SQL Injection Attacks) --------------- Function Clean(str) Dim re Set re = new RegExp With re .Global = True .IgnoreCase = True .Pattern = "[^a-zA-Z0-9.,-s?]" End With Clean = re.Replace(str,"") End Function '--------- Clean String (Prevent SQL Injection Attacks) --------------- DomainExt = Replace(Request.Form("DomainExt"),"'","") RegDomain = Replace(Request.Form("RegDomain"),"'","") RegDomain = Trim(RegDomain) RegDomain = LCASE(RegDomain) dmAvail = False Set dxRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&DomainExt) DomainExtName = LCASE(dxRs("dpName")) strDomainName = RegDomain & DomainExtName '----// Choose Whois Server //----- If DomainExtName = ".com" Then strWS = "whois.internic.com" ElseIf DomainExtName = ".net" Then strWS = "whois.internic.com" ElseIf DomainExtName = ".org" Then strWS = "whois.pir.org" ElseIf DomainExtName = ".info" Then strWS = "whois.afilias.info" ElseIf DomainExtName = ".biz" Then strWS = "whois.whois.biz" ElseIf DomainExtName = ".ir" Then strWS = "whois.nic.ir" Else strWS = "whois.register.com" End If '----// Choose Whois Server //----- If Len(RegDomain) > 2 and Instr(RegDomain,"_") <= 0 and Instr(RegDomain,".") <= 0 and Instr(RegDomain,"\") <= 0 and Instr(RegDomain,"/") <= 0 Then '-----// Whois by Remote XML Request to ASPX page //------------- 'Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") 'strURL = "http://www.banihost.com/dotnetwhois.aspx?Domain=" & RegDomain & "&Ext=" & DomainExtName 'objXMLHTTP.Open "GET", strURL, False 'objXMLHTTP.Send 'strWhoisResultString = objXMLHTTP.ResponseText '-----// Whois by Remote XML Request to ASPX page //------------- '---------// Whois by New Method: BaniHost Whois ASP Component //--------------- Set bhWhois = Server.CreateObject("BaniHostWhois.Whois") bhWhois.Server = strWS bhWhois.Domain = RegDomain & DomainExtName '---------// Whois by New Method: BaniHost Whois ASP Component //--------------- Else '--- Domain is Not OK and Show Error Session("DStep1") = "Failed" Response.Redirect("Domain-Registration.shtml?Msg=DomainError") End If 'If strWhoisResultString = "Available" Then If bhWhois.DomainStatus() = True Then dmAvail = True Else dmAvail = False End If If dmAvail = True Then '--- Domain is OK and Continue Session("DStep1") = "OK" Response.Redirect("Domain-Registration-02.shtml?Domain="&RegDomain&"&Ext="&DomainExt) Else '--- Domain is Not OK and Show Error Session("DStep1") = "Failed" Response.Redirect("Domain-Registration.shtml?Msg=DomainFailed&FailedDomain="&RegDomain&DomainExtName) End If End IF %>
شما اینجا هستید:  صفحه نخست  /  ثبت دامنه
ثبت دامنه
<% If Not Session("Members") = "" or Len(Session("Members"))>0 Then %>

<% If Request.QueryString("Msg") = "DomainFailed" Then %> <% End If %> <% If Request.QueryString("Msg") = "DomainError" Then %> <% End If %>

پیام سیستم
کاربر گرامی، دامنه مورد نظر شما (<%=Request.QueryString("FailedDomain")%>) قبلا توسط شخص دیگری ثبت شده است. لطفا یک دامنه دیگر وارد کنید.

پیام سیستم
کاربر گرامی، نام دامنه وارد شده معتبر نمی باشد. نام دامنه باید بیش از 3 حرف باشد.

- نام دامنه انتخابی:

http://www.">

<% Else %>
برای ثبت سفارش خود باید یک "حساب کاربری" در بانی هاست داشته باشید.

هنوز عضو نشده اید؟
 عضویت در بانی هاست کاملا "رایگان" و آسان می باشد. کافیست بر روی لینک زیر کلیک کنید تا بعد از پر کردن فرم عضویت در عرض چند دقیقه عضو وب سایت شوید و از مزایای سفارش آنلاین، پرداخت آنلاین، تخفیف و ... بهره مند شوید.

"> ایجاد حساب کاربری جدید

 

هم اکنون عضو بانی هاست هستید؟
 برای ثبت سفارش خود باید به حساب کاربری خود وارد شوید تا سیستم شما را شناسایی کرده و شفارشتان را ثبت کند.

">ورود اعضا
<% End If %>
بانی هاست ™ - خدمات حرفه ای میزبانی وب
 © شرکت طراحان بانی پرشیا  - تمامی حقوق برای بانی هاست ™ محفوظ می باشد.
فروش: 88056272-021   فکس: 88056272-021

 
<% If Session("Members") = "" or Len(Session("Members")) <=0 Then %>
<% Else Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members")) If Rs.BOF = True and Rs.EOF = True Then Else side_MemName = Rs("memName")&" "&Rs("memFamily") side_MemCredit = Rs("memCredit") side_NewMsg = 0 Set msgRs = Conn.Execute("Select * From tblPM Where pmStatus = 'New' and pmTo = "&Session("Members")) While Not msgRs.EOF side_NewMsg = side_NewMsg + 1 msgRs.MoveNext Wend End If %>
خوش آمدید، <%=side_MemName%>
موجودی: <%=side_MemCredit%> ریال
پیام جدید (<%=side_NewMsg%>)
کنترل پانل
خروج از سیستم
<% End If %>
www.
.Com .Net .Org
.Info .Biz .Ir

19-2-88
بروز مشكل امنيتي در سايت شركت امنيتي مكافي
کارشناسان هشدار دادند، آسيب‌پذيري‌هاي امنيتي موجود در سايت‌هاي مکافي، به‌خصوص يکي از اين پايگاه‌هاي اينترنتي که به منظور اسکن کردن سايت‌هاي کاربران براي بررسي احتمال وجود حفره‌هاي امنيتي در آن‌ها ساخته شده است، مي‌تواند باعث انتشار اطلاعات شخصي مربوط به حساب‌هاي اينترنتي کاربران شود و در قالب نرم‌افزارهاي امنيتي مکافي، در مقابل کاربران حملاتي را انجام دهد. مکافي روز گذشته در اين خصوص توضيح داد که بيشتر اين حفره‌هاي امنيتي برطرف شده و تنها بخشي از اين سايت اينترنتي که در حالت آفلاين مورد استفاده قرار مي‌گيرد، باقي مانده است.
18-2-88
كتابخوان الكترونيك آمازون
شركت آمازون آمادهء عرضهء نسل جديد كتابخوان الكترونيك خود موسوم به Kindle است كه صفحهء بزرگ‌تري دارد و اين در حالي است كه اين شركت تنها سه ماه قبل نسل ديگري از اين سخت افزار را ارائه كرده بود. كتابخوان در كنفرانس خبري اين شركت به نمايش گذاشته خواهد شد. صفحهء بزرگ تر Kindle نسبت به مدل هاي قبل اجازه خواهد داد صفحات مجلات و روزنامه ها بهتر نمايش داده شوند. دستگاه هاي فعلي Kindle اجازه مي دهند كه كاربر آبونمان نشريات مورد علاقهء خود را انجام داده و هر روز صبح روزنامه يا مجلهء مورد نظر خود را مستقيماً بر روي دستگاه دريافت كند.
15-2-88
مسابقه نوكيا براي طراحي نرم‌افزار Widget براي N97
شركت نوكيا به منظور برقراري ارتباط توسعه دهندگان نرم‌افزاري با ابزارها، اطلاعات فني، پشتيباني و كانال‌هاي توزيع در سراسر جهان، اقدام به راه‌اندازي برنامه جهاني توسعه دهندگان نوكيا فوروم شركت نوكيا از طریق فوروم نوکیا ( Forum Nokia ) كرده است. از اقدامات اين فوروم مي توان به ارايه پشتيباني هاي فني و توسعه تجاري به طراحان و برنامه نويسان نرم افزار براي توليد سرويس ها و برنامه هاي كاربردي مفيد در سراسر جهان اشاره كرد. به اين ترتيب مسابقه‌اي با همكاري فوروم نوكيا براي گردهمايي همه مبتكران در زمينه طراحي و توسعه نرم افزارهاي كاربردي در تاريخ 28-29 آوريل در موناكو در كنفرانس توسعه دهندگان برنامه هاي نوكيا برگزار شد و گروه هاي توسعه دهنده برتر از سراسر جهان براي ساخت برنامه هاي متنوع به مبارزه پرداختند كه در نهايت پس از گذشت 24 ساعت، ديويد امانوئل كاسترو گواررو از مكزيك به عنوان برنده نخست مسابقه انتخاب شد.

http://www.senfepooshak.ir

http:/www.jobbkanalen.se

http://www.martaskonfektyr.se

http://www.boomrang.ir

http://www.irtabletennis.com

http://www.irancoelbo.ir

http://www.hi-pack.ir

http://www.banibids.com

http://www.ashkanhorse-co.com

http://www.artagate.com

http://www.swetur.se

http://www.baztabrahnovin.com

http://www.mapnaexhibition.com
website tracker