?? index.asp
字號:
<% option explicit %>
<!-- #include virtual="/admin/level/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：權限管理--瀏覽管理員列表
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs,i
Dim perpage , pages , page , records ,empty_msg
call DB_Connect(strconn)
'---驗證身份----
Call AdminCheck
sql="select * from t_AdminUserInfo order by asr_id desc"
Set rs=Server.CreateObject("adodb.recordset")
rs.Open sql,oConn,1,1
'-------------set page-----------
If rs.Eof and rs.Bof Then
perpage=1
pages=1
records=0
empty_msg=1
Else
rs.pagesize=MaxPerPage
pages=rs.pagecount
records=rs.recordcount
page=Request("page")
if page="" or page=empty then
perpage=1
else
perpage=int(page)
if perpage>pages then
perpage=pages
end if
end if
rs.absolutepage=perpage
empty_msg=0
'----------------------------
End if
%>
<HTML>
<HEAD>
<title>電子商城</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="/inc/css/pub.css" TYPE="TEXT/CSS">
<SCRIPT LANGUAGE="JavaScript" SRC="/inc/js/shop.js">
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#ffffff TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!--#include virtual="/admin/inc/all_top.asp" -->
<!--#include virtual="/admin/inc/all_first_top.asp" -->
<!--#include virtual="/admin/inc/all_second_top.asp" -->
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=710>
<TR>
<TD COLSPAN=3><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="10" BORDER=0 ></TD>
</TR>
<TR>
<TD WIDTH=170 ALIGN=right VALIGN=top>
<!--#include virtual="/admin/inc/default_left.asp" -->
</TD>
<TD WIDTH=15><IMG SRC="/images/dot.gif" WIDTH="15" HEIGHT="1" BORDER=0 ></TD>
<TD VALIGN=top>
<TABLE WIDTH=525 BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD VALIGN="TOP">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD><B><FONT COLOR="#0033cc">權限管理</FONT></B><IMG SRC="/images/arrow.gif" BORDER=0></TD>
<TD ALIGN="right"><A HREF="javascript:this.location.reload();">刷新</A></TD>
</TR>
<TR BGCOLOR="#000000">
<TD COLSPAN="2"><IMG SRC="/images/dot.gif" WIDTH="1" HEIGHT="1" BORDER=0 ></TD>
</TR>
</TABLE>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=2>
<TR>
<TD>
<% If perpage=1 Then %>
首頁 <<上一頁
<% Else %>
<A HREF="index.asp?page=1&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">首頁</A>
<A HREF="index.asp?page=<%=perpage-1%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>"><<上一頁</A>
<% End if %>
<% If perpage=pages Then %>
下一頁>> 尾頁
<% Else %>
<A HREF="index.asp?page=<%=perpage+1%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">下一頁>></A>
<A HREF="index.asp?page=<%=pages%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">尾頁</A>
<% End if %>
</TD>
<TD CLASS="ko" ALIGN=right>
<FORM NAME="form1" METHOD="post" ACTION="index.asp" onsubmit="javascript:jumpto(document.form1.page.value,<%=pages%>);">
第<%=perpage%>頁|共<%=pages%>頁 進入第
<INPUT TYPE="text" SIZE=2 NAME="page" VALUE="<%=perpage%>">
頁
<INPUT TYPE="image" BORDER="0" NAME="imageField" SRC="/images/go.gif">
</FORM>
</TD>
</TR>
</TABLE>
<HR SIZE="1">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="5" BORDERCOLORDARK="#FFFFFF" BORDERCOLORLIGHT="#666666" ALIGN="CENTER">
<TR BGCOLOR="#558bff">
<TD ALIGN="CENTER"><FONT COLOR="#FFFFFF">姓名</FONT></TD>
<TD ALIGN="CENTER"><FONT COLOR="#FFFFFF">真實姓名</FONT></TD>
<TD ALIGN="CENTER"><FONT COLOR="#FFFFFF">級別</FONT></TD>
<TD ALIGN="CENTER"><FONT COLOR="#FFFFFF">Email</FONT></TD>
<TD ALIGN="CENTER"><FONT COLOR="#FFFFFF">管理</FONT></TD>
</TR>
<%
if empty_msg=0 then
i=0
do while (not rs.eof) and (i<MaxPerPage)
%>
<TR BGCOLOR="#e1e1e1" ALIGN="CENTER">
<TD CLASS="txt"><%=rs("asr_name")%> </TD>
<TD CLASS="txt"><%=rs("asr_realname")%> </TD>
<TD CLASS="txt"><%=rs("asr_level")%> </TD>
<TD CLASS="txt"><A HREF="mailto:<%=rs("asr_email")%>" TITLE="<%=rs("asr_email")%>">發mail</A> </TD>
<TD CLASS="txt"><A HREF="javascript:confirm_chk('確認修改嗎?','modify.asp?id=<%=rs("asr_id")%>')">修改</A>
<A HREF="javascript:confirm_chk('確認刪除嗎?','del.asp?id=<%=rs("asr_id")%>')">刪除</A></TD>
</TR>
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
</TABLE>
<BR>
<TABLE WIDTH="98%" BORDER="0" CELLSPACING="0" CELLPADDING="5" ALIGN="CENTER">
<TR>
<TD>
<% If perpage=1 Then %>
首頁 <<上一頁
<% Else %>
<A HREF="index.asp?page=1&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">首頁</A>
<A HREF="index.asp?page=<%=perpage-1%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>"><<上一頁</A>
<% End if %>
<% If perpage=pages Then %>
下一頁>> 尾頁
<% Else %>
<A HREF="index.asp?page=<%=perpage+1%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">下一頁>></A>
<A HREF="index.asp?page=<%=pages%>&ctxtkeytext=<%=server.urlencode(keytext)%>&flag=<%=level_flag%>">尾頁</A>
<% End if %>
</TD>
<TD ALIGN="RIGHT">每頁:<%=maxperpage%>個 頁次:<%=perpage%>/<%=pages%>頁 管理員總數:<%=records%></TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR>
<TD BACKGROUND="../../images/gotop_bg.gif"><A HREF="#top"><IMG SRC="../../images/gotop.gif" BORDER="0"></A></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<!--#include virtual="/inc/default_end.asp" -->
<BR>
</BODY>
</HTML>
<%
call DB_DisConnect
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -