分享
 
 
 

谁帮我看一下下面的代码

王朝知道·作者佚名  2009-08-02
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

<html>

<head>

<title>第一习作阶段-编写简单的日历程序</title>

</head>

<body>

<%

a=now()

b=day(a)'返回 1 到 31 之间的一个整数(包括 1 和31),代表某月中的一天。

c=datepart("w",a)'返回给定日期的指定部分。DatePart 函数用于计算日期并返回指定的时间间隔。例如使用 DatePart 计算某一天是星期几或当前的时间。"w"返回当周的第几天.

d=year(a)'返回一个代表某年的整数。

e=month(a)'返回 1 到 12 之间的一个整数(包括 1 和 12),代表一年中的某月

f=datepart("w",a-b)'返回当月第一天在星期几.

g=DateSerial(d,e,1)'返回当月第一天日期.

h=DateSerial(d,e+1,1)'返回下个月第一天日期.

i=h-g'返回当月的天数

%>

<div align="center"> <%=d%>年<%=e%>月</div>

<hr width="400" />

<table width="400" border="1" align="center">

<tr>

<td>星期日</td>

<td>星期一</td>

<td>星期二</td>

<td>星期三</td>

<td>星期四</td>

<td>星期五</td>

<td>星期六</td>

</tr>

<tr>

<%

if f+i<36 then'判断显示日历需要用几行表格来显示(每行显示7天)

gezi=35

else

gezi=42

end if

'循环生成表格并显示.

for j=1 to gezi

iv=j-f

if j>f and j<f+i then

'如果为显示的是今天则用蓝色字体显示

if iv=day(now) and month(now)=e and year(now)=d then

response.write("<td align=right><font color=blue>"&iv&"</font></td>")

else

response.write("<td align=right>"&iv&"</td>")

end if

else

response.write("<td> </td>")

end if

'如果能被7整除(每行显示7个)则输出一个换行

if j mod 7=0 then

response.write("</tr><tr>")

end if

next

%>

</table>

</body>

</html>

具体都啥意思

參考答案:

你把程序代码放到记事本里,然后另存,名字随便,记得后缀一定要是.html

比如名字是 ss

保存是就写成 ss.html

然后打开就可以看到效果了

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有