www.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="> </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> " ) if CurrentPage<2 then response.write( "<font color=#000080>首页 上一页</font> " ) else response.write ("<a href="&filename&"?page=1&pl="&request("pl")&">首页</a> " ) response.write ("<a href="&filename&"?page="&CurrentPage-1&"&pl="&request("pl")&">上一页</a> " ) 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> 页次:</font><strong><font color=red>"&CurrentPage&"</font><font color=#000080>/"&n&"</strong>页</font> " ) response.write ("<font color=#000080> 共<b>"&totalnumber&</b>个影片 <b>&maxperpage&</b>个影片/页</font> " end function %> </td> </tr> </table> </form></td> </tr> </table> </body> </html>