📄 selmonth.asp

📁 财务管理系统报账等基本功能实现有完整的实现

💻 ASP

字号:

<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>选择工资报表月份</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.ryear.selectedIndex<=0){
   alert("请选择报表年份！");
   form1.ryear.focus;
   return false;
 } 
  if (document.form1.rmonth.selectedIndex<=0){
   alert("请选择报表月份！");
   form1.rmonth.focus;
   return false;
 } 
return true;
}
</Script>
</head>
<%
  Dim m,y,iNow,im
  iNow = Year(Date)  '当前年份
  im = Month(Date)   '当前月份
%>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="ReportCreate.asp" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="0" cellspacing="0" width="96%">
    <tr>
      <td align="center">选择工资报表月份</td>
    </tr>
    <tr>
      <td align="center">
<select size="1" name="ryear">
  <%For i=20 To 0 Step -1
      y = 2000 + i
      If CInt(iNow)=y Then%>
       <option value="<%=y%>" selected><%=y%></option>
    <%Else%>
       <option value="<%=y%>"><%=y%></option>
    <%End If
    Next%>
</select>&nbsp;&nbsp;&nbsp;&nbsp;
<select size="1" name="rmonth">
  <%For i=1 To 12
      If CInt(im)=i Then%>
       <option value="<%=i%>" selected><%=i%></option>
    <%Else%>
       <option value="<%=i%>"><%=i%></option>
    <%End If
    Next%>
</select>
      </td>
    </tr>
 </table>
  <p align=center><input type="submit" value="提 交" name="B1">&nbsp;&nbsp;
  <input type="reset" value="重 写" name="B2"></p>
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -