asp显示日历效果

593 查看

<p><style>
td { font-family: "宋体"; font-size:9pt}
</style>
</p>
<table align="center" bgcolor="dddddd" cellpadding="0" cellspacing="1" width="180">

<p> '先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
 If Request("ReqDate")="" then
   CurrentDate=Date
 else
   CurrentDate=Trim(Request("ReqDate"))
 end if 
 pyear=year(CurrentDate)
 pmonth=month(CurrentDate)</p>
<p> '以下的代码生成日历显示的表格头内容
%>
  </p><tr align="LEFT" bgcolor="#dddddd"> 
    <td align="center" height="19" width="14%">
  <input m="" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd(" type="button" value="<<"/>'">
 </td>
    <td align="center" colspan="5">
  年月
 </td>
    <td align="center" width="14%">
  <input m="" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd(" type="button" value=">>"/>'">
 </td>
  </tr>
  <tr align="center" bgcolor="#CCCCCC"> 
    <td height="19" width="14%"> 日</td>
    <td width="14%"> 一</td>
    <td width="14%"> 二</td>
    <td width="14%"> 三</td>
    <td width="14%"> 四</td>
    <td width="14%"> 五</td>
    <td width="14%"> 六</td>
  </tr>
  <tr align="center" bgcolor="ffffff" height="19">
  nunmonthstart and i<a href="#" target="_blank">" & iv & "</a>")
   else
    response.write( "<td align="center"><a href="#" target="_blank">" & iv & "</a></td>")
   end if
  else
   response.write( "<td> </td>")
  end if
<p>  '如果能被7整除（每行显示7个）则输出一个换行
  if i mod 7=0 then
   response.write( "</p></tr><tr align="center" bgcolor="ffffff" height="19">")
  end if
  i=i+1
 loop
%>
</tr></table>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

最近更新的内容

如何在ASP页面动态Inclue文件？
一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例
再来个专门为google量身定做的sitemap生成代码,(可是动态的哦)
捌度空间缓存类
用ASP读取/写入UTF-8编码格式的文件
google sitemap.asp
atom_js.asp
atom2rss.asp
安全脚本程序的编写 V1.0第1/3页
VBS、ASP代码语法加亮显示的类

你可能感兴趣的文章

在线实时开通FTP&WEB
asp,VBscript语法错误,史上最全最详细最精确第1/3页
二级域名原理以及程序
写入文本文件的过程函数(ASP)
Access中使用Create Procedure创建存储过程第1/2页
多域名绑定到一个空间访问不同首页的技巧
Asp Conn.execute的参数与返回值总结
在线修改Serv-U 4.2用户密码
防止网站内容被小偷采集的ASP代码
一个非常简单的将半角转换为中文的函数

2024 - 快车库 - 我的知识库重庆启连科技有限公司渝ICP备16002641号-10
企客连连表单助手企服开发榜单123