json.asp
<%
'**********************************************************************************************
'* GAB_LIBRARY Copyright (C) 2003 - This file is part of GAB_LIBRARY
'* For licens
function CaculateWeekDay(y,m,d)
if m=1 then
m = 13
y = y-1
end if
if m=2 then
m = 14
y = y -1
end if
week=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7+1
weekstr=""
select case