chdate.asp
来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 22 行
ASP
22 行
<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 + =
减小字号Ctrl + -
显示快捷键?