这个功能如何实现，当改变当选按钮时，下面的查询也更着改变。

[50869070]

<%
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>

[50869070]

各位

有没有这样的代码，看看呀

[podded]

手头没有现成的代码，可以给个思路，容易实现的。

可以在本页定义一个变量status,初始为0
1)开始先判断
if request("status")=0 then //没有选日期的情况
你可以在这里定义一个默认查询日期或最新记录的日期，如：
mydate1=day(now()-1)&"-"&month(now()-1)&"月-"&year(now()-1)
mydate1=day(now())&"-"&month(now())&"月-"&year(now())

else //即request("status")=1，为选中日期
mydate1=request("r1")&"-"&request("y1")&"月-"&request("n1")
mydate2=request("r2")&"-"&request("y2")&"月-"&request("n2")
end if

2)日期选择的值为mydate1和mydate2对应的值
3）确定按纽（日期选择后提交）的onclick事件中需要
判断日期的合法性
myform.action="logcx.asp?status=1"
4)按所选日期查询
sql="select * from 表名 where 表中存日期的字段>='&"mydate1"&'&表中存日期的字段<='&"mydate2"&'
conn.execute(sql)
然后具体布局

[colee]

请说清楚点问题所在

[tigerwen01]

按钮改变，提交的值也不同，所以查询到的数据也不同。如：
keyword=Request("xxx")
select * from table where 某一字段='"&keyword&"'

[50869070]

就是单击单选按钮本日，本月，本年时，那么下面的查询日期就变为选中日期

[ulsnkhtf]

sql="select * from 表名 where 表中存日期的字段"=&"所选日期"
conn.execute(sql)

[homeyang]

要提交到另一页面才能实现！在本面是不能这样做的
因为<%%>里的程序先做完啦，再在客服端执行单击单选等操作

[lovehwq21]

一定要提交啊，因为你是在客户端做改变，不提交的话，服务器端捕捉不到事件发生啊，所以必须提交，通过服务器端处理，再下载到客户端

[空闲独处]

你可以把数据POST到本页，就是提交给自己，然后根据读到的数据来改变查询。