<body>
<div align="center">
<p>
<script language="vbscript">
document.write year(date())&"年"&month(date())
</script>
月 <font size="6" >月历</font></p>
<table border="1" width="512">
<script language="vbscript">
document.write("<tr>")
for i=1 to 7
document.write "<th width='67' height='38'>星期"
document.write mid("日一二三四五六",i,1)&"</th>"
next
doctment.write "</tr>"
tday=day(date())
tweekday=weekday(date())
tweekday=((tweekday-tday) mod 7+7) mod 7+1
t=0:i=1
do
document.write "<tr align='center'>"
for j=1 to 7
if j=tweekday and i=1 then t=1:k=1
if t=1 then
if k=tday then
document.write "<td bgcolor='olive' >" & k & "</td>"
else
document.write "<td>" & k & "</td>")
end if
k=k+1
else
document.write "<td>" & " " & "</td>"
end if
if k>=28 and day(k+date()-tday)=1 then t=0
next
document.write "</tr>"
i=i+1
loop until t=0
</script>
</table>
</div>
</body>
<div align="center">
<p>
<script language="vbscript">
document.write year(date())&"年"&month(date())
</script>
月 <font size="6" >月历</font></p>
<table border="1" width="512">
<script language="vbscript">
document.write("<tr>")
for i=1 to 7
document.write "<th width='67' height='38'>星期"
document.write mid("日一二三四五六",i,1)&"</th>"
next
doctment.write "</tr>"
tday=day(date())
tweekday=weekday(date())
tweekday=((tweekday-tday) mod 7+7) mod 7+1
t=0:i=1
do
document.write "<tr align='center'>"
for j=1 to 7
if j=tweekday and i=1 then t=1:k=1
if t=1 then
if k=tday then
document.write "<td bgcolor='olive' >" & k & "</td>"
else
document.write "<td>" & k & "</td>")
end if
k=k+1
else
document.write "<td>" & " " & "</td>"
end if
if k>=28 and day(k+date()-tday)=1 then t=0
next
document.write "</tr>"
i=i+1
loop until t=0
</script>
</table>
</div>
</body>
解决方案 »
- 【求助】判断两个数组是否有相同的值,将不是相同的值保存下来
- 怎么在下拉列表中加个图片?
- 关于JQuery tabs的问题中div的问题~~~急!!!!!!
- 如何区分某个页面的访问是用户点击还是通过javascript访问?
- 哪位大侠能帮我看一下啊
- 求助,在线等(GOOGLE MAP API 3 加载大量折线到地图上怎么解决性能)。如果有好的回答会追加分
- 如何得到IE中文本框中光标位置啊
- 帮我看看下面的代码哪错了?
- 向高手求救:如何得到一张表的行数和列数!!
- 如何遍历用 id="Axx" 标识的tag (xx=1..100) ??
- [高分,顶者有分]关于ASP.NET/Javascript的学习,请高手推荐学习方法!
- 求JAVASCRIPT如何操作RADIODOWNLIST
<div align="center">
<p> <script language="vbscript">
document.write year(date())&"年"&month(date())
</script> 月 <font size="6">月历 </font>
</p>
<table border="1" width="512"> <script language="vbscript">
document.write(" <tr>")
for i=1 to 7
document.write " <th width='67' height='38'>星期"
document.write mid("日一二三四五六",i,1)&" </th>"
next
document.write (" </tr>")
tday=day(date())
tweekday=weekday(date())
tweekday=((tweekday-tday) mod 7+7) mod 7+1
t=0:i=1
do
document.write (" <tr align='center'>")
for j=1 to 7
if j=tweekday and i=1 then t=1:k=1
if t=1 then
if k=tday then
document.write (" <td bgcolor='olive' >" & k & " </td>")
else
document.write (" <td>" & k & " </td>")
end if
k=k+1
else
document.write (" <td>" & " " & " </td>")
end if
if k>=28 and day(k+date()-tday)=1 then t=0
next
document.write (" </tr>")
i=i+1
loop until t=0
</script> </table>
</div>
还是不能显示整个月历啊?在我机器的IIS上页面如下
是不能显示整个月历表格啊?在我机器的IIS上只有显示如下下几个字 啊?
2009年10 月 月历
<body>
<div align="center">
<p>
<script language="vbscript">
document.write year(date())&"年"&month(date())
</script>
月 <font size="6" >月历 </font> </p>
<table border="1" width="512">
<script language="vbscript">
document.write(" <tr>")
for i=1 to 7
document.write " <th width='67' height='38'>星期"
document.write mid("日一二三四五六",i,1)&" </th>"
next
document.write " </tr>"
tday=day(date())
tweekday=weekday(date())
tweekday=((tweekday-tday) mod 7+7) mod 7+1
t=0:i=1
do
document.write " <tr align='center'>"
for j=1 to 7
if j=tweekday and i=1 then t=1:k=1
if t=1 then
if k=tday then
document.write " <td bgcolor='olive' >" & k & " </td>"
else
document.write " <td>" & k & " </td>"
end if
k=k+1
else
document.write " <td>" & " " & " </td>"
end if
if k>=28 and day(k+date()-tday)=1 then t=0
next
document.write " </tr>"
i=i+1
loop until t=0
</script>
</table>
</div>
</body>