一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

				
								dim strFileName
				strFileName="news.asp"
				pageno=20
				%>
				
				  
				    
				      
				        
				        
				        
				        
				      
				        
				        
				          
				            
				          
				          
				            
				              				dim rs,sql
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from news where listid=1 and isview=1 order by istop,id desc"
				rs.open sql,conn,1,1
				rscount=rs.recordcount
				if  rscount				%>
				 ?Y?T?ˉì?D???...
								else
				call showsql(pageno)
				rs.move(rsno)
				for i=1 to loopno
				%>
				              
				                   [] ()  
				              
				              
				                
				              
				              				rs.movenext
				next
				%>
				            
				              
				                
				                  
				              
				              				end if
				rs.close
				set rs=nothing
				%>