%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Session.CodePage=65001%> <% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" '转换时间 时间格式化 Function formatDate(Byval t,Byval ftype) dim y, m, d, h, mi, s formatDate="" If IsDate(t)=False Then Exit Function y=cstr(year(t)) m=cstr(month(t)) If len(m)=1 Then m="0" & m d=cstr(day(t)) If len(d)=1 Then d="0" & d h = cstr(hour(t)) If len(h)=1 Then h="0" & h mi = cstr(minute(t)) If len(mi)=1 Then mi="0" & mi s = cstr(second(t)) If len(s)=1 Then s="0" & s select case cint(ftype) case 1 ' yyyy-mm-dd formatDate=y & "-" & m & "-" & d case 2 ' yy-mm-dd formatDate=right(y,2) & "-" & m & "-" & d case 3 ' mm-dd formatDate=m & "-" & d case 4 ' yyyy-mm-dd hh:mm:ss formatDate=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s case 5 ' hh:mm:ss formatDate=h & ":" & mi & ":" & s case 6 ' yyyy年mm月dd日 'formatDate=y & "年" & m & "月" & d & "日" case 7 ' yyyymmdd formatDate=y & m & d case 8 'yyyymmddhhmmss formatDate=y & m & d & h & mi & s end select End Function %> <% y=Trim(Request.QueryString("y")) m=Trim(Request.QueryString("m")) d=Trim(Request.QueryString("d")) z=Trim(Request.QueryString("z")) dayValue = y & "-" & m & "-1" BeginDate = y&"-"&m&"-"&d '加15天 tai2=DateAdd("d",26,BeginDate) tai2 = formatDate(tai2,1) ddt = year(tai2) & "-" & month(tai2) & "-1" tempdate = y&","&m&",0" tempadate = year(tai2)&","&month(tai2)&",0" '第二阶段 '下次月经 nextmc = DateAdd("d",z,BeginDate) '留泰初期 btai1_2 = DateAdd("d",12,nextmc) btai1_2_2 = day(btai1_2) btai2_2_date = DateAdd("d",7,btai1_2) btai2_2_date = formatDate(btai2_2_date,1) '留泰初期-月份 nexty = year(btai1_2) nextm = month(btai1_2) '留泰初期-月初 bdayValue = year(btai1_2) & "-" & month(btai1_2) & "-1" '留泰末期 'btai2_2 = DateAdd("d",z,btai1_2) 'btai2_2 = formatDate(btai2_2,1) '留泰末期-月初 bddt = year(btai2_2_date) & "-" & month(btai2_2_date) & "-1" 'Response.Write(nextmc) %>