3-11.asp

《动态网页设计基础教程》,胡杰,科学出版社

<%
Sub GenerateTerm()
Dim year,month,day

    year=DATEPART("YYYY",DATE())
    month=DATEPART("M",DATE())
    day=DATEPART("D",DATE())
    
    If month>=2 and month<=8 then
       Term="第二学期"
       TermYear=cstr(year-1)+ "至" + cstr(year) + "学年" 
    Else
       Term="第一学期"
       TermYear=cstr(year)+ "至" + cstr(year+1) + "学年"
    End If
    Response.Write "本学期是" & TermYear & Term
End Sub
Call GenerateTerm
%>