📄 chdate.asp
字号:
<HTML>
<BODY>
<%
D = Date
Response.Write "现在是: " & ChineseDate(D) & "<HR>"
%>
</BODY>
</HTML>
<%
Function ChineseDate( D )
Y = Year(D)
If Y > 1939 Then
ChineseDate = "解放后" & Y-1949 & "年"
Else
ChineseDate = "解放前" & (1949-Y+1) & "年"
End If
ChineseDate = ChineseDate & Month(D) & "月"
ChineseDate = ChineseDate & Day(D) & "日"
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -