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

				
				   
				    有如下网友向您提出交友请求
				  
				
				
				   
				    日期
				    姓名
				    性别
				    年龄
				    来自
				    网名
				    态度
				  
				        
				        
				        				        AccountID=session("u_id")
				        Set Rs = Server.CreateObject("ADODB.Recordset")
					Dim PageSize,AllCount,MaxPage,PageNo
					PageNO		=	Request.QueryString("PageNO")
					SQLStr	=	"select * from apply where for_id=" & session("u_id")
					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 
				%>
				            
				          
				        
				
				
				     
				      
				    
				    
				      我所追求的┊我的朋友