谁帮看看这个代码
<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>
期
<input type="submit" name="Submit2" value="提交"></td>
</tr>
</table>
</form>
谁帮看看这个代码怎么修改为搜索近30期记录 和2017年,2016年记录