一个提供用户输入时期的绝好程序之二 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 一个提供用户输入时期的绝好程序之二

一个提供用户输入时期的绝好程序之二 时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0)

DateSelect.asp 创立一个日历格式的。。。

<%@ LANGUAGE="VBSCRIPT" %>

<%

'Code Written by D. Scott Hand

'If any errors are found, please

'e-mail scott_hand@pobox.com with

'the error and the way the error

'was caused

'***Purpose:************

'* This is a page built to show calendar functionality.

'* Description:

'* This is the instantiated file toto

'* allow the user to select a date.

'***********************

If Request.Querystring("Page") <> "" Then

   PageName = Request.Querystring("Page")

   Session("PageName") = PageName

Else

   PageName = Session("PageName")

End If

If Request.Querystring("Form") <> "" Then

   FormName = Request.Querystring("Form")

   Session("FormName") = FormName

Else

   FormName = Session("FormName")

End If

If Request.Querystring("Element") <> "" Then

   ElementName = Request.Querystring("Element")

   Session("ElementName") = ElementName

Else

   ElementName = Session("ElementName")

End If

%>

Select Date

<%

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

BuildDate=Request.QueryString("Date")

Else

If Request.Querystring("BMonth") = "" Then

BMonth = Month(Now)

Else

BMonth = Request.Querystring("BMonth")

End If

If Request.QueryString("BYear") <> "" Then

BuildDate = BMonth & "/" & "1" & "/" & _

       Request.QueryString("BYear")

Else

BuildDate = BMonth & "/" & "1" & "/" & Right(Year(Now), 2)

End If

End If

Session("CurrentDate")=BuildDate

'This gives the position of weekday for that date

BuildDayValue = Weekday(BuildDate)

CurrentMonth = Month(BuildDate)

%>

<%

DayPosition=1

'Now loop through table build with blanks until first day of month

'is in position

For I = 1 to BuildDayValue-1

%>

<%

DayPosition=DayPosition+1

Next

Do Until CurrentMonth <> Month(BuildDate)

%>

<%

While DayPosition<>8

%>

<%

DayPosition=DayPosition+1

BuildDate=DateAdd("d", 1, BuildDate)

If CurrentMonth <> Month(BuildDate) then

DayPosition=8

End If

Wend

DayPosition=1

%>

<%

Loop

%>

<%=MonthName(CurrentMonth)%> <%=Year(BuildDate)%> <% 'BuildDate=DateAdd("d", -1, BuildDate) If CurrentMonth < 12 then NextMonth=CurrentMonth+1 & "&BYear=" & Year(BuildDate) Else NextMonth="1&BYear=" & Year(DateAdd ("yyyy", 1, BuildDate)) End if If CurrentMonth > 1 then PreviousMonth=CurrentMonth-1 & "&BYear=" & Year(BuildDate) Else PreviousMonth= "12&BYear=" & Year(DateAdd ("yyyy", -1, BuildDate)) End If %> size=-2><--Previous     Next-->
Su	Mo	size="-3">Tu	We	size="-3">Th	Fr	Sa
	onClick="<%Response.Write "calpopulate('" & Month(BuildDate) & "/" & Day(BuildDate) & "/" & Right(Year (BuildDate),2)%>')"> <%=Day(BuildDate)%>

文章评论

查看所有0条评论>>