点击弹出日历框

原创 2011年01月25日 11:09:00

点击弹出日历框

 

http://blog.csdn.net/highwell1/archive/2009/03/30/4037383.aspx

 

a.asp代码:
<form method="POST" name="form1" autocomplete=off>
 <p align="center"><input type="text" name="T1" size="20" onClick="JavaScript:window.open('day.asp?form='+this.form.name+'&field='+this.name+'&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=200,top=220,left=250');">
 <input type="text" name="T2" size="20" onclick="form1.T3.value=this.form.name;form1.T4.value=this.name;"><input type="text" name="T3" size="20" onClick="JavaScript:window.open('day.asp?form='+this.form.name+'&field='+this.name+'&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=200,top=220,left=250');"><input type="text" name="T4" size="20" onClick="JavaScript:window.open('day.asp?form='+this.form.name+'&field='+this.name+'&oldDate='+this.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=200,top=220,left=250');"><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>

day.asp代码(也可以用其他现成的日历控件,注意参数。本例调用的是服务器的时间):
<html>
 <head>
  <title>选择日期                </title>
   <style type=text/css>
    <!--
    body{margin:0;font-size:9pt;color:#5E639B}
    td{font-size:9pt;color:#000000}
    a:link {color:#000000;text-decoration: none}
    a:visited {color:#000000;text-decoration: none}
    a:active {color:#000000;text-decoration: none}
    a:hover { color:#ff3333;text-decoration: none}
    -->
   </style>
   <Script  Language="JavaScript">
    function getDay(v){
     window.opener.document.<%=request.querystring("form")%>.<%=request.querystring("field")%>.value=v;
     window.opener.document.<%=request.querystring("form")%>.<%=request.querystring("field")%>.focus();
     window.opener=null;
     window.close();
     return false;
    }
   </Script>
 </head>
 <body bgcolor=#ffffff onBlur="window.focus()">
<%
oldDate=request("oldDate")
if not isDate(oldDate) then oldDate=date
yy=year(cdate(oldDate))
mm=month(cdate(oldDate))
if request("yy")<>"" then yy=request("yy")
if request("mm")<>"" then mm=request("mm")
if yy="" then yy=year(date)
if mm="" then mm=month(date)
if mm>12 then mm=1:yy=yy+1
if mm<1 then mm=12:yy=yy-1

dim m(12)
m(1)=31
m(3)=31
m(5)=31
m(7)=31
m(8)=31
m(10)=31
m(12)=31
m(2)=28
m(4)=30
m(6)=30
m(9)=30
m(11)=30
if (yy mod 4=0 and yy mod 100<>0) or yy mod 400=0 then m(2)=29
mms=m(mm)
week1=(weekday(cdate(yy & "-" & mm & "-1"))-1)
%>
     <table width=250 cellspacing=1 cellpadding=0 bgcolor=#FFDFDF align=center>
      <tr>
       <td colspan=7 align=center>
        <table width=100% height=20 cellspacing=0 cellpadding=0>
         <tr height=20>
          <td width=30 align=center>
           <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy-1)%>&mm=<%=mm%>>
            <font face=webdings style=color:#000000 title="上一年">7</font>
           </a>
          <td width=30 align=center>
           <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm-1)%>&yy=<%=yy%>>
            <font face=webdings style=color:#000000 title="上一月">3</font>
           </a>
          <td width=130 align=center style="FONT:9pt Verdana,Geneva,sans-serif;color:#CD0101">
           <b><%=yy%> 年 &nbsp; <%=mm%> 月</b>
          <td width=30 align=center>
           <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&mm=<%=(mm+1)%>&yy=<%=yy%>>
            <font face=webdings style=color:#000000 title="下一月">4</font>
           </a>
          <td width=30 align=center>
           <a href=day.asp?form=<%=request("form")%>&field=<%=request("field")%>&yy=<%=(yy+1)%>&mm=<%=mm%>>
            <font face=webdings style=color:#000000 title="下一年">8</font>
           </a>
        </table>
      <tr bgcolor=#ffffff height=20>
       <td width=35 align=center bgcolor=#FFF4F4 style=color:#ff6633>日
       <td width=35 align=center bgcolor=#FFF4F4>一
       <td width=35 align=center bgcolor=#FFF4F4>二
       <td width=35 align=center bgcolor=#FFF4F4>三
       <td width=35 align=center bgcolor=#FFF4F4>四
       <td width=35 align=center bgcolor=#FFF4F4>五
       <td width=35 align=center bgcolor=#FFF4F4>六
<%
if week1<>0 then
 response.write "<tr>"
  for i=1 to week1
   response.write "<td width=35 height=20 bgcolor=#ffffff>&nbsp;"
  next
end if
for i=1 to mms
 if (i+week1-1) mod 7=0 then response.write "<tr>"
 response.write "<td width=35 height=20 align=center bgcolor=#ffffff>"
 if cdate(yy & "-" & mm & "-" & i)=date() then
%>
<input type=button value=<%=i%>
 style="BORDER:#CD0101 1px groove;width:30;height:16;font-size:9pt;background-color:#FFD9D9;color:#CD0101"
 onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日(今天)">
<%
 else
%>
<input type=button value=<%=i%>
 style="BORDER:#000000 1px groove;width:30;height:16;font-size:9pt;background-color:#ffffff;color:#000000"
 onclick="javascript:getDay('<%=yy%>-<%=mm%>-<%=i%>');" title="<%=yy%>年<%=mm%>月<%=i%>日">
<%
 end if
next
if (mms+week1) mod 7<>0 then
 for i=1 to (7-((mms+week1) mod 7))
  response.write "<td width=35 height=20 bgcolor=#ffffff>&nbsp;"
 next
end if
%>
     </table><br>
<div align=center><a href="javascript:window.close()">〖关闭本窗口〗</a></div>
 </body>
</html>

 

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/highwell1/archive/2009/03/30/4037383.aspx

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

日历点击弹出圆形框

  • 2015-12-17 18:07
  • 47KB
  • 下载

基于js的一个日历控件,点击按钮,弹出日历,显示日期到文本框

var months = new Array("一", "二", "三","四", "五", "六", "七", "八", "九&...

实现点击按钮弹出登陆框并且可移动操作

实现点击按钮弹出登陆框并且可移动操作

点击Input框弹出日期选项

测试地址:http://down.admin5.com/demo/code_pop/18/1299/ 效果图片: 后台代码: 点击text文本框弹出日期选择器 body{m...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)