<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
''----format the Language Status
''----格式化语言选项
if Request.QueryString("lang")="" then
lang="zh-cn"
else
lang=Request.QueryString("lang")
end if
''----Language List,You Can Add Your Own Language Here to Change The Default System Language
''----这里是目录列表，你可以在这里添加你自己国家的语言以适应您的需要
select case lang
case "zh-cn":
'/////////////////////////////////zh-cn Begin
lang_code = "gb2312"
lang_title = "女性安全期计算程序"
lang_versions = "Senlon"
lang_year = "年"
lang_month = "月"
lang_day = "日"
lang_days = "天"
lang_lastMenses = "上次月经时间"
lang_mensesCircle = "月经周期"
lang_mensesSpan = "月经持续期"
lang_ovulateDay = "排卵日"
lang_thisMenses = "这次月经时间"
lang_ovulateSpan = "排卵时期"
lang_safeFirst = "安全期(一)"
lang_safeSecond = "安全期(二)"
lang_calButton = "GO计算!"
lang_wrongInfo = "对不起，出现错误！"
lang_closeButton = "关闭"
lang_returnButton = "返回重新测试"
lang_aboutTitle = "关于本软件"
lang_aboutContent = "www.521yy.com"
'/////////////////////////////////zh-cn End
case "en":
'/////////////////////////////////zh-cn Begin
lang_code = "gb2312"
lang_title = "DDP GirlSafe Calculate Code"
lang_versions = "Version 1.0.0.0"
lang_year = "Y"
lang_month = "M"
lang_day = "D"
lang_days = "Days"
lang_lastMenses = "last Menses Time"
lang_mensesCircle = "Menses Circle"
lang_mensesSpan = "Span Time"
lang_ovulateDay = "Ovulate Day"
lang_thisMenses = "Menses of This Time"
lang_ovulateSpan = "Time of Ovulate"
lang_safeFirst = "First Safe Time"
lang_safeSecond = "Second Safe Time"
lang_calButton = "To Calculate!"
lang_wrongInfo = "Sorry,Some Error Occured!"
lang_closeButton = "Kill Me!"
lang_returnButton = "Return&Test Again!"
lang_aboutTitle = "About This Software"
lang_aboutContent = "521yy"
'/////////////////////////////////zh-cn End
'case "new_language":
'/////////////////////////////////new Language Begin
'lang_code = ""
'lang_title = ""
'lang_versions = "V 1.0.0.0"
'lang_year = ""
'lang_month = ""
'lang_day = ""
'lang_days = ""
'lang_lastMenses = ""
'lang_mensesCircle = ""
'lang_mensesSpan = ""
'lang_ovulateDay = ""
'lang_thisMenses = ""
'lang_ovulateSpan = ""
'lang_safeFirst = ""
'lang_safeSecond = ""
'lang_calButton = ""
'lang_wrongInfo = ""
'lang_closeButton = ""
'lang_returnButton = ""
'lang_aboutTitle = ""
'lang_aboutContent = ""
'/////////////////////////////////new Language End
case else :
Response.Write( "Error! back!")
Response.End()
end select
''----Now Is Our Lisence Area
''----这里是显示关于我们的地方
if Request("act") = "about " then
Response.Write(lang_aboutContent)
Response.End()
end if
''----Now Is The Calculate Functions
''----接下来是计算程序
if Request("y")<>"" then
circle = Request("circle")
span = Request("span")
y = Request("y")
m = Request("m")
d = Request("d")
date_lastMenses = Cdate( y & "-" & m & "-" & d )
date_thisMenses = DateAdd("d",date_lastMenses,circle)
ovulateDate = DateAdd("d",DateAdd("d",date_lastMenses,circle),-14)
ovulateFrom = DateAdd("d",ovulateDate,-5)
ovulateTo = DateAdd("d",ovulateDate,4)
Response.Write(lang_ovulateDay & ":" & ovulateDate &"
")
Response.Write(lang_ovulateSpan & ":" & ovulateFrom & " To " & ovulateTo & "
")
Response.Write(lang_thisMenses & ":" & date_thisMenses & " To " & DateAdd("d",date_thisMenses,span) & "
")
Response.Write(lang_safeFirst & ":"& DateAdd("d",date_lastMenses,span+1) &" To " & DateAdd("d",ovulateFrom,-1) & "
")
Response.Write(lang_safeSecond & ":"& DateAdd("d",ovulateTo,span+1) &" To " & DateAdd("d",date_thisMenses,-1) & "
")
Response.Write("" & lang_closeButton & " " &""& lang_returnButton &"
")
Response.End()
end if
%>
<%=lang_title & lang_versions%>
<%=lang_aboutTitle%>