selectyear.asp

ASPTest 网络基础网页设计

<% 
Dim i,month1,month2,month3,year1,year2,year3
Dim TempDate1,TempDate2,TempDate3

'如果是第一次查询，就取当前日期前一天、前两天、前三天作为默认时间
If Session("yYear1") = "" Then

  TempDate1 = DateAdd("yyyy",-1,Date)
  TempDate2 = DateAdd("yyyy",-2,Date)
  TempDate3 = DateAdd("yyyy",-3,Date)
  year1 = Year(TempDate1)
  year2 = Year(TempDate2)
  year3 = Year(TempDate3)
  
Else '如果不是第一次查询，则取上一次选择的日期为默认日期

  year1 = CInt(Session("yYear1"))
  year2 = CInt(Session("yYear2"))
  year3 = CInt(Session("yYear3"))

End If
%>

<form method="POST" action="YearPower.asp" target="Bottom">
<table border="0" cellpadding="0" cellspacing="0" width="478" align="center">
  <tr>
    <td width="261" align="center" height="30">第一个年份：&nbsp;
      <select size="1" name="yYear1">
        <% 
        For i = 2000 to 2010
          If i = year1 Then
            Response.Write "<option selected>"&i&"</option>"
          Else
            Response.Write "<option>"&i&"</option>"
          End If
        Next
        %>
      </select> 年 
    </td>
    <td width="217" height="30" align="right">第二个年份：&nbsp;
      <select size="1" name="yYear2">
        <% 
        For i = 2000 to 2010
          If i = year2 Then
            Response.Write "<option selected>"&i&"</option>"
          Else
            Response.Write "<option>"&i&"</option>"
          End If
        Next
        %>
      </select> 年
    </td>
  </tr>
  <tr>
    <td width="261" align="center" height="30">第三个年份：&nbsp;
      <select size="1" name="yYear3">
        <% 
        For i = 2000 to 2010
          If i = year3 Then
            Response.Write "<option selected>"&i&"</option>"
          Else
            Response.Write "<option>"&i&"</option>"
          End If
        Next
        %>
      </select> 年 
    </td>
    <td width="217" align="right" height="30">
      <input type="submit" value="确认查询" name="B1"> 
      <input type="reset" value="重置年份" name="B2">
    </td>
  </tr>
</table>
<input type="hidden" name="type" value="<%=Session("rtype")%>"></input>
<input type="hidden" name="name" value="<%=Session("rname")%>"></input>
</form>