ASP日期代码

ASP日期代码,第1张

<%

dim myweekday,mydate

mydate=now()

myweekday=weekday(now())

select case myweekday

case "1"

response.write ".星期天"

case "2"

response.write"星期1"

case "3"

response.write"星期2"

case "4"

response.write"..."

case "5"

response.write"..."

case "6"

response.write"总算到星期五了"

end select

这就是判断星期的代码,你可以

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

读取当前服务器时间的ASP代码是什么?

解析:

a=time()'短时间格式:12:25:21

a=date()'短日期格式:2006-10-12

a=now() '长时间格式:2006-10-12 12:25:21

直接保存成 asp文件 运行就可以

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />

<link href="http://purl.org/dc" rel="schema.DC" />

<title>日历</title

</head>

<body bgcolor="#FFFFFF">

<%

' 要调用的函数声明

'根据年份及月份得到每月的总天数

Function GetDaysInMonth(iMonth, iYear)

Select Case iMonth

Case 1, 3, 5, 7, 8, 10, 12

GetDaysInMonth = 31

Case 4, 6, 9, 11

GetDaysInMonth = 30

Case 2

If IsDate("February 29, " &iYear) Then

GetDaysInMonth = 29

Else

GetDaysInMonth = 28

End If

End Select

End Function

'得到一个月开始的日期.

Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)

Dim dTemp

dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)

GetWeekdayMonthStartsOn = WeekDay(dTemp)

End Function

'得到当前一个月的上一个月.

Function SubtractOneMonth(dDate)

SubtractOneMonth = DateAdd("m", -1, dDate)

End Function

'得到当前一个月的下一个月.

Function AddOneMonth(dDate)

AddOneMonth = DateAdd("m", 1, dDate)

End Function

' 函数声明结束

Dim dDate ' 日历显示的日期

Dim iDOW ' 每一月开始的日期

Dim iCurrent ' 当前日期

Dim iPosition ' 表格中的当前位置

' 得到选择的日期并检查日期的合法性

If IsDate(Request.QueryString("date")) Then

dDate = CDate(Request.QueryString("date"))

Else

If IsDate(Request.QueryString("month") &"-" &Request.QueryString("day") &"-" &Request.QueryString("year")) Then

dDate = CDate(Request.QueryString("month") &"-" &Request.QueryString("day") &"-" &Request.QueryString("year"))

Else

dDate = Date()

If Len(Request.QueryString("month")) <>0 Or Len(Request.QueryString("day")) <>0 Or Len(Request.QueryString("year")) <>0 Or Len(Request.QueryString("date")) <>0 Then

Response.Write "您所选择的日期格式不正确,系统会使用当前日期.<BR><BR>"

End If

End If

End If

'得到日期后我们先得到这个月的天数及这个月的起始日期.

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))

iDOW = GetWeekdayMonthStartsOn(dDate)

%>

<table width="180" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="5"></td>

</tr>

</table>

<table width="180" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td align="center" colspan="7"><table border="0" cellpadding="0" cellspacing="0"width="100%">

<tr>

<td height="22" align="right"><a href="rl.asp?date=<%= SubtractOneMonth(dDate) %>"><img src="../images/dot_left.gif" width="15" height="14" border="0" /></a></td>

<td align="center"><font color="999999"><b><%= MonthName(Month(dDate)) &" " &Year(dDate) %></b></font></td>

<td><a href="rl.asp?date=<%= AddOneMonth(dDate) %>"><img src="../images/dot_right.gif" width="15" height="14" border="0" /></a></td>

</tr>

</table></td>

</tr>

<tr>

<td width="25" height="22" align="center"><font

color="d08c00"><b>日</b></font></td>

<td width="25" align="center"><b><font color="999999">一</font></b></td>

<td width="25" align="center"><b><font color="999999">二</font></b></td>

<td width="25" align="center"><b><font color="999999">三</font></b></td>

<td width="25" align="center"><b><font color="999999">四</font></b></td>

<td width="25" align="center"><b><font color="999999">五</font></b></td>

<td width="25" align="center"><b><font color="d08c00">六</font></b></td>

</tr>

<%

' 如果这个月的起始日期不是周日的话就加空的单元.

If iDOW <>1 Then

Response.Write vbTab &"<TR>" &vbCrLf

iPosition = 1

Do While iPosition <iDOW

Response.Write vbTab &vbTab &"<TD> </TD>" &vbCrLf

iPosition = iPosition + 1

Loop

End If

' 绘制这个月的日历

iCurrent = 1

iPosition = iDOW

Do While iCurrent <= iDIM

' 如果是一行的开头就使用 TR 标记

If iPosition = 1 Then

Response.Write vbTab &"<TR>" &vbCrLf

End If

' 如果这一天是我们选择的日期就高亮度显示该日期.

If iCurrent = Day(dDate) Then

Response.Write vbTab &vbTab &"<TD BGCOLOR=#eeeeee height=18 align=center><B>" &iCurrent &"</B></TD>" &vbCrLf

Else

Response.Write vbTab &vbTab &"<TD height=18 align=center><A HREF=""./rl.asp?date=" &Month(dDate) &"-" &iCurrent &"-" &Year(dDate) &""">" &iCurrent &"</A></TD>" &vbCrLf

End If

' 如果满一周的话表格就另起一行

If iPosition = 7 Then

Response.Write vbTab &"</TR>" &vbCrLf

iPosition = 0

End If

iCurrent = iCurrent + 1

iPosition = iPosition + 1

Loop

' 如果一个月不是以周六结束则加上相应的空单元.

If iPosition <>1 Then

Do While iPosition <= 7

Response.Write vbTab &vbTab &"<TD> </TD>" &vbCrLf

iPosition = iPosition + 1

Loop

Response.Write vbTab &"</TR>" &vbCrLf

End If

%>

</table>

<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="5"></td>

</tr>

</table></td>

</tr>

</table>


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/626992.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-07-17
下一篇2023-07-17

发表评论

登录后才能评论

评论列表(0条)

    保存