帮忙看下错误
我试了下面一段代码，我输入正确的数据后查询怎么老说我缺少对象: 'rs ',我不是在开头写了一个rs了吗？它的错误提示是在这行Do While Not rs.Eof and i <maxperpage
帮忙指教下
<!--#include file= "conn.asp "-->
<%
set rs=server.createobject( "adodb.recordset ")
dim Date11,Date12,DBnumber,Person1,Date21,Date22,SysDepar,Person2,Money
Date11=trim(request( "date11 "))
Date12=trim(request( "date12 "))
DBnumber=trim(request( "dbnumber "))
Person1=trim(request( "persone1 "))
Date21=trim(request( "date21 "))
Date22=trim(request( "date22 "))
SysDepart=trim(request( "depart1 "))
FactDepart=trim(request( "depart2 "))
Person2=trim(request( "person2 "))
if Date11 <> " " then
if not isdate(Date11) then
response.write " <script language= 'javascript '> "
response.write "alert( '您填写的内容不符合要求，必须是日期，请检查！ '); "
response.write "location.href= 'javascript:history.go(-1) '; "
response.write " </script> "
response.end
end if
end if
if Date12 <> " " then
if not isdate(Date12) then
response.write " <script language= 'javascript '> "
response.write "alert( '您填写的内容不符合要求，必须是日期，请检查！ '); "
response.write "location.href= 'javascript:history.go(-1) '; "
response.write " </script> "
response.end
end if
end if
if Date21 <> " " then
if not isdate(Date21) then
response.write " <script language= 'javascript '> "
response.write "alert( '您填写的内容不符合要求，必须是日期，请检查！ '); "
response.write "location.href= 'javascript:history.go(-1) '; "
response.write " </script> "
response.end
end if
end if
if Date22 <> " " then
if not isdate(Date22) then
response.write " <script language= 'javascript '> "
response.write "alert( '您填写的内容不符合要求，必须是日期，请检查！ '); "
response.write "location.href= 'javascript:history.go(-1) '; "
response.write " </script> "
response.end
end if
end if
sql= "select * from wifeII where 1=1 "
if Date11 <> " " and Date12 <> " " then
sql =sql & " and outdate between # "&Date11& "# and # " &Date12& "# "
end if
if DBnumber <> " " then
sql = sql & "and number like '% " &DBnumber& "% ' "
end if
if Person1 <> " " then
sql = sql & "and personed like '% " &Person1& " '% "
end if
if Date21 <> " " and Date22 <> " " then
sql = sql & "and indate between # " &Date21& "# and # " &Date22& "# "
end if
if SysDepart <> " " then
sql = sql & "and syspart like '% " &SysDepart& " '% "
end if
if FactDepart <> " " then
sql = sql & "and factpart like '% " &FactDepart& " '% "
end if
if Person2 <> " " then
sql = sql & "and person like '% " &Person2& " '% "
end if
rs.open sql,db,1,3
dim MaxPerPage
dim totalPut
dim CurrentPage
dim TotalPages
dim i
MaxPerPage=20
if rs.eof or rs.bof then
response.write "对不起没有搜索到记录 "
response.end
else
rs.pagesize=MaxPerPage
If trim(Request( "Page ")) <> " " then
If IsNumeric(trim(Request( "Page "))) = False Then
GoError "分页参数错误，请不要试图破坏此系统。 "
End If
CurrentPage= CLng(request( "Page "))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs.recordcount
if CurrentPage <> 1 then
if (currentPage-1)*MaxPerPage <totalPut then
rs.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
end if
end if
dim n,k
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
If Not rs.Eof Then
Do While Not rs.Eof and i <maxperpage
%>
<style type= "text/css ">
<!--
a {
font-size: 9pt;
text-decoration: none;
}
-->
</style>
<style type= "text/css ">
<!--
p {
font-size: 9pt;
text-decoration: none;
}
-->
</style>
<table width= "1000 " border= "0 " align= "center " cellpadding= "5 " cellspacing= "0 ">
<tr align= "center " valign= "middle " bgcolor= "#006699 ">
<td height= "25 "> <font color= "#FFFFFF "> 出单日期 </font> </td>
<td> <font color= "#FFFFFF "> 保单号 </font> </td>
<td> <font color= "#FFFFFF "> 被保险人 </font> </td>
<td> <font color= "#FFFFFF "> 起保日期 </font> </td>
<td> <font color= "#FFFFFF "> 系统内部门 </font> </td>
<td> <font color= "#FFFFFF "> 实际部门 </font> </td>
<td> <font color= "#FFFFFF "> 业务员 </font> </td>
<td> <font color= "#FFFFFF "> 签单保费 </font> </td>
</tr>
<%
do while not rs.eof and i <=20
%>
<tr align= "center ">
<td height= "26 "> <%=rs( "outdate ")%> </td>
<td height= "26 "> <%=rs( "number ")%> </td>
<td height= "26 "> <%=rs( "personed ")%> </td>
<td height= "26 "> <%=rs( "indate ")%> </td>
<td height= "26 "> <%=rs( "syspart ")%> </td>
<td height= "26 "> <%=rs( "factpart ")%> </td>
<td height= "26 "> <%=rs( "person ")%> </td>
<td height= "26 "> <font color= "#FF0000 "> <%=rs( "money ")%> </font> </td>
</tr>
<%
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
%>
<% 'end if%>
</table>
<p align= "center ">
<%
Response.Write "共 <font color= '#FF0000 '> "&totalPut& " </font> 个保单 "
k=currentPage
if k <> 1 then
response.write " <a href=select.asp?Date11= "&date11& "Date12= "&date22& "&BDnumber= "&dbnumber& "&Person1= "&personed& "&Date21= "&date21& "Date22= "&date22& "&SysDepart= "&syspart& "&FactDepart= "&factpart& "&Person2= "&person& "&page=1> 首页 </a> "
response.write " <a href=select.asp?Date11= "&date11& "Date12= "&date22& "&BDnumber= "&dbnumber& "&Person1= "&personed& "&Date21= "&date21& "Date22= "&date22& "&SysDepart= "&syspart& "&FactDepart= "&factpart& "&Person2= "&person& "&page= "&cstr(k-1)& "> 上一页 </a> "
else
Response.Write "[首页] [上一页] "
end if
if k <> n then
response.write " <a href=select.asp?Date11= "&date11& "Date12= "&date22& "&BDnumber= "&dbnumber& "&Person1= "&personed& "&Date21= "&date21& "Date22= "&date22& "&SysDepart= "&syspart& "&FactDepart= "&factpart& "&Person2= "&person& "&page= "&cstr(k+1)& "> 下一页 </a> "
response.write " <a href=select.asp?Date11= "&date11& "Date12= "&date22& "&BDnumber= "&dbnumber& "&Person1= "&personed& "&Date21= "&date21& "Date22= "&date22& "&SysDepart= "&syspart& "&FactDepart= "&factpart& "&Person2= "&person& "&page= "&cstr(n)& "> 尾页 </a> "
else
Response.Write "[下一页] [尾页] "
end if
Response.Write " 页次： <font color= '#ff0000 '> "¤tpage& " </font> / "&n& "页 "& "20 "& "篇文章/页 "
%>
转到：
<select name= "select " onchange= "javascript:window.location= 'select.asp?page= '+this.options[this.selectedIndex].value; ">
<option> 跳转 </option>
<%
Dim z
For z=1 To n%>
<option value= " <%=z%> "> 第 <%=z%> 页 </option>
<%
Next
%>
</select>
</div> </td>
</tr>
<%
loop
End if
rs.Close
End if
%>
</p>
[解决办法]
你去掉试试，看看是不是你想要的结果
