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

在线等!谢谢!大家帮帮忙!
在区域(qy)那显示图片显示不出来为什么呀?谢谢?
<%

                  dim   rssql2,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

               
set   conn   =   server.CreateObject( "ADODB.connection ")
set   rs=   server.CreateObject( "ADODB.RecordSet ")
conn.open( "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "&server.MapPath( "zhongzhong.asp "))
rssql2   =   "select   *   from   house   where   fwlb= '求购 '     order   by   sj   desc "  
  rs.open   rssql2,conn,3,3

                  PageSize=20
           

                  PageSize=20

                  If   rs.RecordCount=0   then

                  %>

                                     

                           

                  <%

                  else

                                      rs.PageSize   =   Cint(PageSize)

                                      TotalPages=rs.PageCount

                                      PageNo=Request.QueryString( "PageNo ")

                                      if   PageNo= " "   or   PageNo <1   Then

                                                        PageNo   =   1

                                      end   if

                                      rs.AbsolutePage   =   PageNo

                                    Position=rs.PageSize*PageNo

                                      PageBegin=Position-rs.PageSize+1

                                      if   Position   <rs.RecordCount   then