<table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td align="center"><h1></h1>从
        <select name="select">
        <%
            Dim GetQihao
            GetQihao = GetAllQihao()
            For I = 0 To Ubound(GetQihao)
                If Instr(Request.Form("select"),GetQihao(I)) > 0 Then
                    Response.Write("<option value=" & GetQihao(I) & " selected>" & GetQihao(I) & "</option>")
                Else
                    Response.Write("<option value=" & GetQihao(I) & ">" & GetQihao(I) & "</option>")
                End If
            Next
            Erase GetQihao
        %>
        </select>
      期到
      <select name="select2">
        <%
            Dim GetQihao2
            GetQihao2 = GetAllQihao()
            For I = 0 To Ubound(GetQihao2)
                If Instr(Request.Form("select2"),GetQihao2(I)) > 0 Then
                    Response.Write("<option value=" & GetQihao2(I) & " selected>" & GetQihao2(I) & "</option>")
                Else
                    Response.Write("<option value=" & GetQihao2(I) & ">" & GetQihao2(I) & "</option>")
                End If
            Next
            Erase GetQihao2
        %>
      </select>
      期&nbsp;&nbsp;&nbsp;&nbsp;
      <input type="submit" name="Submit2" value="提交"></td>
    </tr>
  </table>
</form>

谁帮看看这个代码怎么修改为搜索近30期记录 和2017年，2016年记录