<%@ LANGUAGE = "VBSCRIPT" %> <% Session.Codepage="65001" %> <% Response.Buffer = True %> <% Session.Timeout = 90 %> <% Server.ScriptTimeout = 3600 %> <% '--------------------------------// Convert Milady to Shamsi Date //-------------------- D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21) P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10) W = Array ("يکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنجشنبه", "جمعه", "شنبه") Mon = Array ("فروردين", "ارديبهشت", "خرداد", "تير", "مرداد", "شهريور", "مهر", "آبان", "آذر", "دی", "بهمن", "اسفند") Dm = Day(Date) Mm = Month(Date) Ym = Year(Date) U = 0 Rp = 0 If (Ym Mod 4) = 0 Then U = 1 If ((Ym Mod 100) = 0 AND (Ym Mod 400) <> 0) Then U = 0 Ys = Ym - 622 X = Ys - 22 X = X Mod 33 If ((X Mod 4) = 0 AND X <> 32) Then Rp = 1 I = Not(Rp-2) + NOT(U - 2) * 2 X = 0 If (I = 0 AND Mm = 3) Then X = 1 If I = 0 Then I = 3 Ms = (9 + Mm) Mod 13 If Ms < 10 Then Ms = Ms + 1 D1 = D(Mm - 1) If (I = 1 AND Mm > 2) Then D1 = D1 - 1 If (I = 2 AND Mm < 3) then D1 = D1 - 1 P1 = P(Mm - 1) If (I = 1 AND Mm > 2) Then P1 = P1 + 1 If (I = 2 AND Mm < 4) Then P1 = P1 + 1 If (Dm > 0 AND Dm <= D1) Then Ds = P1 + Dm + X - 1 X = 1 Else Ds = Dm - D1 Ms = Ms + 1 If Ms = 13 Then Ms = 1 X = 2 End If If ((Mm = 3 AND X = 2) OR Mm > 3) Then Ys = Ys + 1 DateShamsi = W(WeekDay(Date) - 1) & " " & Ds & " " & Mon(Ms - 1) & " " & Ys logDateF = DateShamsi '--------------------------------// Convert Milady to Shamsi Date //-------------------- If Request.ServerVariables("REQUEST_METHOD") = "POST" and Len(Request.Form("frmLPSbm")) > 0 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 txtEmail = Clean(Trim(Request.Form("txtEmail"))) txtUserID = Clean(Trim(Request.Form("txtUserID"))) '--------- Clean String (Prevent SQL Injection Attacks) --------------- '--------- Find Match --------------- Set Rs = Conn.Execute("Select * From tblMembers Where memUser = '"&txtUserID&"' and memEmail = '"&txtEmail&"'") If Rs.BOF = True and Rs.EOF = True Then '---// Show Error Message //--- Response.Redirect("Lost-Passwords.shtml?Msg=Failed") Else '----------// Sending Email //----------------------- '-------------// Loading and Replacing Data in HTML Email Template //----------------- emTime = Time() emDate = Date() '&" - "&logDateF memFullName = Rs("memName")&" "&Rs("memFamily") memPass = Rs("memPass") memUser = Rs("memUser") memEmail = Rs("memEmail") usrIP = Request.ServerVariables("REMOTE_ADDR") Const ForReading = 1 '------------// objFSO UTF-8 Problem Reading //--------- 'Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Set objTStream = objFSO.OpenTextFile(Server.MapPath("../bhAdmin/Email-HTML/Lost-Password-1252.htm"), ForReading) 'strText = objTStream.ReadAll 'Set objTStream = Nothing 'Set objFSO = Nothing '------------// objFSO UTF-8 Problem Reading //--------- '------------// Fixed by Using Adodb.Stream //--------- Set oStream = Server.CreateObject("ADODB.Stream") oStream.Open oStream.LoadFromFile Server.MapPath("../bhAdmin/Email-HTML/Lost-Password.htm") oStream.CharSet = "UTF-8" strText = oStream.ReadText '------------// Fixed by Using Adodb.Stream //--------- strText = Replace(strText, "Replace_memFullName", memFullName) strText = Replace(strText, "Replace_memUser", memUser) strText = Replace(strText, "Replace_memPass", memPass) strText = Replace(strText, "Replace_DateF", emDate) strText = Replace(strText, "Replace_Time", emTime) strText = Replace(strText, "Replace_IP" , usrIP) 'Response.Write(strText) 'Response.End() '-------------// Loading and Replacing Data in HTML Email Template //----------------- On Error Resume Next MsgTo = txtEmail MsgFrom = "BaniHost | Support" MsgSucbject = "Your Account Password" MsgBody = strText smtpserver = "smtp.gmail.com" youremail = "banihost@gmail.com" yourpassword = "bh101099" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") With ObjSendMail Set Header = .Fields With Header .Item("urn:schemas:mailheader:X-Mailer") = "BaniHost MailServer" .Item("urn:schemas:mailheader:Content-Type") = "text/html; charset=UTF-8" .Item("urn:schemas:mailheader:Content-Transfer-Encoding") = "8bit" .Update End With End with ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("urn:schemas:httpmail:importance").Value = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword ObjSendMail.Configuration.Fields.Update ObjSendMail.To = MsgTo ObjSendMail.Subject = MsgSucbject ObjSendMail.From = MsgFrom ObjSendMail.BodyPart.Charset = "UTF-8" ObjSendMail.HTMLBody = MsgBody ObjSendMail.Send Set ObjSendMail = Nothing Response.Redirect("Lost-Passwords.shtml?Msg=Done&To="&memEmail) End If '--------- Find Match --------------- End If %> Bani Host™ | Professional Web Hosting Services
شما اینجا هستید:  صفحه نخست  /  بازیابی کلمه رمز
بازیابی کلمه رمز
برای بازیابی کلمه رمز فراموش شده خود کافیست "نام کاربری" و  "آدرس ایمیلی که هنگام ثبت نام" در "بانی هاست" استفاده کرده اید را در فرم زیر وارد کنید و بعد از چند دقیقه کلمه رمز شما به همان آدرس ایمیل فرستاده خواهد شد.
اگر بعد از چند دقیقه ایمیلی دریافت نکردید به پوشه اسپم(Spam,Bulk) سرویس دهنده ایمیل خود مراجعه کنید.
<%If Request.QueryString("Msg") = "Failed" Then%> <% End IF%> <%If Request.QueryString("Msg") = "Done" Then%> <% End IF%>
پیام سیستم
کاربر گرامی، "نام کاربری" یا "آدرس ایمیل" وارد شده معتبر نمی باشد. لطفا یک بار دیگر با دقت "نام کاربری" و "آدرس ایمیل" خود را وارد کنید و دوباره سعی کنید.
توجه داشته باشید که منظور از آدرس ایمیل ، آدرس ایمیلی است که شما هنگام ثبت نام در "بانی هاست" استفاده کرده اید و برای تماس با شما در "بانی هاست" استفاده می شود.
پیام سیستم
کلمه رمز شما به ایمیل تان (<%=Request.QueryString("To")%>) فرستاده شد.
توجه: اگر از سرویس ایمیل" یاهو" استفاده می کنید و ایمیل را دریافت نکردید به پوشه "Bulk" مراجعه کنید.
- نام کاربری
- ایمیل
 

بانی هاست ™ - خدمات حرفه ای میزبانی وب
 © شرکت طراحان بانی پرشیا  - تمامی حقوق برای بانی هاست ™ محفوظ می باشد.
فروش: 88670624-021   فکس: 88670624-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