<% SDATE = Request("Start") if SDATE = "" then SDATE=Date() SDATE=Year(SDATE) & "/" & Month(SDATE) & "/" & Day(SDATE) end if cid = Request("cid") pid = Request("pid") mode = Request("mode") If cid = "" Then cid = 0 End If If pid = "" Then pid = 0 End If PREVMONTH = DateAdd("m",-1,SDATE) NEXTMONTH = DateAdd("m",+1,SDATE) TODAY = Date() TODAY = Year(TODAY) & "/" & Month(TODAY) & "/" & Day(TODAY) PREVURL = "index.asp?cid=" & cid & "&Start=" & PREVMONTH & "&pid=" & pid & "&mode=" & mode & "" NEXTURL = "index.asp?cid=" & cid & "&Start=" & NEXTMONTH & "&pid=" & pid & "&mode=" & mode & "" TODAYURL= "index.asp?cid=" & cid & "&Start=" & TODAY & "&pid=" & pid & "&mode=" & mode & "" EVENTURL= "index.asp?cid=0&Start=" & SDATE & "&pid=0&mode=event" DISTRIURL= "index.asp?cid=0&Start=" & SDATE & "&pid=0&mode=distri" INFOURL= "index.asp?cid=0&Start=" & SDATE & "&pid=0&mode=info" On Error Resume Next Set objFile = Server.CreateObject("Scripting.FileSystemObject") sPathCountFile = Server.MapPath("counter\countall.txt") Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If iCount = iCount strmFile.Close sCount = right("000000" & CSTR(iCount), 6) sPathCountFile = Server.MapPath("counter\counttoday.txt") Set strmFile = objFile.OpenTextFile(sPathCountFile, 1, FALSE) If Err.Number > 0 Then iCount = 0 Else iCount = strmFile.ReadLine End If strmFile.Close tCount = right("000" & CSTR(iCount), 3) %> 大城小学校ホームページ
<% Response.Write PreviewMsg() %> <% Response.Write LastUpdate() %>
<% If mode="event" Then Response.Write MonthEvent(Year(SDATE),Month(SDATE),Day(SDATE),"index.asp","",cid,pid) ElseIf mode="distri" Then Response.Write Doc0(Year(SDATE),Month(SDATE),Day(SDATE),"index.asp",2) Response.Write Doc1(Year(SDATE),Month(SDATE),Day(SDATE),"index.asp",2) Response.Write Doc2(Year(SDATE),Month(SDATE),Day(SDATE),"index.asp",2) ElseIf mode="info" Then %> <% Else Response.Write Photo(Year(SDATE),Month(SDATE),Day(SDATE),cid,pid) End If %>
 
Since 2004/10/4
- CopyRight(C) Ohshiro Elementary School All Rights Reserved 2004 -