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

				
				  
				     
				      
				    
				     
				       
				        
				           
				            的征友信息
				            
				            
				              发布信息
				            
				             
				              清空
				            
				            
				          
				        
				      
				    
				     
				      
				    
				     
				      
				        
				        
				        				        AccountID=request("user_id")
				        Set Rs = Server.CreateObject("ADODB.Recordset")
					Dim PageSize,AllCount,MaxPage,PageNo
					PageNO		=	Request.QueryString("PageNO")
					SQLStr	=	"Select * From callboard Where user_id="& AccountID &" Order By id Desc"
					PageSize	=	8
					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 
				%>
				            
				          
				        
				        
				      
				    
				     
				      
				    
				  
				
				    
				      > 更多征友信息