[求助]这样的代码应该怎么写 - ASP技术论坛

jie65699242

等　级：新手上路
帖　子：9
专家分：0
注　册：2006-10-18

楼主

问题点数：0 回复次数：14

[求助]这样的代码应该怎么写

我架设了个影院系统。因为内部人有要求，想在特定时间开放部分特殊影片。
我想大家也知道是什么
开放时间是夜里0点到早晨6点。
要求读取的是服务器时间。
怎么写？谢谢大家。

搜索更多相关主题的帖子: 服务器　代码　系统　影院　

2006-10-18 23:45

jie65699242

等　级：新手上路
帖　子：9
专家分：0
注　册：2006-10-18

第 3 楼

得分:0

程序实现？
请说清楚挖。。。偶新手。。。
还有，代码我以前找到过，但是前几天格盘不小心丢了
碰巧这几天又要用。。。请帮忙啊

2006-10-18 23:55

hangxj

等　级：贵宾
威　望：29
帖　子：2045
专家分：0
注　册：2006-4-10

第 5 楼

得分:0

应该是先在数据库中设定时间段,然后用程序来控制吧?

http://www./

2006-10-19 10:04

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 7 楼

得分:0

在用户访问网页时读取现在的时间用now()函数，然后与影片开放时间进行比较，相等则开放不等就跳转到主页或自动关闭窗口。

2006-10-30 22:04

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 9 楼

得分:0

不过问题是楼主的影片还得有开放多长时间的设定吧？
这个程序的关键是DateDiff函数
[CODE]<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>DateDiff 函数</TITLE>
<META NAME=MS-HAID CONTENT="vsfctDateDiff">
<META HTTP-EQUIV="Content Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="语言参考">
<META NAME="Keywords" CONTENT="DateDiff 函数;决定日期;日期;时间间隔; vbUseSystem; vbSunday; vbMonday; vbTuesday; vbWednesday; vbThursday; vbFriday; vbSaturday; vbFirstJan1; vbFirstFourDays; vbFirstFullWeek">
<META NAME="Description" CONTENT="DateDiff 函数">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>




<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
Microsoft(R) Visual Basic(R) Scripting Edition 
DateDiff 函数
</TD>
<TD ALIGN=RIGHT>
<A HREF="vbstoc.htm">语言参考</A> 
<A HREF="default.htm" TARGET="_top">起始页</A> | <A HREF="vbsversion.htm">版本 2</A> 
</TD></TR>
</TABLE>

<A HREF="vsfctDateDiffC.htm">请参阅</A>
<HR noshade SIZE=1>
<H5>描述</H5>
<BLOCKQUOTE>
返回两个日期之间的时间间隔。
</BLOCKQUOTE>
<H5>语法</H5>
<BLOCKQUOTE>
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>参数</TD>
<TD>描述</TD></TR>
<TR VALIGN=TOP>
<TD>interval</TD>
<TD>必选。<A HREF="glossary.htm#defStringExpression">String expression</A> 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。</TD></TR>
<TR VALIGN=TOP>
<TD>date1, date2</TD>
<TD>必选。日期表达式。用于计算的两个日期。</TD></TR>
<TR VALIGN=TOP>
<TD>firstdayofweek</TD>
<TD>可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。</TD></TR>
<TR VALIGN=TOP>
<TD>firstweekofyear</TD>
<TD>可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。</TD></TR></TABLE>

</BLOCKQUOTE>

<H5>设置</H5>
<BLOCKQUOTE>
interval 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD WIDTH=15%>设置</TD>
<TD>描述</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>yyyy</TD>
<TD>年</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>q</TD>
<TD>季度</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>n</TD>
<TD>月</TD></TR>
<TR VALIGN=TOP>
<TD>y</TD>
<TD>一年的日数</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>d</TD>
<TD>日</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>w</TD>
<TD>一周的日数</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>ww</TD>
<TD>周</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>h</TD>
<TD>小时</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>m</TD>
<TD>分钟</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>s</TD>
<TD>秒</TD></TR>
</TABLE>
firstdayofweek 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>常数</TD>
<TD WIDTH=10%>值</TD>
<TD WIDTH=75%>描述</TD></TR>
<TR VALIGN=TOP>
<TD>vbUseSystem</TD>
<TD ALIGN=CENTER WIDTH=10%>0</TD>
<TD WIDTH=75%>使用区域语言支持 (NLS) API 设置。</TD></TR>
<TR VALIGN=TOP>
<TD>vbSunday</TD>
<TD ALIGN=CENTER WIDTH=10%>1</TD>
<TD WIDTH=75%>星期日（默认）</TD></TR>
<TR VALIGN=TOP>
<TD>vbMonday</TD>
<TD ALIGN=CENTER WIDTH=10%>2</TD>
<TD WIDTH=75%>星期一</TD></TR>
<TR VALIGN=TOP>
<TD>vbTuesday</TD>
<TD ALIGN=CENTER WIDTH=10%>3</TD>
<TD WIDTH=75%>星期二</TD></TR>
<TR VALIGN=TOP>
<TD>vbWednesday</TD>
<TD ALIGN=CENTER WIDTH=10%>4</TD>
<TD WIDTH=75%>星期三</TD></TR>
<TR VALIGN=TOP>
<TD>vbThursday</TD>
<TD ALIGN=CENTER WIDTH=10%>5</TD>
<TD WIDTH=75%>星期四</TD></TR>
<TR VALIGN=TOP>
<TD>vbFriday</TD>
<TD ALIGN=CENTER WIDTH=10%>6</TD>
<TD WIDTH=87%>星期五</TD></TR>
<TR VALIGN=TOP>
<TD>vbSaturday</TD>
<TD ALIGN=CENTER WIDTH=10%>7</TD>
<TD WIDTH=75%>星期六</TD></TR>
</TABLE>
firstweekofyear 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>常数</TD>
<TD WIDTH=10%>值</TD>
<TD WIDTH=75%>描述</TD></TR>
<TR VALIGN=TOP>
<TD>vbUseSystem</TD>
<TD ALIGN=CENTER WIDTH=10%>0</TD>
<TD WIDTH=85%>使用区域语言支持 (NLS) API 设置。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstJan1</TD>
<TD ALIGN=CENTER WIDTH=10%>1</TD>
<TD WIDTH=85%>由 1 月 1 日所在的星期开始（默认）。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstFourDays</TD>
<TD ALIGN=CENTER WIDTH=10%>2</TD>
<TD WIDTH=85%>由在新年中至少有四天的第一周开始。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstFullWeek</TD>
<TD ALIGN=CENTER WIDTH=10%>3</TD>
<TD WIDTH=85%>由在新的一年中第一个完整的周开始。</TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>说明</H5>
<BLOCKQUOTE>
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。
如果 date1 晚于 date2，则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。
下面例子利用 DateDiff 函数显示给定日期和当天日期之间的天数:
<BLOCKQUOTE><PRE>Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function
</PRE></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>

<A HREF="/misc/cpyright.htm" TARGET="_top">(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use</A>.

</BODY></HTML>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML>
<HEAD>
<TITLE>DateDiff 函数</TITLE>
<META NAME=MS-HAID CONTENT="vsfctDateDiff">
<META HTTP-EQUIV="Content Type" CONTENT="text/html; charset=gb2312">
<META NAME="MS.LOCALE" CONTENT="ZH-CN">
<META NAME="PRODUCT" CONTENT="Visual Basic Scripting Edition">
<META NAME="TECHNOLOGY" CONTENT="SCRIPTING">
<META NAME="CATEGORY" CONTENT="语言参考">
<META NAME="Keywords" CONTENT="DateDiff 函数;决定日期;日期;时间间隔; vbUseSystem; vbSunday; vbMonday; vbTuesday; vbWednesday; vbThursday; vbFriday; vbSaturday; vbFirstJan1; vbFirstFourDays; vbFirstFullWeek">
<META NAME="Description" CONTENT="DateDiff 函数">
</HEAD>
<BODY BGCOLOR=FFFFFF LINK=#0033CC>




<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%><TR VALIGN=TOP><TD WIDTH=360>
Microsoft(R) Visual Basic(R) Scripting Edition 
DateDiff 函数
</TD>
<TD ALIGN=RIGHT>
<A HREF="vbstoc.htm">语言参考</A> 
<A HREF="default.htm" TARGET="_top">起始页</A> | <A HREF="vbsversion.htm">版本 2</A> 
</TD></TR>
</TABLE>

<A HREF="vsfctDateDiffC.htm">请参阅</A>
<HR noshade SIZE=1>
<H5>描述</H5>
<BLOCKQUOTE>
返回两个日期之间的时间间隔。
</BLOCKQUOTE>
<H5>语法</H5>
<BLOCKQUOTE>
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>参数</TD>
<TD>描述</TD></TR>
<TR VALIGN=TOP>
<TD>interval</TD>
<TD>必选。<A HREF="glossary.htm#defStringExpression">String expression</A> 表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。</TD></TR>
<TR VALIGN=TOP>
<TD>date1, date2</TD>
<TD>必选。日期表达式。用于计算的两个日期。</TD></TR>
<TR VALIGN=TOP>
<TD>firstdayofweek</TD>
<TD>可选。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。</TD></TR>
<TR VALIGN=TOP>
<TD>firstweekofyear</TD>
<TD>可选。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。</TD></TR></TABLE>

</BLOCKQUOTE>

<H5>设置</H5>
<BLOCKQUOTE>
interval 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD WIDTH=15%>设置</TD>
<TD>描述</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>yyyy</TD>
<TD>年</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>q</TD>
<TD>季度</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>n</TD>
<TD>月</TD></TR>
<TR VALIGN=TOP>
<TD>y</TD>
<TD>一年的日数</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>d</TD>
<TD>日</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>w</TD>
<TD>一周的日数</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>ww</TD>
<TD>周</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>h</TD>
<TD>小时</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>m</TD>
<TD>分钟</TD></TR>
<TR VALIGN=TOP>
<TD WIDTH=15%>s</TD>
<TD>秒</TD></TR>
</TABLE>
firstdayofweek 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>常数</TD>
<TD WIDTH=10%>值</TD>
<TD WIDTH=75%>描述</TD></TR>
<TR VALIGN=TOP>
<TD>vbUseSystem</TD>
<TD ALIGN=CENTER WIDTH=10%>0</TD>
<TD WIDTH=75%>使用区域语言支持 (NLS) API 设置。</TD></TR>
<TR VALIGN=TOP>
<TD>vbSunday</TD>
<TD ALIGN=CENTER WIDTH=10%>1</TD>
<TD WIDTH=75%>星期日（默认）</TD></TR>
<TR VALIGN=TOP>
<TD>vbMonday</TD>
<TD ALIGN=CENTER WIDTH=10%>2</TD>
<TD WIDTH=75%>星期一</TD></TR>
<TR VALIGN=TOP>
<TD>vbTuesday</TD>
<TD ALIGN=CENTER WIDTH=10%>3</TD>
<TD WIDTH=75%>星期二</TD></TR>
<TR VALIGN=TOP>
<TD>vbWednesday</TD>
<TD ALIGN=CENTER WIDTH=10%>4</TD>
<TD WIDTH=75%>星期三</TD></TR>
<TR VALIGN=TOP>
<TD>vbThursday</TD>
<TD ALIGN=CENTER WIDTH=10%>5</TD>
<TD WIDTH=75%>星期四</TD></TR>
<TR VALIGN=TOP>
<TD>vbFriday</TD>
<TD ALIGN=CENTER WIDTH=10%>6</TD>
<TD WIDTH=87%>星期五</TD></TR>
<TR VALIGN=TOP>
<TD>vbSaturday</TD>
<TD ALIGN=CENTER WIDTH=10%>7</TD>
<TD WIDTH=75%>星期六</TD></TR>
</TABLE>
firstweekofyear 参数可以有以下值：
<TABLE WIDTH=87% BORDER=1 CELLPADDING=5 CELLSPACING=0>
<TR VALIGN=TOP BGCOLOR="#DDDDDD">
<TD>常数</TD>
<TD WIDTH=10%>值</TD>
<TD WIDTH=75%>描述</TD></TR>
<TR VALIGN=TOP>
<TD>vbUseSystem</TD>
<TD ALIGN=CENTER WIDTH=10%>0</TD>
<TD WIDTH=85%>使用区域语言支持 (NLS) API 设置。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstJan1</TD>
<TD ALIGN=CENTER WIDTH=10%>1</TD>
<TD WIDTH=85%>由 1 月 1 日所在的星期开始（默认）。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstFourDays</TD>
<TD ALIGN=CENTER WIDTH=10%>2</TD>
<TD WIDTH=85%>由在新年中至少有四天的第一周开始。</TD></TR>
<TR VALIGN=TOP>
<TD>vbFirstFullWeek</TD>
<TD ALIGN=CENTER WIDTH=10%>3</TD>
<TD WIDTH=85%>由在新的一年中第一个完整的周开始。</TD></TR>
</TABLE>
</BLOCKQUOTE>
<H5>说明</H5>
<BLOCKQUOTE>
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。
如果 date1 晚于 date2，则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。
下面例子利用 DateDiff 函数显示给定日期和当天日期之间的天数:
<BLOCKQUOTE><PRE>Function DiffADate(theDate)
DiffADate = "从当天开始的天数:" & DateDiff("d", Now, theDate)
End Function
</PRE></BLOCKQUOTE>
</BLOCKQUOTE>
<hr noshade size=1>

<A HREF="/misc/cpyright.htm" TARGET="_top">(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use</A>.

</BODY></HTML>[/CODE]

2006-11-01 10:27