?? admin_ad.asp
字號:
<%
'====================================================================
'
' 中國企業平臺后臺管理系統 版權所有:中國企業平臺
'
' 公司網址 http://www.cnept.net
'
' 版權所有 翻版必究
'====================================================================
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then
response.end
end if%>
<% sql="select * from manager"
rs.open sql,conn,1,3
rs.PageSize =10 '每頁記錄條數
iCount=rs.RecordCount '記錄總數
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=0
%>
<TABLE border="0" cellspacing="0" width="100%" cellpadding="0">
<TR>
<TD height=25 align=left bgcolor="#FFCC00">>>所有管理員信息</TD>
</TR>
</TABLE>
<TABLE width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#336699">
<tr height=25 >
<TD width="79" align="center" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><b>ID號</b></font></TD>
<TD width="109" align="center" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><b>用戶名</b></font></TD>
<TD width="405" align="center" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><b>權限</b></font></TD>
<TD width="137" align="center" background="../images/pics/tile_sub.gif"><font color="#FFFFFF"><b>操作</b></font></TD>
</TR>
<% do while not rs.eof and i< rs.pagesize
i=i+1
%>
<tr height="15">
<td width="79" height="28" align="center" bgcolor="#ffffff"><font face="Arial"><b><%=rs("id")%></b></font></td>
<td width="109" bgcolor="#ffffff"><%=rs("admin_name")%></a></td>
<td width="405" align="center" bgcolor="#ffffff"><%if rs("pro")<>"" then%><%=rs("pro")%><%else%><font color="#FF0000">超級管理員</font><%end if%></td>
<td width="137" align="center" bgcolor="#ffffff"><a href="admin_mod.asp?id=<%=rs("id")%>">修改</a>||<a href="delad.asp?id=<%=rs("id")%>">刪除</a></td>
</tr>
<%
rs.movenext
loop%>
<TR>
<TD height="30"
colSpan=6 bgcolor="#FFFFFF" id=mainfoot> <div align="center">共<font color=red><%=maxpage%></font>頁 第<%=page%>頁 <font color=666666>
<%if page-1>0 then%>
<a href="admin_ad.asp.asp?page=<%=page-1%>">上一頁</a>
<%else%>
<font color=666666>上一頁</font>
<%end if%>
<%if page+1<=maxpage then%>
<a href="admin_ad.asp?page=<%=page+1%>">下一頁</a>
<%else%>
<font color=666666>下一頁</font>
<%end if%>
</font>共<% =iCount %>條記錄</div></TD>
</TR>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -