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

				
				
				
				
				
				
				
				
				     
				      
				        
				   
				    城市
				    约会人
				    约会日
				    约会名称
				    性质
				    要求
				    人气
				    删除
				  
				        
				        
				        				        Set Rs = Server.CreateObject("ADODB.Recordset")
					Dim PageSize,AllCount,MaxPage,PageNo
					PageNO		=	Request.QueryString("PageNO")
					IF Request("sex")="" then
						SQLStr	=	"Select * From meeting Order By id Desc"
					Else
						SQLStr  =	"Select * From meeting Where "
						IF Request("city")"请填写城市名" then
							SQLStr  =	SQLStr & " city like '%" & request("city") & "%' and"
						End IF
						SQLStr  =	SQLStr & " user_sex='" & request("user_sex") & "'"
						IF Request("sex")"全部" then
							SQLStr  =	SQLStr & " and to_sex='" & request("sex") & "'"
						End IF
						IF Request("meettype")"全部" then
							SQLStr  =	SQLStr & " and meettype='" & request("meettype") & "'"
						End IF
						SQLStr  =	SQLStr & " order by id desc"
				
					End If
					PageSize	=	15
					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 
				%>