这个功能如何实现,当改变当选按钮时,下面的查询也更着改变。
<%
Set conn = Server.CreateObject"ADODB.Connection") conn.open "ptdata","user","user"
%>
<form method="POST" action="logcx.asp">
<table border="1" cellspacing="0" bordercolorlight="#FF9900" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" bordercolordark="#FF9900">
</center>
<tr>
<td align="left" rowspan="3">
<font face="宋体" lang="ZH-CN" size="2" color="#008000">选择时间:</font></td>
<td align="left">
<font size="2" color="#008000" face="宋体" lang="ZH-CN">
<input type="radio" name="sj" value="br" checked>本日<input type="radio" name="sj" value="by">本月
</b>
<input type="radio" name="sj" value="bn">本年<input type="radio" name="sj" value="zd">指定</font></td>
</tr>
<tr>
<td align="left">
<font size="2" color="#008000" face="宋体" lang="ZH-CN">从<select size="1" name="n1">
<option value="2003" selected>2003</option>
</select> 年
<select size="1" name="y1">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select> 月<select size="1" name="r1">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>日</font></td>
</tr>
<tr>
<td align="left">
<font size="2" color="#008000" face="宋体" lang="ZH-CN">到<select size="1" name="n2">
<option value="2003" selected>2003</option>
</select> 年
<select size="1" name="y2">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select> 月<select size="1" name="r2">
<option value="1" selected>1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>日</font></td>
</tr>
<tr>
<td align="left" colspan="2">
<p align="center">
<span lang="zh-cn"><font face="宋体" size="2" color="#008000">批次</font></span><font face="宋体" lang="ZH-CN" size="2" color="#008000">:
<select size="1" name="fl">
<%
ccdj65="select pici from ptflpzjy1 order by riqi desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open ccdj65, conn, 3,1
if not rs.eof then
rs.movefirst
do while not rs.eof
kk="<option value="
kk=kk & rs.fields("pici").value
kk=kk & "> " & (rs.fields("pici").value)
kk=kk & "</option>"
response.write kk
rs.movenext
loop
end if
rs.close
%>
</select></font></td>
</tr>
<center>
</table>
</center>
</div>
<p align="center">
</p>
<p align="center">
<input type="submit" value=" 查 询 " name="B1" style="border-style: ridge; border-width: 1; float:centen">
</p>
</form>
<p align="center"> </p>
</body></html>