asp页面中如何使页面自动查询,而不需要点查询按钮。附页面代码。
<%
Set ConA = Server.CreateObject("ADODB.Connection")
conA.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & SerVer.MapPath(Application("U_Path") &("/sinanews/admin/news.mdb"))
dim s_sql
dim date1,date2
if Request.ServerVariables("Request_Method")="POST" then
s_date1=Request.Form("text1")
s_date2=Request.Form("text2")
else
s_date2=""
end if
if Request.Form("fl")="1" then
s_sql="select * from tz where id>='" & s_date1 & "' and id<='"&s_date2&"' order by id1 desc "
else
s_sql="select * from tz where id>='" & s_date1 & "' and id<='"&s_date2&"' and fl='"& Request.Form("fl") &_
"' order by id1 desc "
end if
%>
<body bgcolor="#BBBBFF">
<p align="center"><b> 通知查询</b></p>
<form method="POST" action ="../tz/tzcx.asp"">
<P align=center>查询日期从
<INPUT id=text1 name=text1 value=<%=s_date1%>> 到
<INPUT id=text2 name=text2 value=<%=s_date2%>>
<label>
<select name="fl" id="fl">
<option value="1">全部</option>
<option value="安全">安全</option>
<option value="日常">日常</option>
<option value="培训">培训</option>
</select>
</label>
<input type="submit" value="查询" name=save class="button" onclick="true" ></P>
<P align=center>
<font size="2">请确认日期格式为yyyy-mm-dd</font></P>
<table border="0" width="100%" bordercolordark="#000000" cellspacing="1" cellpadding="0" bgcolor="#000000">
<tr>
<td width="15%" align="center" bgcolor="#FFFFFF"><b>日期</b></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><b>分类</b></td>
<td width="25%" align="center" bgcolor="#FFFFFF"><b>摘要</b></td>
<td width="40%" align="center" bgcolor="#FFFFFF"><b>内容</b></td>
<td width="5%" align="center" bgcolor="#FFFFFF"><b>附件</b></td>
<td width="5%" align="center" bgcolor="#FFFFFF"><b>ID号</b></td>
</tr>
<% 'Set RS1 = Cona.Execute(s_sql)
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Open s_sql,conn,1,1
Do While Not RS1.eof %>
<tr align =center >
<td valign="middle" bgcolor="#FFFFFF"><%=rs1("id")%></td>
<td valign="middle" bgcolor="#FFFFFF"><%=rs1("fl")%></td>
<td valign="middle" bgcolor="#FFFFFF"><%=rs1("zy")%></td>
<td valign="middle" bgcolor="#FFFFFF" ><%=rs1("nr")%></td>
<% FileName =RS1("file_ID")
if FileName &""<>"" then
%>
<td valign="middle" bgcolor="#FFFFFF" align="center"><a href="<%="../tz/upload/" & FileName %>" target="_blank"><img src="../images/open.gif" alt="打开" border="0" width="18" height="13"></A></td>
<%Else%>
<td valign="middle" bgcolor="#FFFFFF" align="center">--</td>
<%End If%>
<td valign="middle" bgcolor="#FFFFFF"><%=rs1("ID1")%></td>
</tr>
<%RS1.Movenext
Loop %>
<%RS1.Close
Cona.Close
%>
</table>
</form>
我就想让页面在第一次打开时就显示查询内容,页不是点“查询”按钮显示内容。