|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般程序|日历<style>
td{font-family:"宋体";font-size:9pt}
</style>
<bodybgcolor="eeeeee">
<tablewidth="180"cellpadding="0"cellspacing="1"bgcolor="dddddd"align=center>
<%
以下为ASP中经由过程该日历算法完成的详细代码
先判别是不是指定了一个年份和月份,没有则依据以后的年和月份显现
IfRequest("ReqDate")=""then
CurrentDate=Date
else
CurrentDate=Trim(Request("ReqDate"))
endif
pyear=year(CurrentDate)
pmonth=month(CurrentDate)
以下的代码天生日历显现的表格头内容
%>
<tralign="LEFT"bgcolor="#dddddd">
<tdwidth="14%"height="19"align="center">
<inputtype="button"value="<<"m",-1,CurrentDate)%>">
</td>
<tdcolspan="5"align="center">
<%=pyear%>年<%=pmonth%>月
</td>
<tdwidth="14%"align="center">
<inputtype="button"value=">>"m",1,CurrentDate)%>">
</td>
</tr>
<tralign="center"bgcolor="#CCCCCC">
<tdwidth="14%"height="19">日</td>
<tdwidth="14%">一</td>
<tdwidth="14%">二</td>
<tdwidth="14%">三</td>
<tdwidth="14%">四</td>
<tdwidth="14%">五</td>
<tdwidth="14%">六</td>
</tr>
<tralign=centerbgcolor=ffffffheight=19>
<%
因为ASP中没有猎取指定月共有几天的函数,因而我们必要经由过程其他算法来取得,算法实在很复杂,就是盘算一下要显现月份的1日至下个月的1日一共相差几天
fromDate=FormatDateTime(month(CurrentDate)&"/1/"&year(CurrentDate))
toDate=FormatDateTime(DateAdd("m",1,fromDate))
取得要显现月份的第一天为周几
nunmonthstart=weekday(fromDate)-1
取得要显现的1日至下个月的1日一共相差几天(月份一共有几天)
nunmonthend=DateDiff("d",fromDate,toDate)
判别显现日历必要用几行表格来显现(每行显现7天)
ifnunmonthstart+nunmonthend<36then
maxi=36
else
maxi=43
endif
轮回天生表格并显现
i=1
dowhilei<maxi
iv=i-nunmonthstart
ifi>nunmonthstartandi<=nunmonthend+nunmonthstartthen
假如为显现的是明天则用白色背景显现
ifiv=Day(now)andmonth(now)=pmonthandyear(now)=pyearthen
response.write("<tdalign=centerbgcolor=ffaaaa><ahref=#target=_blank>"&iv&"</a></td>")
else
response.write("<tdalign=center><ahref=#target=_blank>"&iv&"</a></td>")
endif
else
response.write("<td></td>")
endif
假如能被7整除(每行显现7个)则输入一个换行
ifimod7=0then
response.write("</tr><tralign=centerbgcolor=ffffffheight=19>")
endif
i=i+1
loop
%>
</table>
</body>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 |
|