 |
|
您现在的位置: 山西消防网 >> 下载 >> 友情链接 |
<%
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))%>
|