本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

				
								set rs=server.createobject("adodb.recordset")
				sql="select * from house where mytype='"&lb&" ' order by id desc"
				rs.open sql,conn,1
				
				rs.pagesize=18 '每页显示多少条
				pagecount=rs.pagecount '总页数
				%>
				
				  
				     
				           
				           
				            
				                 
				                  []信息列表
				                
				              
				          
				           
				             
				                
				                 
				                    
									类型
				                    
										 
				                        
				                        区域
				                    
										 
				                        户型
				                        
				                     
										 
				                                               价格
				                    
										 
				                                              人气
				                    
										 
				                     
				                        发布时间
				                    
										查看 
				                       
				                      
				                  
				                  
				  				  if rs.bof and rs.eof then
				  response.write "暂时没有信息"
				  else
				  
				  page=clng(request.querystring("page"))
				  if page				  if page>rs.pagecount then page=rs.pagecount
				  rs.absolutepage=page  '跳到多少页
				  
				  for i=1 to rs.pagesize
				  %>
				                   
				                      
				                      
				                      
				                     
				                        
				                        
				                     
				                        
				                        
				                      
				                        
				                        
				                     
				                        
				                        
				                     
				                        
				                        
				                    查看 
				                      
				                  
				                  				  rs.movenext
				  if rs.eof then exit for 
				  next
				  end if 
				  %>
				                
				              
				          
				           
				            页码   
				                					r=7
					 
					'总页数
					zys=round(clng(rs.pagecount)/r+0.5)
					
					'当前页数
					dqys=request.QueryString("dqys") 
					
					'开始页
					ksy=request.QueryString("ksy") 
					
					if dqys="" then dqys=1
					if ksy="" then ksy=1 
					 
					js=clng(dqys) * r '一个FOR语句结束
					if js > clng(rs.pagecount) then js=clng(rs.pagecount)
					
					newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
						
				if clng(dqys) >1 then response.write "" &"上一页" &""
				
					  for t=newksy to js
					     response.write "" &t& " "
					  next
					  
				
				if cdbl(dqys)< zys then response.write "" &"下一页" &""
				%>