<%
T = now ()
Function datetostr (T)
Dim Stryear, Strmonth, StRDAY, STRESULT
Stryear = year (t)
Strmonth = month (t)
strDay = day (t)
DateTostr = Casei (Stryear) & "Year" & Casei (Strmonth) & "Month" & Casei (STRDAY) & "Japan"
END FUNCTION
Function Casei (i)
DIM Arrnum, Arrcnnum
IF (ISNUMERIC (i)) THEN
Arrnum = Split (i)
Arrcnnum = split ("zero,,, 叁,,, land, 柒, 捌, 玖, 玖,", ")
IF (i <10 or i> 31) THEN
For it = 1 to Len (i)
Strresult = Strresult & Arrcnnum (CINT (MID (I, IT, 1))))
NEXT
Elseif (i> 9 and i <12) THEN
Strresult = "Pick up" & ArrcnnUM (CINT (MID (I, 2, 1)))))
Else
Strresult = ArrcnNUM (CINT (MID (I, 1, 1))) & "Pick" & ArrcnnUM (CINT (MID (I, 2, 1)))
END IF
END IF
Casei = Strresult
END FUNCTION
Response.write (DateTostr (T))
%>
