|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP在国内异常流行,因为国内大多使用的是盗版的Windows和盗版的SQLServer,而ASP+COM+SQLServer实际上也是一种不错的搭配,其性能也不输于PHP+MYSQL,特别是Windows系统和SQLServer都有图形界面,比APACHE和MYSQL易于维护,因此对于不重视知识产权的国家来说也是一种不错的选择。纯ASP打造的日过程序,可自行丑化,这里仅供应最复杂的CSS款式。。。
<style>
body{font-size:12px;margin:20px0020px;padding:0}
tr,td{text-align:center;}
</style>
<%
=================================
申明:日历文件
=================================
掏出对应的年代博客日记数据
=======================
Ryear=CInt(request.querystring("year"))
Rmonth=CInt(request.querystring("month"))
IfRyear=0OrRyear=NULLThenRyear=year(now)
IfRmonth=0OrRmonth=NULLThenRmonth=month(now)
nowtime=Ryear&"-"&Rmonth&"-1"失掉本月第一天
nowyear=year(nowtime)年份
nowmonth=month(nowtime)月份
nowweekday=weekday(nowtime)-1以后星期
猎取2月天数
febdays=28
Ifnowyear/4=0Thenfebdays=29
猎取本月天数
Ifnowmonth=1then
monthdays=31
ElseIfnowmonth=2Then
monthdays=febdays
ElseIfnowmonth=3Then
monthdays=31
ElseIfnowmonth=4Then
monthdays=30
ElseIfnowmonth=5Then
monthdays=31
ElseIfnowmonth=6Then
monthdays=30
ElseIfnowmonth=7Then
monthdays=31
ElseIfnowmonth=8Then
monthdays=31
ElseIfnowmonth=9Then
monthdays=30
ElseIfnowmonth=10Then
monthdays=31
ElseIfnowmonth=11Then
monthdays=30
Else
monthdays=31
EndIf
calendar="<ahref=calendar.asp?year="&nowyear-1&"&month="&nowmonth&"><<</a>"
willshowmonthmonth=nowmonth
Ifwillshowmonthmonth-1<=0Thenwillshowmonthmonth=2
calendar=calendar&"<ahref=calendar.asp?year="&nowyear&"&month="&willshowmonthmonth-1&"><</a>"
Ifwillshowmonthmonth+1>12Thenwillshowmonthmonth=11
calendar=calendar&"<ahref=calendar.asp?year="&nowyear&"&month="&willshowmonthmonth+1&">></a>"
calendar=calendar&"<ahref=calendar.asp?year="&nowyear+1&"&month="&nowmonth&">>></a>"
calendar=calendar&"<tablebgcolor=#000000cellspacing=1width=200><trbgcolor=#ffffff><tdcolspan=7>"&nowyear&"-"&nowmonth&"-"&day(now)&"</td></tr>"&VBCRLF
calendar=calendar&"<trbgcolor=#ffffff>"&VBCRLF
calendar=calendar&"<td>日</td>"&VBCRLF
calendar=calendar&"<td>一</td>"&VBCRLF
calendar=calendar&"<td>二</td>"&VBCRLF
calendar=calendar&"<td>三</td>"&VBCRLF
calendar=calendar&"<td>四</td>"&VBCRLF
calendar=calendar&"<td>五</td>"&VBCRLF
calendar=calendar&"<td>六</td>"&VBCRLF
calendar=calendar&"</tr>"&VBCRLF
calendar=calendar&VBCRLF&"<trbgcolor=#ffffff>"&VBCRLF
把后面的空缺增补出来
nowmonthfirstiweekday=weekday(nowyear&"-"&nowmonth&"-1")-2本月第一天的礼拜
Fori=0Tonowmonthfirstiweekday
calendar=calendar&"<tdbgcolor=#efefef></td>"&VBCRLF
Next
入手下手轮回写日期
t=1
Fori=1Tomonthdays
Ifyear(now)=year(nowyear&"-"&nowmonth&"-"&i)andday(now)=day(nowyear&"-"&nowmonth&"-"&i)Then高亮显现昔日
calendar=calendar&"<tdbgcolor=#cccccc><ahref=>"&i&"</a></td>"&VBCRLF
Else
calendar=calendar&"<td>"&i&"</td>"&VBCRLF
EndIf
Ifweekday(nowyear&"-"&nowmonth&"-"&i)=7Then
t=t+1
calendar=calendar&"</tr><trbgcolor=#ffffff>"&VBCRLF
Endif
Next
Fori=1To(7*t-(nowmonthfirstiweekday+1+monthdays))
calendar=calendar&"<tdbgcolor=#ffffff></td>"&VBCRLF
Next
calendar=calendar&VBCRLF&"</tr>"
calendar=calendar&"</table>"&VBCRLF
Response.Writecalendar
%>
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|