日期:2014-05-17  浏览次数:20945 次

帮忙看下错误
我试了下面一段代码,我输入正确的数据后查询怎么老说我缺少对象:   '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&   "% '