不错的ASP整站源代码。在IIS环境下运行都没有问题

				
				
				  
				     
				      
				    
				     
				       
				        　　　的好友列表
				      
				      
				           我的追求者┊我所追求的 
				      
				    
				     
				      
				    
				     
				      
				        
				           
				            网名
				            性别
				            所在地
				            加入时间
				            操作
				          
				          
				            
				          
				          
				          
				          				        AccountID=session("u_id")
				        Set Rs = Server.CreateObject("ADODB.Recordset")
					Dim PageSize,AllCount,MaxPage,PageNo
					PageNO		=	Request.QueryString("PageNO")
					SQLStr	=	"select * from friend where for_id=" & AccountID
					PageSize	=	10
					Rs.PageSize =	PageSize
					Rs.Open SQLStr,conn,1,3
					AllCount	=	Rs.RecordCount
					MaxPage		=	Rs.PageCount 
					If Rs.RecordCount > 0 Then
					Rs.MoveFirst 
					If PageNO = "" Then PageNO=1
					If PageNO+1 < 1 Then PageNO=1
					If PageNO+1 > MaxPage+1 Then PageNO = MaxPage
					Rs.AbsolutePage = PageNO
					End If
					i=0
					DO While Not Rs.EOF and	i < PageSize
						i=i+1
				%>
				           
				            
				            
				            
				            
				            删除
				          
				          
				            
				          
				          						Rs.MoveNext
					Loop
					Rs.Close()
				%>
				        
				        
				           
				             共有个  好友  页次:  /  页
				            
				             
				              0 then %>
				              首页 上一页
				              				else    
				%>
				              首页 上一页
				              				end if %>
				              					if PageNo+1				%>
				              下一页 末页 
				              					else    
				%>
				              下一页 末页
				              					end if 
				%>