Bani Host™ | Professional Web Hosting Services

شما اینجا هستید: صفحه نخست / کنترل پانل اعضا

کنترل پانل اعضا

<% '-------------------------// Static //---------------------- Set Rs = Conn.Execute("Select * From tblPM Where pmTo = "&Session("Members")&" and pmStatus = 'New'") totalNewPM = 0 While Not Rs.EOF totalNewPM = totalNewPM + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqStatus = 'No'") totalNewReqs = 0 While Not Rs.EOF totalNewReqs = totalNewReqs + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblPayReqs Where memID = "&Session("Members")) totalNewPayReqs = 0 While Not Rs.EOF totalNewPayReqs = totalNewPayReqs + 1 Rs.MoveNext Wend totalNewReqs = totalNewReqs + totalNewPayReqs '-------------------------// Static //---------------------- %> <% If Request.QueryString("Sec") = "Logout" Then Session.abandon() Response.Redirect("../Index.shtml") End If %> <% If Request.QueryString("Sec") = "" or Request.QueryString("Sec") = "Home" Then %> <% End If %> <% If Request.QueryString("Sec") = "Pwd" Then %> <% If Request.QueryString("Msg") = "Done" Then %> <% ElseIf Request.QueryString("Msg") = "Failed" Then %> <% ElseIf Request.QueryString("Msg") = "Confirm" Then %> <% ElseIf Request.QueryString("Msg") = "BadPass" Then %> <% End If%> <% End If %> <% If Request.QueryString("Sec") = "Profile" Then Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members")) memName = Rs("memName") memFamily = Rs("memFamily") memUser = Rs("memUser") memPass = Rs("memPass") memEmail = Rs("memEmail") memTel = Rs("memTel") memFax = Rs("memFax") memMobile = Rs("memMobile") memPBox = Rs("memPBox") memPCode = Rs("memPCode") memAddr = Rs("memAddr") memCountry = Rs("memCountry") memCity = Rs("memCity") memWeb = Rs("memWeb") memIsML = Rs("memIsML") memCredit = Rs("memCredit") memJoinDate = Rs("memJoinDate") memCo = Rs("memCo") memState = Rs("memState") %> <% If Request.QueryString("Msg") = "Done" Then %> <% ElseIf Request.QueryString("Msg") = "Failed" Then %> <% End If %> <% End If %> <% If Request.QueryString("Sec") = "Contracts" Then Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members")) this_MemCredit = Rs("memCredit") %> <% If Request.QueryString("SubSec") = "" Then %> <% End If %> <% '--------- 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 reqCoID = Clean(Request.QueryString("ID")) reqCoID = Trim(reqCoID) '--------- Clean String (Prevent SQL Injection Attacks) --------------- If Request.QueryString("SubSec") = "Renew" Then Set Rs = Conn.Execute("Select * From tblContracts Where memID = "&Session("Members")&" and coID = "&reqCoID) If Rs.BOF = True and Rs.EOF = True Then Response.Redirect("Index.shtml?Sec=Contracts") End IF coType = Rs("coType") coYears = Rs("coYears") coCreDate = Rs("coCreDate") coExpDate = Rs("coExpDate") coPrice = Rs("coPrice") coID = Rs("coID") remDay = DateDiff("d",Date,coExpDate) pstDay = DateDiff("d",coCredate,Date) coStatus = Rs("coStatus") coPlans = Rs("coPlan") coDis = Rs("coDis") If Not coType = "Host" Then coDomain = Rs("coDomain") coDomainPlan = Rs("coDomainPlan") Set dmRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&coDomainPlan) coDomainName = coDomain & dmRs("dpName") End If If Not coType = "Domain" Then Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&coPlans) coPlanName = pRs("pName") End If %> <% End If %> <% '--------- 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 reqCoID = Clean(Request.QueryString("ID")) reqCoID = Trim(reqCoID) '--------- Clean String (Prevent SQL Injection Attacks) --------------- If Request.QueryString("SubSec") = "Upgrade" Then Set Rs = Conn.Execute("Select * From tblContracts Where memID = "&Session("Members")&" and coID = "&reqCoID) If Rs.BOF = True and Rs.EOF = True Then Response.Redirect("Index.shtml?Sec=Contracts") End IF coType = Rs("coType") coYears = Rs("coYears") coCreDate = Rs("coCreDate") coExpDate = Rs("coExpDate") coPrice = Rs("coPrice") coID = Rs("coID") remDay = DateDiff("d",Date,coExpDate) pstDay = DateDiff("d",coCredate,Date) coStatus = Rs("coStatus") coPlans = Rs("coPlan") coDis = Rs("coDis") If coType = "Domain" Then Response.Redirect("Index.shtml?Sec=Contracts") End If If Not coType = "Host" Then coDomain = Rs("coDomain") coDomainPlan = Rs("coDomainPlan") Set dmRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&coDomainPlan) coDomainName = coDomain & dmRs("dpName") End If If Not coType = "Domain" Then Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&coPlans) coPlanName = pRs("pName") coPlanSpace = pRs("pSpace") End If %> <% End If %> <% End If %> <% If Request.QueryString("Sec") = "Payment" Then Set Rs = Conn.Execute("Select * From tblMembers Where memID = "&Session("Members")) ThismemCredit = Rs("memCredit") ThismemName = Rs("memName") ThismemFamily = Rs("memFamily") ThismemCo = Rs("memCo") Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'In' and memID = "&Session("Members")&" Order by logPrice DESC") If Rs.BOF = true and Rs.EOF = true Then Else MaxLogPriceIN = Rs("logPrice") MaxLogINDate = Rs("logDateF") MaxLogINTime = Rs("logTime") End If Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'Out' and memID = "&Session("Members")&" Order by logPrice DESC") If Rs.BOF = true and Rs.EOF = true Then Else MaxLogPriceOut = Rs("logPrice") MaxLogOutDate = Rs("logDateF") MaxLogOutTime = Rs("logTime") End If Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'Out' and memID = "&Session("Members")) totalOut = 0 While Not Rs.EOF totalOut = totalOut + Rs("logPrice") Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'In' and memID = "&Session("Members")) totalIN = 0 While Not Rs.EOF totalIN = totalIN + Rs("logPrice") Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'In' and memID = "&Session("Members")&" Order by logID DESC") If Rs.BOF = True and Rs.EOF = True Then Else LastIN = Rs("logPrice") LastINDate = Rs("logDateF") LastINTime = Rs("logTime") End If Set Rs = Conn.Execute("Select * From tblPayLogs Where logType = 'Out' and memID = "&Session("Members")&" Order by logID DESC") If Rs.BOF = True and Rs.EOF = True Then Else LastOut = Rs("logPrice") LastOutDate = Rs("logDateF") LastOutTime = Rs("logTime") End If %> <% If Request.QueryString("SubSec") = "" Then '--------------------------------// 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 iFD = DateShamsi '--------------------------------// Convert Milady to Shamsi Date //-------------------- %> <% End IF %> <% If Request.QueryString("SubSec") = "AddCredit" Then %> <% End If %> <% End If %> <% If Request.QueryString("Sec") = "Requests" Then tb = 0 tr = 0 tu = 0 tc = 0 Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqStatus = 'No' and reqCat = 'Host' and reqFor = 'Buy' Order by reqID DESC") While Not Rs.EOF tb = tb + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqStatus = 'No' and reqCat = 'Host' and reqFor = 'Renew' Order by reqID DESC") While Not Rs.EOF tr = tr + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqStatus = 'No' and reqCat = 'Host' and reqFor = 'Upgrade' Order by reqID DESC") While Not Rs.EOF tu = tu + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblPayReqs Where memID = "&Session("Members")) While Not Rs.EOF tc = tc + 1 Rs.MoveNext Wend %> <% End If %> <% If Request.QueryString("Sec") = "PM" Then NewPM = 0 TotalPM = 0 SentPM = 0 Set Rs = Conn.Execute("Select * From tblPM Where pmTo = "&Session("Members")) While Not Rs.EOF TotalPM = TotalPM+ 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblPM Where pmStatus = 'New' and pmTo = "&Session("Members")) While Not Rs.EOF NewPM = NewPM + 1 Rs.MoveNext Wend Set Rs = Conn.Execute("Select * From tblSentPM Where pmFrom = "&Session("Members")) While Not Rs.EOF SentPM = SentPM + 1 Rs.MoveNext Wend %> <% End If %>

id="current" <%End If%> style="margin-left: 1px">شروع
id="current" <%End If%>>تغییر کلمه رمز
id="current" <%End If%>>مشخصات
id="current" <%End If%>>قرارداد ها
id="current" <%End If%>>مدیریت مالی
id="current" <%End If%>>در خواست ها(<%=totalNewReqs%>)
id="current" <%End If%>>پیام خصوصی(<%=totalNewPM%>)

آخرین ورود شما به بانی هاست در تاریخ <%=Request.Cookies("BHMem_Log")("LastDate")%> - ساعت <%=Request.Cookies("BHMem_Log")("LastTime")%> با <%="IP:"&Request.Cookies("BHMem_Log")("LastIP")%> بوده است.

مشخصات

مشاهده / تغییر مشخصات

پیام خصوصی

مشاهده / ارسال پیام خصوصی

مدیریت مالی

کارکرد حساب / افزایش موجودی

قراردادها

مشاهده / تمدید / ارتقاء قرارداد

پیام سیستم: کلمه رمز شما با موفقیت تغییر داده شد.

پیام سیستم: کلمه رمز فعلی وارد شده با کلمه رمز ذخیره شده در بانک اطلاعاتی مطابقت ندارد. لطفا دوباره سعی کنید.

پیام سیستم: کلمه رمز جدید و تکرار آن با هم یکسان نیستند. لطفا دوباره سعی کنید.

پیام سیستم: برای کلمه رمز نمی توانید از کاراکتر های مخصوص و فاصله استفاده کنید و باید بیش از 6 حرف باشد.

- کلمه رمز فعلی:
- کلمه رمز جدید:
- تکرار رمز جدید:

پیام سیستم: تغییرات مشخصات حساب کاربری شما در بانی هاست با موفقیت انجام شد.

پیام سیستم: لطفا خطاهای ذکر شده را در فرم اصلاح کنید و دوباره سعی کنید.

<% If Not Request.QueryString("Err_Name") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_Family") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_Email") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_Email2") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_City") = "" Then %> <% End If %>

- نام:	لطفا نام کوچک خود را به فارسی وارد کنید.
- نام خانوادگی:	لطفا نام خانوادگی خود را به فارسی وارد کنید.
- آدرس ایمیل:	آدرس ایمیل وارد شده معتبر نمی باشد. - مثال: you@somewhere.com
- آدرس ایمیل:	آدرس ایمیل وارد شده قبلا توسط شخص دیگری ثبت شده است. لطفا یک آدرس ایمیل دیگر وارد کنید.
- نام شهر:	لطفا نام شهر محل سکونت خود را وارد کنید.

- نام کاربری:

<%=memUser%>

- نام*:

نام کوچک شما به فارسی

- نام خانوادگی*:

نام خانوادگی شما به فارسی

- آدرس ایمیل معتبر*:

آدرس ایمیل معتبر - برای تماس و ارسال گزارش

- نام شرکت:

نام شرکت(اشخاص حقوقی)

- تلفن:

مثال: 88885551 21 98+

- نمابر:

مثال: 88885551 21 98+

- تلفن همراه:

مثال: 2222222 912 98+

- کشور:

- استان:

- شهر*:

- صندوق پستی:

- کد پستی:

- آدرس:

- وب سایت:

http://

- عضویت در خبر نامه:

> بله

> خبر

<%If Request.QueryString("Msg") = "Renew_Done" Then%> <% End IF%> <%If Request.QueryString("Msg") = "Upgrade_Done" Then%> <% End IF%>

در این قسمت لیست قراردادهای هاست / دامین را مشاهده می کنید.

پیام سیستم

درخواست "تمدید" قرارداد شما با موفقیت ثبت شد. و بخش فروش بانی هاست آن را بررسی و نتیجه آن به شما اعلام خواهد شد.

برای پیگیری درخواست خود و دیدن لیست درخواست تمدید/ارتقا/خرید خود اینجا را کلیک کنید

پیام سیستم

درخواست "ارتقاء" قرارداد هاستینگ شما با موفقیت ثبت شد و بخش فروش بانی هاست آن را بررسی و نتیجه آن به شما اعلام خواهد شد.

برای پیگیری درخواست خود و دیدن لیست درخواست تمدید/ارتقا/خرید خود اینجا را کلیک کنید

<% i=0 Set Rs = Conn.Execute("Select * From tblContracts Where memID = "&Session("Members")&" Order by coID DESC") While Not Rs.EOF i=i+1 coType = Rs("coType") coYears = Rs("coYears") coCreDate = Rs("coCreDate") coExpDate = Rs("coExpDate") coPrice = Rs("coPrice") coID = Rs("coID") remDay = DateDiff("d",Date,coExpDate) pstDay = DateDiff("d",coCredate,Date) coStatus = Rs("coStatus") coPlans = Rs("coPlan") coDis = Rs("coDis") If Not coType = "Host" Then coDomain = Rs("coDomain") coDomainPlan = Rs("coDomainPlan") Set dmRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&coDomainPlan) coDomainName = coDomain & dmRs("dpName") End If If Not coType = "Domain" Then Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&coPlans) coPlanName = pRs("pName") End If %> <% Rs.MoveNext Wend %>

توضیح	تاریخ شروع	تاریخ انقضا	مبلغ پرداختی+تخفیف	تمدید / ارتقاء
<%If coType = "Host" Then Response.Write("No Domain") Else Response.Write(""&coDomainName&"") End If%> - <%=Replace(coType,"HostAndDomain","Host and Domain")%><%If Not coType = "Domain" Then%>(<%=coPlanName%>)<%End If%> - <%=coYears%> Year - <%=Replace(coStatus,"Active","Active")%>	<%=coCreDate%>	<%=coExpDate%> <% If coStatus = "Active" Then %> - <%=remDay%> روز مانده <% End If %>	(%<%=coDis%>) <%=coPrice%>	<%If coStatus = "Active" Then%> <%If Not remDay > 16 Then%><% End IF%>.gif" width="16" height="16"><%If Not remDay > 16 Then%><%End If%> / <% If Not coType = "Domain" Then%> <% End If%> .gif" width="16" height="16"> <% If Not coType = "Domain" Then%> <% End If %> <% Else %> <%=coStatus%> <% End If%>

- برای " تمدید" یا " ارتقاء" قرارداد مورد نظر بر روی تصویر(Icon) مربوطه کلیک کنید.

- موجودی حساب شما در حال حاضر مبلغ <%=this_MemCredit%> ریال می باشد.

- تصویر درخواست تمدید قرارداد (

) زمانی که تنها 15 روز یا کمتر به "تاریخ انقضا" قرارداد باقی مانده باشد فعال خواهد شد.

- قرارداد های نوع دامین قابل ارتقاء نیستند.

لطفا مدت تمدید قرارداد را در فرم زیر مشخص کرده و بر روی دکمه تایید کلیک کنید تا درخواست تمدید شما ثبت شود.

بازگشت >>

توجه: موجودی شما در حال حاضر <%=this_MemCredit%> ریال می باشد. برای افزایش موجودی حساب خود اینجا را کلیک کنید

توضیح

<%If coType = "Host" Then Response.Write("No Domain") Else Response.Write(""&coDomainName&"") End If%> - <%=Replace(coType,"HostAndDomain","Host and Domain")%><%If Not coType = "Domain" Then%>(<%=coPlanName%>)<%End If%> - <%=coYears%> Year (تاریخ انقضا: <%=coExpDate%> <% If coStatus = "Active" Then %> - <%=remDay%> روز مانده <% End If %>)

فرم درخواست تمدید

- مدت(سال):

پلان هاست قرار داد شما در حال حاضر <%=coPlanName%> <%=coPlanSpace%> می باشد.

بازگشت >>

توجه: موجودی شما در حال حاضر <%=this_MemCredit%> ریال می باشد. برای افزایش موجودی حساب خود اینجا را کلیک کنید

توضیح

فرم ارتقاء پلان هاست

- انتخاب پلان جدید :

در این قسمت گزارش مالی کامل حساب تان در بانی هاست را مشاهده کنید.

&FD=<%=Replace(iFD," "," ")%>','AddCredit','width=600,height=180,top=80,left=100,right=100,scrollbars=no,resizable=no')">

- موجودی حساب: <%=ThismemCredit%> ریال	- بیشترین مبلغ مصرف: <%=MaxLogPriceOut%> ریال در تاریخ <%=MaxLogOutDate%> ساعت <%=MaxLogOutTime%>
- مجموع مصرف شده: <%=totalOut%> ریال	- آخرین برداشت: <%=LastOut%> ریال در تاریخ <%=LastOutDate%> ساعت <%=LastOutTime%>
- مجموع واریز شده: <%=totalIN%> ریال	- آخرین واریز: <%=LastIN%> ریال در تاریخ <%=LastINDate%> ساعت <%=LastINTime%>
- بیشترین مبلغ واریز: <%=MaxLogPriceIN%> ریال در تاریخ <%=MaxLogINDate%> ساعت <%=MaxLogINTime%>

توجه: اگر امکان ثبت "درخواست افزایش موجودی" به صورت آنلاین را ندارید می توانید تصویر فیش واریزی به بانک را به همرا نام کاربری تان به شماره 88207719 021 فکس کنید.

شماره حساب شرکت: 83418346 بانک تجارت شعبه توانیر تهران کد 832

گزارش کارکر حساب:

<% NowCredit = ThismemCredit Set Rs = Conn.Execute("Select * From tblPayLogs Where memID = "&Session("Members")&" Order by logID DESC") While Not Rs.EOF logPrice = Rs("logPrice") logType = Rs("logType") logFor = Rs("logFor") logDetail = Rs("logDetail") logDate = Rs("logDateF") logTime = Rs("logTime") If logType = "Out" Then iBG = "#FFFFCC" OldCredit = Int(NowCredit) + Int(logPrice) Else OldCredit = Int(NowCredit) - Int(logPrice) iBG = "#E1F0FF" End If NowCredit = OldCredit If logType = "Out" Then DisCredit = Int(NowCredit) - Int(logPrice) Else DisCredit = Int(NowCredit) + Int(logPrice) End If %> <% Rs.MoveNext Wend %>

نوع سند	بابت	شرح عملیات	تاریخ	ساعت	مبلغ(ریال)	موجودی(ریال)
" width="16" height="16">	<%=logFor%>	<%=logDetail%>	<%=logDate%>	<%=logTime%>	<%=logPrice%>	<%=DisCredit%>

فرم درخواست افزایش موجودی(شارژ حساب)

بازگشت >>

پیگیری درخواست های خرید/تمدید/ارتقاء

bgcolor="#0045A4"<% End If%>>

<%If Not Request.QueryString("SubSec") = "" Then%>

<%Else%>

<% End If%>

خرید(<%=tb%>)

bgcolor="#0045A4"<% End If%>>

<%If Not Request.QueryString("SubSec") = "Renew" Then%>

<%Else%>

<% End If%>

تمدید(<%=tr%>)

bgcolor="#0045A4"<% End If%>>

<%If Not Request.QueryString("SubSec") = "Upgrade" Then%>

<%Else%>

<% End If%>

ارتقاء(<%=tu%>)

bgcolor="#0045A4"<% End If%>>

<%If Not Request.QueryString("SubSec") = "AddCredit" Then%>

<%Else%>

<% End If%>

افزایش موجودی(<%=tc%>)

<% If Request.QueryString("SubSec") = "" Then %> <% End If %> <% If Request.QueryString("SubSec") = "Renew" Then %> <% End If %> <% If Request.QueryString("SubSec") = "Upgrade" Then %> <% End If %> <% If Request.QueryString("SubSec") = "AddCredit" Then %> <% End If %>

<% Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqCat = 'Host' and reqFor = 'Buy' Order by reqID DESC") i=0 While Not Rs.EOF i=i+1 reqStatus = Rs("reqStatus") reqID = Rs("reqID") reqType = Rs("reqType") 'Host/Domain/HostAndDomain reqDate = Rs("reqDateF") reqTime = Rs("reqTime") reqMemID = Rs("memID") reqYears = Rs("reqYears") If Not reqType = "Host" Then reqDomain = Rs("reqDomain") reqDomainPlan = Rs("reqDomainPlan") Set dpRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&reqDomainPlan) reqDomain = reqDomain & dpRs("dpName") End If If Not reqType = "Domain" Then reqPlan = Rs("reqPlan") Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&reqPlan) reqPlanName = pRs("pName") End If Set memRs = Conn.Execute("Select * From tblMembers Where memID = "&reqMemID) If memRs.BOF = True and memRs.EOF = True Then Response.Redirect("Error.shtml?Msg=Fatal Error: Member ID is not Valid!") End If memCredit = memRs("memCredit") If memRs("memCo") = "" or isNULL(memRs("memCo")) Then memFullName = memRs("memName")&" "&memRs("memFamily") Else memFullName = memRs("memCo") End If %> <% Rs.MoveNext Wend %>

لیست درخواست های "خرید"

تاریخ درخواست: <%=reqDate%> - زمان: <%=reqTime%>

<% If reqType = "Domain" Then%>ثبت دامین - <%=ReqYears%> ساله<%End If%> <% If reqType = "Host" Then%>خرید هاست بدون دامین - <%=ReqYears%> ساله<%End If%> <% If reqType = "HostAndDomain" Then%>خرید هاست با دامین - <%=ReqYears%> ساله<%End If%>

- نام دامنه: <% If reqType = "Host" Then%> ندارد <% Else %> <%=reqDomain%> <% End If %>

- پلان هاست: <%If reqType = "Domain" Then %> ندارد <%Else%> <%=reqPlanName%> <%End If%>

وضعیت: <% If reqStatus = "Yes" Then%> رسیدگی شده <% Else %> رسیدگی نشده <% End If %> / مشاهده جواب

<% If reqStatus = "No" Then%>

<% Else %>

<% End If %>

<% Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqCat = 'Host' and reqFor = 'Renew' Order by reqID DESC") i=0 While Not Rs.EOF i=i+1 reqCoID = Rs("coID") Set rcRs = Conn.Execute("Select * From tblContracts Where coID = "&reqCoID) If rcRs.BOF = True and rcRs.EOF = True Then Response.Redirect("Error.shtml?Msg=Fatal Error: Request CoID is not Valid") End If reqID = Rs("reqID") reqCoType = rcRs("coType") 'Host/Domain/HostAndDomain reqDate = Rs("reqDateF") reqTime = Rs("reqTime") reqMemID = Rs("memID") reqYears = Rs("reqYears") reqStatus = Rs("reqStatus") If Not reqCoType = "Host" Then reqDomain = rcRs("coDomain") reqDomainPlan = rcRs("coDomainPlan") Set dpRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&reqDomainPlan) reqDomain = reqDomain & dpRs("dpName") End If If Not reqCoType = "Domain" Then reqPlan = rcRs("coPlan") Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&reqPlan) reqPlanName = pRs("pName") End If Set memRs = Conn.Execute("Select * From tblMembers Where memID = "&reqMemID) If memRs.BOF = True and memRs.EOF = True Then Response.Redirect("Error.shtml?Msg=Fatal Error: Member ID is not Valid!") End If memCredit = memRs("memCredit") If memRs("memCo") = "" or isNULL(memRs("memCo")) Then memFullName = memRs("memName")&" "&memRs("memFamily") Else memFullName = memRs("memCo") End If %> <% Rs.MoveNext Wend %>

لیست درخواست های "تمدید"

تاریخ درخواست: <%=reqDate%> - زمان: <%=reqTime%>

<% If reqCoType = "Domain" Then%>تمدید دامین - <%=ReqYears%> ساله<%End If%> <% If reqCoType = "Host" Then%>تمدید هاست بدون دامین - <%=ReqYears%> ساله<%End If%> <% If reqCoType = "HostAndDomain" Then%>تمدید هاست با دامین - <%=ReqYears%> ساله<%End If%>

- نام دامنه: <% If reqCoType = "Host" Then%> ندارد <% Else %> <%=reqDomain%> <% End If %>

- پلان هاست: <%If reqCoType = "Domain" Then %> ندارد <%Else%> <%=reqPlanName%> <%End If%>

وضعیت: <% If reqStatus = "Yes" Then%> رسیدگی شده <% Else %> رسیدگی نشده <% End If %> / مشاهده جواب

<% If reqStatus = "No" Then%>

<% Else %>

<% End If %>

<% Set Rs = Conn.Execute("Select * From tblRequests Where memID = "&Session("Members")&" and reqCat = 'Host' and reqFor = 'Upgrade' Order by reqID DESC") i=0 While Not Rs.EOF i=i+1 reqCoID = Rs("coID") Set rcRs = Conn.Execute("Select * From tblContracts Where coID = "&reqCoID) If rcRs.BOF = True and rcRs.EOF = True Then Response.Redirect("Error.shtml?Msg=Fatal Error: Request CoID is not Valid") End If reqStatus = Rs("reqStatus") reqNewPlan = Rs("reqNewPlan") reqID = Rs("reqID") reqCoType = rcRs("coType") 'Host/Domain/HostAndDomain reqDate = Rs("reqDateF") reqTime = Rs("reqTime") reqMemID = Rs("memID") reqYears = Rs("reqYears") If Not reqCoType = "Host" Then reqDomain = rcRs("coDomain") reqDomainPlan = rcRs("coDomainPlan") Set dpRs = Conn.Execute("Select * From tblDomainPlans Where dpID = "&reqDomainPlan) reqDomain = reqDomain & dpRs("dpName") End If If Not reqCoType = "Domain" Then reqPlan = rcRs("coPlan") Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&reqPlan) reqPlanName = pRs("pName") Set pRs = Conn.Execute("Select * From tblPlans Where pID = "&reqNewPlan) reqNewPlanName = pRs("pName") End If Set memRs = Conn.Execute("Select * From tblMembers Where memID = "&reqMemID) If memRs.BOF = True and memRs.EOF = True Then Response.Redirect("Error.shtml?Msg=Fatal Error: Member ID is not Valid!") End If memCredit = memRs("memCredit") If memRs("memCo") = "" or isNULL(memRs("memCo")) Then memFullName = memRs("memName")&" "&memRs("memFamily") Else memFullName = memRs("memCo") End If %> <% Rs.MoveNext Wend %>

لیست درخواست های "تمدید"

تاریخ درخواست: <%=reqDate%> - زمان: <%=reqTime%>

<% If reqCoType = "Domain" Then%>ارتقاء دامین<%End If%> <% If reqCoType = "Host" Then%>ارتقاء قرارداد هاست بدون دامین<%End If%> <% If reqCoType = "HostAndDomain" Then%>ارتقاء قرارداد هاست با دامین<%End If%>

- نام دامنه: <% If reqCoType = "Host" Then%> ندارد <% Else %> <%=reqDomain%> <% End If %>

- پلان هاست قبلی: <%If reqCoType = "Domain" Then %> ندارد <%Else%> <%=reqPlanName%> <%End If%> - پلان هاست جدید: <%=reqNewPlanName%>

وضعیت: <% If reqStatus = "Yes" Then%> رسیدگی شده <% Else %> رسیدگی نشده <% End If %> / مشاهده جواب

<% If reqStatus = "No" Then%>

<% Else %>

<% End If %>

<% Set Rs = Conn.Execute("Select * From tblPayReqs Where memID = "&Session("Members")) While Not Rs.EOF prFish = Rs("prFish") prDateF = Rs("prDateF") prTime = Rs("prTime") prFishPic = Rs("prFishPic") prPrice = Rs("prPrice") prID = Rs("prID") %> <% Rs.MoveNext Wend %>

شماره فیش(دیدن تصویر فیش)	مبلغ	تاریخ	وضعیت
<%=prFish%>	<%=prPrice%> ریال	<%=prDateF%> - زمان: <%=prTime%>

مدیریت پیام های خصوصی (مجموع پیام های دریافتی: <%=TotalPM%> - پیام های جدید: <%=NewPM%>)

<% If Request.QueryString("SubSec") = "" Then %> <% End If %> <% If Request.QueryString("SubSec") = "Sent" Then %> <% End If %> <% If Request.QueryString("SubSec") = "NewPM" Then %> <% End If %>

id="current" <%End If%> style="margin-left: 1px"> پیام های دریافتی(<%=NewPM%>)
id="current" <%End If%>> پیام های ارسالی(<%=SentPM%>)
id="current" <%End If%>> ارسال پیام جدید

<% iSQL = "Select * From tblPM Where pmTo = "&Session("Members")&" Order by pmID DESC" Set Rs = Server.CreateObject ("ADODB.Recordset") Rs.CuRsorType = 1 Rs.LockType = 3 Rs.Open iSQL,Conn i=0 tp = 0 While Not Rs.EOF i=i+1 tp = tp +1 pmDateF = Rs("pmDateF") pmTime = Rs("pmTime") pmID = Rs("pmID") pmSubject = Rs("pmSubject") pmFrom = Rs("pmFrom") pmStatus = Rs("pmStatus") Set memRs = Conn.Execute("Select * From tblMembers Where memID = "&pmFrom) If Not pmFrom = 0 Then If memRs.BOF = True and memRs.EOF = True Then pmFromName = "Deleted - ID:"&pmFrom End IF pmFromName = memRs("memName")&" "&memRs("memFamily") Else pmFromName = "بانی هاست" End If %> <% Rs.MoveNext Wend %>

وضعیت	فرستنده	موضوع	زمان	تاریخ	حذف؟
	<%=pmFromName%><% If pmStatus = "New" Then %>(New)<%End If%>	<%=pmSubject%>	<%=pmTime%>	<%=pmDateF%>

<% iSQL = "Select * From tblSentPM Where pmFrom = "&Session("Members")&" Order by pmID DESC" Set Rs = Server.CreateObject ("ADODB.Recordset") Rs.CuRsorType = 1 Rs.LockType = 3 Rs.Open iSQL,Conn i=0 tp = 0 While Not Rs.EOF i=i+1 tp = tp +1 pmDateF = Rs("pmDateF") pmTime = Rs("pmTime") pmID = Rs("pmID") pmSubject = Rs("pmSubject") pmTo = Rs("pmTo") Set memRs = Conn.Execute("Select * From tblMembers Where memID = "&pmTo) If Not pmTo = 0 Then If memRs.BOF = True and memRs.EOF = True Then pmToName = "Deleted - ID:"&pmTo End IF pmToName = memRs("memName")&" "&memRs("memFamily") Else pmToName = "بانی هاست" End If %> <% Rs.MoveNext Wend %>

گیرنده	موضوع	زمان	تاریخ	حذف؟
<%=pmToName%>	<%=pmSubject%>	<%=pmTime%>	<%=pmDateF%>

<% If Request.QueryString("Msg") = "Done" Then %> <% End If %> <% If Request.QueryString("Msg") = "Failed" Then %> <% End If %>

پیام سیستم: پیام شما با موفقت ارسال شد.

پیام سیستم: لطفا خطاهای ذکر شده را در فرم اصلاح کنید و دوباره سعی کنید.

<% If Not Request.QueryString("Err_User") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_Subject") = "" Then %> <% End If %> <% If Not Request.QueryString("Err_Msg") = "" Then %> <% End If %>

- گیرنده:	نام کاربری وارد شده برای گیرنده معتبر نمی باشد. لطفا "نام کاربری" شخص مورد نظر را دوباره وارد کنید.
- موضوع:	لطفا موضوع پیام خود را وارد کنید.
- متن:	لطفا متن پیام را وارد کنید.

<%If coType = "Host" Then Response.Write("No Domain") Else Response.Write(""&coDomainName&"") End If%>توجه: برای ارتباط با "بانی هاست" کافیست در فیلد گیرنده این کلمه : BH را وارد کنید و برای ارتباط با دیگر اعضا هم "نام کاربری" عضو مورد نظر را وارد کنید.

<% If Request.QueryString("To") = "" Then wpmTo = "BH" Else wpmTo = Request.QueryString("To") End If %>

- گیرنده:	"نام کاربری" شخص دریافت کننده.
- موضوع:	">
- متن پیام: