| | 文章 | 下载 | 消防视频 | |
 |
最新公告： | 设为首页 | 加入收藏 |
 |
您现在的位置： 山西消防网 >> 下载 >> 友情链接 | <% Dim strTmp, iYear,iMonth,iDate iYear = Year(Date) iMonth = Month(Date) iDate = Day(Date) strTmp = CStr(iYear) & "年" If iMonth < 10 Then strTmp = strTmp & "0" & Cstr(iMonth) & "月" Else strTmp = strTmp & Cstr(iMonth) & "月" End If If iDate < 10 Then strTmp = strTmp & "0" & Cstr(iDate) Else strTmp = strTmp & Cstr(iDate) End If strTmp=strTmp & "日" response.write strTmp %> <%=WeekDayName(DatePart("w",Now))%> |
