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

				
				 
				
				
				
				
				
				
				
				
				
				
				   
				    高级管理 
				      | 上载图片   
				      | 刷新   
				      
				  
				   
				    重新计算照片
				    重新计算每个会员实际上载的照片，运行将耗用大量资源，请谨慎使用！
				  
				   
				    超级用户密码
				     
				      				set rs=server.CreateObject("ADODB.RecordSet")
				rs.open "select * from admin where id=1",conn,1,1
				%>
				      
				        
				        帐号： 
				          
				          
				          密码： 
				          
				          
				          
				          
				        
				      
				      				rs.close
				
						if request("method")="chan" then 
						  if request("change")="修改" then
							sql= "select * from admin where id=1"
				                        rs.open sql,conn,3,2	
								rs("admin_name")=request("account")
								rs("admin_password")=request("passwd")
								rs.Update
							rs.close	
						  end if 
						end if
				
				%>
				    
				  
				   
				    首页最新动态
				     
				      
				         
				          日期
				          内容
				          删除
				        
				        				sql="select * from news"
				rs.open sql,conn,1,1
				do while not rs.eof
				%>
				         
				           
				           
				          删除
				        
				        				  rs.movenext
				loop
				rs.close
				%>
				      
				      						  if request("method")="del" then
						        sql="delete from news where id=" & request("id")
				                        rs.open sql,conn,3,2	
						  end if 
				%>
				      
				      
				        
				        
				           
				            日期
				             
				              
				            
				          
				           
				            内容
				             
				              
				            
				          
				           
				             
				              
				            
				          
				        
				      
				      				
						if request("method")="add" then 
				                        	rs.open "news",conn,3,2	
				                                rs.Addnew
								rs("senddate")=cdate(request("date"))
								rs("contents")=request("contents")
								rs.Update
								rs.close
						end if
				%>
				    
				  
				   
				    友情链接
				     
				      
				         
				          日期
				          友情连接
				          删除
				        
				        				sql="select * from links"
				rs.open sql,conn,1,1
				do while not rs.eof
				%>
				         
				           
				           
				          删除
				        
				        				  rs.movenext
				loop
				rs.close
				%>
				      
				      						  if request("method")="drop" then
						        sql="delete from links where id=" & request("id")
				                        rs.open sql,conn,3,2
						  end if 
				%>
				      
				      
				        
				        
				           
				            网站名称
				             
				              
				            
				          
				           
				            链接地址
				             
				              
				            
				          
				           
				             
				              
				            
				          
				        
				      
				      				
						if request("method")="append" then 
				                        	rs.open "links",conn,3,2	
				                                rs.Addnew
								rs("sitename")=request("sitename")
								rs("siteurl")=request("siteurl")
								rs.Update
								rs.close
						end if
				%>
				    
				  
				
				
				
								conn.close
				%>