在ASP下实现的bbs网站建设

				
				
				
				
									OnlySysOp
					Alive "用户管理"
				%>
				
				
				
				
				
				
										set rsUserInfo=server.CreateObject("ADODB.RecordSet")
				
						pgNo=request("pgNo")
						if pgNo="" then pgNo=1
						byOrder=request("order")
						if byOrder="" then byOrder="userid"
						strSQL="select * from UserInfo order by "+byOrder
				
						rsUserInfo.CursorLocation = 3
						rsUserInfo.CacheSize = 50
						rsUserInfo.Open strSQL,myconn,1
						iUser=rsUserInfo.RecordCount
						rsUserInfo.MoveFirst
				        rsUserInfo.PageSize = 50
				        Dim TotalPages
				        TotalPages = rsUserInfo.PageCount
						rsUserInfo.AbsolutePage = pgNo
						Dim Count
						dim dNo,uNo
						dNo=pgNo-1
						uNo=pgNo+1
						if dNo=0 then dNo=1
						if uNo>totalpages then uNo=totalpages
				%>
				
				
					第页，共页    
					上一页  
					下一页  
				
				
				
					
						ID
						用户ID
						呢称
						Email
						上站
						文章
						经验
						最后上站时间
					
										if count mod 2=1 then %>
							
				
							
				
						
						
						   
						
						
				
						
				
						
						
						
						
						
						
						
					
									Count=Count+1
					Loop 
					rsUserInfo.close
					myconn.close
				%>
				
				
				
									set rsUserInfo=Nothing
					set myconn=Nothing
				%>