asp的新闻网站

源代码在线查看: left.asp

软件大小: 859 K
上传用户: tanhua1981
关键词: asp 新闻 网站
下载地址: 免注册下载 普通下载 VIP

相关代码

				
				      
				        
				      
				      
				        				        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202)"
				        colspan="2">关键字:
				        				        style="background-color: rgb(2,128,217); color: rgb(255,255,255); border: 1px solid rgb(0,0,0)">
				      
				      
				        				        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202)"
				        colspan="2">日  期:
				          				        style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">-				        name="month" size="2"  maxLength=2 style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">-				        type="text" name="day" size="2" maxLength=2 onChange="daychange();"
				        style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">   
				      
				      
				        				        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202); border-bottom: 1px none rgb(190,142,202)">				        align="center">				        style="font-size: 9pt; background-color: rgb(2,128,217); color: rgb(255,255,255)">
				           				               sql="select * from news2_menu where visible='1' order by menuindex "      
				               rs8.Open sql,conn,3,1      
				             %>      
				             				               for i=1 to rs8.RecordCount         
				               if left(rs8("menuid"),3)"012" then  
				             %>        
				                         
				             				               end if 
				               rs8.MoveNext         
				               next        
				               else        
				               Response.Write "menu erro!"        
				               end if        
				               rs8.Close 
				               set rs8=nothing%> 
				        
				        				        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202); border-bottom: 1px none rgb(190,142,202)">				        src="../images/pic-165.gif" width="27" height="26">
				      
				    
				     
				    
				      
				        
				      
				      
				        
				        				        rs.Open sql,conn,3,1
				        if not rs.EOF then%>
				        
				        
				        
				        
				        
				      
				      
				        
				         
				         
				      
				      				      rs.close%>
				    
				    
				      
				        
				      
				      
				      				        rs.Open sql,conn,3,1
				        if not rs.EOF then%>
				         
				         
				        
				        				      rs.close%> 
				    
				    
				      
				        
				          
				            
				          
				           
				             				        rs.Open sql,conn,3,1
				        if not rs.EOF then
				          for i=1 to rs.RecordCount 
				        %>
				        
				         
				        
				        				        rs.MoveNext 
				        next
				        end if
				      rs.close%>
				          
				        
				        
				      
				    
				    
				      
				        
				      
				     				        sql="select   * from news2_specialcommend where menuid='010014' and visible'0' order by infoindex "    
				        rs.Open sql,conn,3,1    
				        if not rs.EOF then    
				        for i=1 to rs.RecordCount     
				        %>     
				           
				            
				            
				            
				            
				            
				             
				           
				           
				            
				           
				        				         next    
				         end if    
				         rs.Close             
				        %> 
				    
				    
				      
				        
				      
				    
				    
				      
				        
				        - 新华网
				        - 中央电视台
				        - 华报网
				        - 新浪网
				        - 搜狐网
				       
				        
				      
				    			

相关资源