单班同学录 一个非常漂亮的同学录 哦

				
				
				
				
				
				
				
				同学录
				
				
				
				
				
				   
				    
				         
				          
				           
				          
				        
				      
				  
				   
				    
				      
				         
				           
				            标 题
				           
				            发送人
				           
				            发送时间
				        
				        						  set rs=server.CreateObject("adodb.recordset")
						  strsql="select primsg.*,user.realname from primsg inner join [user] on primsg.primsgsender=user.username where primsguser='"&session("username")&"' order by primsgtime desc"
						  rs.open strsql,conn,1,1
						  if not rs.eof then
						  rs.PageSize =10 '每页记录条数
						  result_num=rs.RecordCount '记录总数
						  maxpage=rs.PageCount 
						  page=request("page")
						  if Not IsNumeric(page) or page="" then
							page=1
						  else
							page=cint(page)
						  end if
						  if page							page=1
						  elseif  page>maxpage then
							page=maxpage
						  end if
						  rs.AbsolutePage=Page
						  else
						  result_num=0
						  maxpage=0
						  page=0
						  end if
						 if not rs.eof then 
				         for i=1 to rs.PageSize %>
				         
				           
				            
				             
				           
				           
				        
				        						  rs.movenext:if rs.EOF then Exit For
						  next
						  end if
						  rs.close
						  set rs=nothing
						  %>
				         
				           
				             
				              
				            
				        
				         
				           
				             [发送短消息] [关闭窗口]