网上流行的MOVE站点

				
				
				
				
				1 then
				    response.write "alert('您的操作权限不够！');history.back();"
				    response.end
				end if
				%>
				
				
				
				
				
				
				flash管理页
				
				body  { background:#336699; margin:0px; font:9pt 宋体; }
				table  { border:0px; }
				td  { font:normal 12px 宋体; }
				img  { vertical-align:bottom; border:0px; }
				a  { font:normal 12px 宋体; color:#000000; text-decoration:none; }
				a:hover  { color:#000000;text-decoration:underline; }
				.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
				.menu_title  { }
				.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
				.menu_title2  { }
				.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
				
				
				
				
				      
				        
				影片错误报告区
				        
				      
				    
				
				      
				        
				删 除 三 天 前 的 数 据
				        
				      
				    
								   MaxPerPage=5
				   dim totalPut   
				   dim CurrentPage
				   dim TotalPages
				   dim i,j
				
				   dim typename
				   
				   typename=""
				   if not isempty(request("page")) then
				      currentPage=cint(request("page"))
				   else
				      currentPage=1
				   end if
				   dim sql
				   dim rs
				   dim rstype
				
				   dim typesql
				   dim typeid,typename1
				   if not isEmpty(Replace(request("typeid"), "'", "''")) then
					typeid=Replace(request("typeid"), "'", "''")
				   else
					typeid=""
				   end if
				   if request("page")="" then
				   page=0
				   end if
				%> 
								sql="select * from totalk order by id desc"
				Set rs= Server.CreateObject("ADODB.Recordset")
				rs.open sql,conn,1,1
				  if rs.eof and rs.bof then
				       response.write " 还 没 有 任 何 软 件"
				   else
					  totalPut=rs.recordcount
				      totalPut=rs.recordcount
				      if currentpage				          currentpage=1
				      end if
				      if (currentpage-1)*MaxPerPage>totalput then
					   if (totalPut mod MaxPerPage)=0 then
					     currentpage= totalPut \ MaxPerPage
					   else
					      currentpage= totalPut \ MaxPerPage + 1
					   end if
				
				      end if
				       if currentPage=1 then
				           showpage totalput,MaxPerPage,"eoff.asp"
				            showContent
				            showpage totalput,MaxPerPage,"eoff.asp"
				       else
				          if (currentPage-1)*MaxPerPage				            rs.move  (currentPage-1)*MaxPerPage
				            dim bookmark
				            bookmark=rs.bookmark
				           showpage totalput,MaxPerPage,"eoff.asp"
				            showContent
				             showpage totalput,MaxPerPage,"eoff.asp"
				        else
					        currentPage=1
				           showpage totalput,MaxPerPage,"eoff.asp"
				           showContent
				           showpage totalput,MaxPerPage,"eoff.asp"
					      end if
					   end if
				   end if
					        
				
				  
				
				   sub showContent
				       dim i
					   i=0
				
				  %> 
				
				
				  
				    
				    报告时间：
				    
				  
				  
				    
				    错误原因：
				    
				  
				
									      if i>=MaxPerPage then exit do
					      rs.movenext
					   loop
						  %>
								end sub 
				
				function showpage(totalnumber,maxperpage,filename)
				dim n
				if totalnumber mod maxperpage=0 then
					n= totalnumber \ maxperpage
				else
					n= totalnumber \ maxperpage+1
				end if
				%>
				
				
				
				
				共有部   当前:第页/共页                                                     
				
								首页 上一页                                                        
				
				首页                                                      
				上一页                                                        
								end if
				if n-currentpage				%>
				下一页 尾页                                                        
				
				下一页                                                      
				尾页                                                      
				
				
				                                                                
				第页
				
				      
								end function
				%>
								sub gotopage
				end sub
				%>