gusucode.com > ASP.NET+ACCES视频点播系统设计(源代码+论文) > ASP.NET+ACCES视频点播系统设计(源代码+论文)\视频点播系统(ASP.NET)\admin\fsffd\adminedit2.asp

    <%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Page Language="VB" Debug="true" %>
<script Language="VB" Runat="Server">
Sub button_click(Sender As Object, e As EventArgs)
 if session("admin")="" then
  'response.redirect "admin.aspx"
  else
	if session("flag")>2 then
		response.write ("<br><p align=center>您没有操作的权限</p>")
		response.end
	end if
  end if
End Sub
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#009458">
<table border="0" width="92%" cellspacing="0" cellpadding="0" align="center">
  <tr>
  <td width="100%" align="center">
<FONT color="#FF9933">点击相关影片察看及修改影片资料,删除影片请选中相关影片然后点击删除
</FONT>
<form id="form" method="post" runat="server">
      <table border="0" cellspacing="1" width="589" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="2">
      <tr bgcolor="#145f74">
      <td width="46" align="center" height="20"><STRONG><FONT color="#FFFFFF">ID</FONT></STRONG></td>
      
 <td width="400" align="center"><STRONG><FONT color="#FFFFFF">软 件 名</FONT></STRONG></td> 
      <td width="68" align="center"> 
        <asp:Button ID='submit' Text='删 除' runat="server" OnClick="button_click"/>        
</td> 
      </tr> 
         
      <tr bgcolor="#cce6ed"> 
           
      <td colspan="3" align="center" height="20"> 
           
      </td> 
      </tr> 
      <tr> 
      <td height="11" width="46" bgcolor="#a5d0dc"> 
      <p align="center">
      </td> 
      <td width="400" bgcolor="#cce6ed"> 
      <p><a href="editsoft.aspx?id=&classid=&Nclassid=">&nbsp;</a> 
      </td> 
      <td width="68" bgcolor="#a5d0dc"> 
      <p align="center"> 
       <input type='checkbox' name='selAnnounce' value=''> 
      </td> 
      </tr> 
%> 
      <tr bgcolor="#cce6ed" align="center"> 
      <td height="11" colspan="3"> 
      <DIV align="center"> 
       <CENTER> 
       </CENTER> 
      </DIV> 
      <% 
   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 
  response.write ("<p align=center>&nbsp;" )
  if CurrentPage<2 then 
    response.write( "<font color=#000080>首页 上一页</font>&nbsp;" )
  else 
    response.write ("<a href="&filename&"?page=1&pl="&request("pl")&">首页</a>&nbsp;" )
    response.write ("<a href="&filename&"?page="&CurrentPage-1&"&pl="&request("pl")&">上一页</a>&nbsp;" )
  end if 
  if n-currentpage<1 then 
    response.write ("<font color=#000080>下一页 尾页</font>")
  else 
    response.write ("<a href="&filename&"?page="&(CurrentPage+1)&"&pl="&request("pl")&">" )
    response.write ("下一页</a> <a href="&filename&"?page="&n&"&pl="&request("pl")&">尾页</a>" )
  end if 
   response.write ("<font color=#000080>&nbsp;页次:</font><strong><font color=red>"&CurrentPage&"</font><font color=#000080>/"&n&"</strong>页</font> " )
    response.write ("<font color=#000080>&nbsp;共<b>"&totalnumber&</b>个影片 <b>&maxperpage&</b>个影片/页</font> "        
end function 
%> 
      </td> 
      </tr> 
   
      </table> 
       
   </form></td> 
  </tr> 
</table> 
</body> 
</html>