小问题

jinqiangkejiao 2008-03-23 10:59:22
请大家帮我看看这段代码有什么问题
<%
dim mMonth,mYear,,mDate
mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
%>
<div align="center" style="background-color:#009933; color:#FFFFFF ">
<strong><%=mYear%>年<%=mMonth%>月</strong></div>
<%
Function CountDays(iMonth,iYear)
Select Case imonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/"&iYear) Then
CountDays=29
else
CountDays=28
End if
case 4,6,9,11
CountDays=30
End Select
End Function
Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth&"/1/"&iYear)
End Function
%>
<table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33">
<tr bgcolor="#CCFF00">
<td align="right">星期日</td>
<td align="right">星期一</td>
<td align="right">星期二</td>
<td align="right">星期三</td>
<td align="right">星期四</td>
<td align="right">星期五</td>
<td align="right">星期六</td>
</tr>
<tr bgcolor="#FFFFFF">
<%
j=1
for i=1 to 42
if i>=FirstDay(mMonth,mYear) and j<=CountDays(mMonth,mYear) then
if mDate=j then
response.write "<td align="right" bgcolor="#CC9933"><strong>
<font color="RED""&j&"</font></strong>"
else
response.write"<td align="right" bgcolor="#FFFFFF">"&j
end if
j=j+1
else
response.write"<td align="right" bgcolor="#FFFFFF">"&" "
end if
response.write"</td>"
if i mod 7=0 then
response.write"</tr><tr>"
end if
nest
%>
</tr></table>
</tr>

...全文
64 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
jinqiangkejiao 2008-03-31
怎么按照你们的代码依然不能显示日期。
 回复 赞
Dogfish 2008-03-25
<%
dim mMonth,mYear,,mDate 


dim mMonth,mYear,mDate

mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
%>
<div align="center" style="background-color:#009933; color:#FFFFFF ">
<strong> <%=mYear%>年 <%=mMonth%>月 </strong> </div>
<%
Function CountDays(iMonth,iYear)
Select Case imonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/"&iYear) Then
CountDays=29
else
CountDays=28
End if
case 4,6,9,11
CountDays=30
End Select
End Function
Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth&"/1/"&iYear)
End Function
%>
<table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33">
<tr bgcolor="#CCFF00">
<td align="right">星期日 </td>
<td align="right">星期一 </td>
<td align="right">星期二 </td>
<td align="right">星期三 </td>
<td align="right">星期四 </td>
<td align="right">星期五 </td>
<td align="right">星期六 </td>
</tr>
<tr bgcolor="#FFFFFF">
<%
j=1
for i=1 to 42
if i>=FirstDay(mMonth,mYear) and j <=CountDays(mMonth,mYear) then
if mDate=j then
response.write " <td align="right" bgcolor="#CC9933"> <strong><font color="RED""&j&" </font> /strong>" 


response.write "<td align=right bgcolor=#CC9933> <strong><font color=RED" & j & "</font></strong>"

else
response.write" <td align="right" bgcolor="#FFFFFF">"&j 


    response.write "<td align=right bgcolor=#FFFFFF>" & j

end if
j=j+1
else
response.write" <td align="right" bgcolor="#FFFFFF">"&" " 


    response.write "<td align=right bgcolor=#FFFFFF>" & " "

end if
response.write" </td>"
if i mod 7=0 then
response.write" </tr> <tr>"
end if
nest


    next

%>
</tr> </table>
回复 赞
hookee 2008-03-23


<% 

dim mMonth,mYear,mDate 

mMonth=Month(Date()) 

mYear=Year(Date()) 

mDate=Day(Date()) 

%> 

<div align="center"  style="background-color:#009933; color:#FFFFFF "> 

<strong> <%=mYear%>年 <%=mMonth%>月 </strong> </div> 

<%

Function CountDays(iMonth,iYear)

	CountDays = DateDiff("d", CDate(iYear & "-" & iMonth & "-1"),CDate(iYear & "-" & (iMonth+1) & "-1"))

End Function 



Function FirstDay(iMonth,iYear) 

   FirstDay=WeekDay(iMonth & "/1/" & iYear) 

End Function 

%> 

    <table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33"> 

    <tr bgcolor="#CCFF00"> 

    <td align="right">星期日 </td> 

    <td align="right">星期一 </td> 

    <td align="right">星期二 </td> 

    <td align="right">星期三 </td> 

    <td align="right">星期四 </td> 

    <td align="right">星期五 </td> 

    <td align="right">星期六 </td> 

    </tr> 

<% 

   j=1 

   for i=1 to 42

     if i mod 7 = 1 then response.write "<tr bgcolor=""#FFFFFF"">" 

     if i>=FirstDay(mMonth,mYear) and j <=CountDays(mMonth,mYear)  then 

         if mDate=j then 

             response.write " <td align=""right"" bgcolor=""#CC9933""> <strong><font color=""RED""" & j & " </font></strong>" 

         else

             response.write" <td align=""right"" bgcolor=""#FFFFFF"">" & j 

         end if 

         j=j+1

     else

         response.write" <td align=""right"" bgcolor=""#FFFFFF"">"&" " 

     end if

     response.write" </td>" 

     if i mod 7 = 0 then 

         response.write "</tr>" 

     end if 

   next

%> 

</table>
回复 赞
相关推荐
微信小程序发现的一些小问题以及解决方案集合以及注意点 最近一直在关注小程序开发，目前正在试着将公司的app转换为小程序执行，在此期间有遇到的一些小问题以及解决办法集合。当然这些都是我个人经验谈，对于小程序的底层框架我也是一知半解，很多也都无法解释的很清楚，...
echarts 显示隐藏后宽度高度变小问题 实况解析 见下图，此图中，数据总统计下有两个大的分类： 表格数据（table形式） echarts（数据可视化形式） 我可以点击按钮，切换两个视图（通过控制display）产生的问题是： 如果默认显示 echarts，如下图，是...
VMware Workstation虚拟机显示屏幕太小问题解决方法 VMware Workstation虚拟机显示屏幕太小问题解决详细步骤。
小程序开发中遇到的问题—汇总 小程序面试题 1.bindtap和catchtap的区别是什么？ bind事件绑定不会阻止冒泡事件向上冒泡，catch事件绑定可以阻止冒泡事件向上冒泡 2.Js数组转成换字符串，强制转换成整数及转换成浮点数的函数分别是什么？ js...
mac book外接4k 显示器 字体大小问题 当连好显示器，准备好好体验一把的时候，问题出现了，那个字啊，真的是小的眼睛都要看瞎了T^T 话不多说，下面是重点，解决方案： – > 打开系统偏好设置 – > 打开显示器选项 – > 这个时候会出现两个窗口...
Qt / C++常见小问题汇总（二） 一、简述在上一篇文章 Qt / C++常见小问题汇总（一） 中讲述了两个小问题，今天就接着这篇讲述三个日常开发过程中会遇到的问题。问题列表问题一： 不允许使用不完整的类型 / error C2079: “xxx”使用未定义的 ...
解决一个JAVA小问题 对于使用最新版eclipse的Java小白来说，可能会遇到一个小问题： “ Must declare a named package because this compilation unit is associated to the named module ‘MyProject02’ ” 出现这种情况的原因是在...
java两个类相互持有引用的小问题 今天在写一个小程序中遇到一个问题，我想在两个类中相互持有引用，比如： 1. 一个类是画板，另一个类是画板中一个图形； 2. 画板必须持有图形的引用才能绘制图形； 3. 图形希望能够根据自身一些属性改变画板中其他的...
虚拟机下 ubuntu 显示屏幕太小问题 虚拟机下 ubuntu 显示屏幕太小问题 转载 https://blog.csdn.net/dcrmg/article/details/74090307 解决方法是安装 VMware Tool 插件解决。 1. 首先修改 ISO 文件路径 将虚拟机下的操作系统执行 关机操作，然后在...
选择问题（求第k个最小元素） 利用划分求第k小元素 C语言实现 改进 参考资料 什么是选择问题 选择问题（selection problem）是求一个n个数列表的第k个最小元素的问题。这个数字被称为第k个顺序统计量（order statistic）。当然，对于k=1...
小程序Canvas隐藏问题处理 一、目前版本小程序框架 当前问题参考处理建议使用这种方式：https://my.oschina.net/tianma3798/blog/2051575 canvas使用方面还有些不足地方。 比如：canvas 的直接隐藏目前不可用 display：none 只要使用上线...
VMware虚拟机ubuntu显示屏幕太小解决办法 使用VMware安装的ubuntu虚拟机的显示屏幕太小，可以通过在VMware里安装“VMware Tool”插件解决，安装步骤记录一下。 1. 更改ISO文件路径 安装VMware Tool需要用到虚拟光驱，加载一个ISO文件，在安装的时候加载...
vmware界面太小问题的解决 我之前在VMware上安装的是32位的Ubuntu12.04虚拟机，之前界面的大小很合适，不过我忘了是怎么调的了，只知道好像是通过安装vmware tools解决的，今天又安装了64位的同样的系统，但是界面很小，用着很不方便。...
微信小程序textarea问题总结 微信小程序textarea问题总结 1.textarea多行输入框。该组件是原生组件 2.参考文档中的原生组件说明https://developers.weixin.qq.com/miniprogram/dev/component/native-component.html 原生组件的层级是最高的，...
安装linux遇到的小问题：boot 分区太小 跟着教程做，下镜像，做U盘启动盘，安装，问题就出在，看的教程好像是11年还是14年的，那时候大家都说/boot分区100-200MB就够了，而事实上最近几年的建议/boot大小是300-500MB，虽然我也不知道装大点有什么不好。...
关于Echarts 显示隐藏后宽度高度变小问题 Echarts 是现在程序员做图表用到比较多的一种技术，前段时间，我就用了一下Echarts,我原本是将饼图先隐藏，然后点击按钮让它再显示出来，但是再显示时，饼状图出现了问题，它变得特别小，根本不能用，然后，就此，我...
浮点数比较大小的问题 浮点数比较大小，由于精度问题，所以直接比较有时可能会出错。 单精度数7位有效数字。 （float） 双精度数16位有效数字。（double） 单精度数的尾数用23位存储，加上默认的小数点前的1位1，2^(23+1) = 16777216...
4K屏幕/高分辨率屏幕运行VMware虚拟机图标字体太小问题解决方案(linux系统) 4K屏幕/高分辨率屏幕运行VMware虚拟机图标字体太小问题解决方案(linux系统) 升级VMware到15版本，15以下版本不确定有没有这个选项。 点击编辑虚拟机设置： 点击显示器选项，然后在显示缩放比例框里面将拉伸模式勾选...
微信小程序view居中问题 只需要在wxss里，给需要居中的地方加上以下样式： display: flex; align-items: center; justify-content: center; ...如果加上之后还居中不了，就给它的width属性和height属性加上具体的值，例如： ...
微信小程序3个关于字体和图片的小问题 微信小程序3个关于字体和图片的小问题 01字体自适应居中 代码： view> text>\n\n欢迎来到微信小程序text> view> view{ width: 100%; height: 100%; display: flex; align-items: center; justify...
发帖
vbScript
创建于2007-09-28

4001

社区成员

3503

社区内容

它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。
申请成为版主
帖子事件
创建了帖子
2008-03-23 10:59
社区公告
暂无公告