asp查询结果分页问题

[py_mfkmfk]

我的代码如下：
<center>
<table>
<tr>
<td>
<b>已发公文</b></td></table>
<table width="1045">
<tr>
<form method=post action="havesenddate.asp">
<tr width=100%>
<td colspan="7">
公文标题包含<input name="item_like" type="text">
接收者<input name="recipient_name" type="text" style="width: 100" size="10">
</td>

</tr>


<td width="433">
发送日期<select name="fuhao" size=1>
<option value="<=" selelcted>小于</option>
<option value=">=">大于</option>
<option value="=">等于</option>
</select>
<select name="myyear" size=1>
<!--自动生成年份下拉菜单-->
<%
for i=2001 to 2010
%>
<option value=<%=i%><%=selected(i,myyear)%>><%=i%>年</option>
<%
next
%>
</select>
<select name="mymonth" size=1>
<!--自动生成月份下拉菜单-->
<%
for i=1 to 12
%>
<option value=<%=i%><%=selected(i,mymonth)%>><%=i%>月</option>
<%
next
%>
</select>
<select name="myday" size=1>
<!--自动生成日期下拉菜单-->
<%
for i=1 to 31
%>
<option value=<%=i%><%=selected(i,myday)%>><%=i%>日</option>
<%
next
%>
</select>
<input type="hidden" name="lookfor" value="yes">
<input type="submit" value="查询">
</td>
</form>
</tr>
</table>
</center>
<%
call bgmid()
%>
<center>
<br>
<br>
<%
myday1=myday+1
if myyear<>"" then
mydate=myyear & "-" & mymonth & "-" & myday
mydate1=dateadd("d",cdate(mydate),1)
else
mydate=""
end if


for each idno in request("delid")
count=count+1
condition=condition+"id=" & idno
if count<request("delid").count then
condition=condition+" or "
end if
next






set conn=opendb
count=0
for each dddd in request("deleted")
count=count+1
'sql = "delete from gongwen where " & condition
sql="update gongwen set writer_delete='已删除' where id='"+dddd+"'"
conn.Execute sql
next
conn.close




set conn=opendb
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from gongwen where writer_delete<>'已删除' and sender=" & sqlstr(oabusyusername) & " order by id desc"

if request("lookfor")="yes" then
fuhao=request("fuhao")
recipient_name="%"
fuhao_name = "like"
if request("recipient_name")<>"" then
recipient_name=request("recipient_name")
set rsid = server.createobject("adodb.recordset")
sql="select * from userinf where name='"&recipient_name&"'"
rsid.open sql,conn,1
recipient_name = rsid("username")
fuhao_name = "="
rsid.close
end if


item_like ="%"
if request("item_like")<>"" then item_like ="%"&request("item_like")&"%"
'sql="select * from gongwen where (title like '%"&item_like&"%' and inputdate "&fuhao&" '"& mydate & "' and sender=" & sqlstr(oabusyusername) & " ) "

sql="select * from gongwen where (title like '"&item_like&"' and recipientusername "&fuhao_name&" '"&recipient_name&"' and inputdate "&fuhao&" '"& mydate & "' and sender=" & sqlstr(oabusyusername) & " ) "
'response.write sql
'response.end
end if
rs.open sql,conn,1,3


if not rs.eof and not rs.bof then
rs.pagesize=15
if request("page")<>"" then page=clng(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
href="havesenddate.asp"
rs.absolutepage=page
%>
<form action="havesenddate.asp" method="post">

<table border="1" cellpadding="4" cellspacing="0" width="95%">
<tr>
<td align=center><b>公文标题</b></td>
<td align=center ><b>附件</b></td>
<td align=center ><b>接收者所在部门</b></td>
<td align=center ><b>接收者</b></td>
<td align=center ><b>发布日期</b></td>
<td align=center ><b>阅读情况</b></td>

<td align=center ><input type="submit" value="删除"></td>
</tr>
<%
for ipage=1 to rs.pagesize
%>
<tr>
<td><div align="center"><a href="#" onclick="Javascript:OpenSmallWindows('showgongwen.asp?id=<%=rs("Id")%>')" >
<!--如果是当天日期标题显示为红色-->
<%if rs("inputdate")=date() then %>
<font color="red">
<%=rs("title")%></font>
<%else%>
<%=rs("title")%>
<%end if%>
</a></div></td>
<!--如果有附件就显示附件标示-->
<td align="center">
<%
if rs("fujian")<>0 then 'rs为上面的记录集
%>
<a href="#" onclick="Javascript:OpenSmallWindows('downgong.asp?id=<%=rs("Id")%>')" ><img src="images/attach.gif" width=25 height=25 border=0 ></a>
<%
else
%>
 
<%
end if
%>
</td>
<td align="center">
<%if rs("recipientuserdept")<>"" then%>
<%=rs("recipientuserdept")%>
<%else%>
 
<%end if%>
</td><td align="center">
<%
if rs("recipientusername")<>"所有人" then
%>
<%=showname(rs("recipientusername"))%>
<%
else
%>
<%=rs("recipientusername")%>
<%
end if
%>
</td>
<td align="center"><%=rs("inputdate")%></td>
<td align="center"><%=rs("readflag")%></td>


<td align="center"><input type="checkbox" name="deleted" value=<%=rs("id")%>></td>
</tr>

<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
</form>
<br>
<table border=0 width=550>
<tr><form action=<%=href%> method=get>
<td align="center">
<%
response.write "<a href=" & href & "?page=1&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">第一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page-1) & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">上一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & (page+1) & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">下一页</a>"
%>
</td>
<td align="center">
<%
response.write "<a href=" & href & "?page=" & rs.pagecount & "&myyear=" & server.urlencode(myyear) & "&mymonth=" & server.urlencode(mymonth) & "&myday=" & server.urlencode(myday) & "&lookfor=" & server.urlencode(request("lookfor")) & ">最后一页</a>"
%>
</td>
<td align="center">
去第<input type=text name=page size=3>页</td>
<input type="hidden" name="myyear" value="<%=myyear%>">
<input type="hidden" name="mymonth" value="<%=mymonth%>">
<input type="hidden" name="myday" value="<%=myday%>">
<input type="hidden" name="lookfor" value="<%=request("lookfor")%>">
<td align="center">第<%=page%>/<%=rs.pagecount%>页</td></form></tr></table><br>



<%
else
%>
<br><br><br>
<table border="0" cellpadding="0" cellspacing="0" width="400">
<tr>
<td width="400" align="center"><font size="4" color="red">对不起,没有相关纪录</font></td></tr></table>
<%
end if
rs.close
set conn=nothing
%>


</center>
<%
call bgback()
%>
</body>
</html>
如果不查询没有一点问题，如果输入条件查询后点下一页就报错：错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]第 1 行: '2008-7-8' 附近有语法错误。
/office/havesenddate.asp, 第 157 行
请高手指教！！！

[jhwcd]

[Quote=引用 9 楼 py_mfkmfk 的回复:]
哇，东东来了啊，给我指点指点啊！没有带上什么参数啊？
我不点查询的话，点下一页又没有问题，就是查询出结果后点下一页就出错！
[/Quote]
应该是你查询的那个参数没有带上吧。

[jhwcd]

把具体哪一行错误的程序代码用醒目的字符标出来。

[py_mfkmfk]

item_like ="%"
if request("item_like") <>"" then item_like ="%"&request("item_like")&"%"
'sql="select * from gongwen where (title like '%"&item_like&"%' and inputdate "&fuhao&" '"& mydate & "' and sender=" & sqlstr(oabusyusername) & " ) "

sql="select * from gongwen where (title like '"&item_like&"' and recipientusername "&fuhao_name&" '"&recipient_name&"' and inputdate "&fuhao&" '"& mydate & "' and sender=" & sqlstr(oabusyusername) & " ) "
'response.write sql
'response.end
end if
rs.open sql,conn,1,3
错误行为红色部分

[chenyu112]

同意楼上
楼主应该把具体的哪行错误说出来

[不耐烦]

sql="select * from gongwen where (title like '"&item_like&"' and recipientusername "&fuhao_name&" '"&recipient_name&"' and inputdate "&fuhao&" '"& mydate & "' and sender=" & sqlstr(oabusyusername) & " ) "
正确吗？

[wdbjsh]

肯定不对。。。

至少 like语句没有×％之类的匹配肯定找不到想要的东西

[py_mfkmfk]

我查询可以查到自己想要的记录，但有时候记录比较多，有2页以上，点下一页会出错！！！

[jhwcd]

分页的程序里没有带上相关的参数吧。

[py_mfkmfk]

哇，东东来了啊，给我指点指点啊！没有带上什么参数啊？
我不点查询的话，点下一页又没有问题，就是查询出结果后点下一页就出错！

[epui2008]

这个我做过，总体来说你把所有的内容放到一个页面太复杂

[py_mfkmfk]

[Quote=引用 10 楼 epui2008 的回复:]
这个我做过，总体来说你把所有的内容放到一个页面太复杂
[/Quote]

那应该怎么做？难道还写2个页面？

[yifanwu]

[Quote=引用 8 楼 jhwcd 的回复:]
分页的程序里没有带上相关的参数吧。
[/Quote]

[零点不睡觉]

参数要传值到分页中