<% @language=vbscript%>
<%option explicit
dim count,FOO,FSO,P
P=server.Mappath("persian/count.txt")
set FSO=server.createobject("scripting.filesystemobject")
set FOO=FSO.OpenTextFile(P,1,0,0)
Count=FOO.read(7)
FOO.Close
if session("Miras")=0 then
set FOO=FSO.OpenTextFile(P,2,0,0)
FOO.write(Count+1)
FOO.close
end if
set FOO=nothing
set FSO=nothing
session("Miras")=1
%>
<%function Hijri(Dates)
Dim Month(13),weeks(8),d,m,fd,fm,fy,y,w,fw,n,fn
Month(1)="فروردين"
Month(2)="ارديبهشت"
Month(3)="خرداد"
Month(4)="تير"
Month(5)="مرداد"
Month(6)="شهريور"
Month(7)="مهر"
Month(8)="آبان"
Month(9)="آذر"
Month(10)="دي"
Month(11)="بهمن"
Month(12)="اسفند"
Weeks(7)="شنبه"
Weeks(1)="يكشنبه"
Weeks(2)="دوشنبه"
Weeks(3)="سهشنبه"
Weeks(4)="چهارشنبه"
Weeks(5)="پنجشنبه"
Weeks(6)="جمعه"
m=datepart("m",dates)
d=datepart("d",dates)
y=datepart("yyyy",dates)
w=datepart("w",dates)
n=datepart("y",dates)
if n<80 then fn=n+286 else fn=n-79
fw=Weeks(w)
if m=3 and d>=21 then fm=month(1):fd=d-20
if m=3 and d<21 then fm=month(12):fd=d+9
if m=4 and d>=21 then fm=month(2):fd=d-20
if m=4 and d<21 then fm=month(1):fd=d+11
if m=5 and d>=22 then fm=month(3):fd=d-21
if m=5 and d<22 then fm=month(2):fd=d+10
if m=6 and d>=22 then fm=month(4):fd=d-21
if m=6 and d<22 then fm=month(3):fd=d+10
if m=7 and d>=23 then fm=month(5):fd=d-22
if m=7 and d<23 then fm=month(4):fd=d+9
if m=8 and d>=23 then fm=month(6):fd=d-22
if m=8 and d<23 then fm=month(5):fd=d+9
if m=9 and d>=23 then fm=month(7):fd=d-22
if m=9 and d<23 then fm=month(6):fd=d+9
if m=10 and d>=23 then fm=month(8):fd=d-22
if m=10 and d<23 then fm=month(7):fd=d+8
if m=11 and d>=22 then fm=month(9):fd=d-21
if m=11 and d<22 then fm=month(8):fd=d+9
if m=12 and d>=22 then fm=month(10):fd=d-21
if m=12 and d<22 then fm=month(9):fd=d+9
if m=1 and d>=21 then fm=month(11):fd=d-20
if m=1 and d<21 then fm=month(10):fd=d+10
if m=2 and d>=21 then fm=month(12):fd=d-19
if m=2 and d<21 then fm=month(11):fd=d+11
if (m=3 and d>=21) or m>4 then fy=y-621 else fy=y-622
Hijri=fw&"، "&fd&" "&fm&" "&fy
end function%>
انجمن دوستداران ميراث فرهنگي گردشگري ورزنه
امروز: <%=hijri(date())%>ساعت:<%=time()%>
تعداد بازدیدکنندگان: <%=count%>
