全站生成htm静态页面

				
				
				
				
								dim i
				i=0 
				MaxList=80
				set rs=server.createobject("adodb.recordset")
				
				sql="select * from class order by classid"
				rs.open sql,conn,1,1
				i=request("id")
				if i="" then i=rs("Classid")
				%>
				
				
				      
				      
				        
				          音 乐 分 类 管 理
				        
				        
				          
				                
				                  
				                   
				                    
				                        ↓所属站点
				                      ↓进入音乐分类列表
				                      ↓添加音乐分类
				                    
				                   
				                  
				                
				           
				        
								do while not rs.eof
					i=i+1
				%>  
						
				          
				                
				                  
				                   
				                    
				                        
				                      
				                      				                        
				                    
				                   
				                  
				                
						  
				        
									if (i mod (MaxList/2)=0) and i>=(MaxList/2) then
				%>
				
									end if
					if i>=MaxList then exit do
				    rs.movenext
					loop
					rs.close
					%>
				      
				     
				    
								set rs=nothing
				conn.close
				set conn=nothing
				%>