index.asp
来自「java的一个网上商店的源码,后台是Access数据库.功能还可以.界面比较简单」· ASP 代码 · 共 197 行
ASP
197 行
<% option explicit %>
<!-- #include virtual="/admin/userinfo/_lib/_lib.asp" -->
<%
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
' 功能：用户管理--浏览用户列表
' @Language=VBscript
'-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Dim sql,rs,i
Dim perpage , pages , page , records , empty_msg '---分页用变量
Dim uid '---管理员ID
Dim keytext , strtemp
call DB_Connect(strconn)
'---验证身份----
Call AdminCheck
'---取检索的关键字----
keytext=getForm("ctxtkeytext")
strtemp=""
if keytext<>"" then
strtemp= strtemp & " and (usr_name like '%" & keytext & "%' or usr_realname like '%" & keytext & "%' or usr_email like '%" & keytext & "%' )"
end if
if strtemp<>"" then
strtemp=" where " & mid(strtemp,5)
end if
sql="select * from t_userinfo " & strtemp & " order by usr_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>
<FORM NAME="form2" METHOD="post" ACTION="index.asp">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="5" ALIGN="CENTER">
<TR>
<TD ALIGN="CENTER">查询用户: 关键字
<INPUT TYPE="text" NAME="ctxtkeytext" VALUE="<%=keytext%>">
<input type="image" src="/images/search_gogo.gif" name="submit">
</TD>
</TR>
</TABLE>
</FORM>
<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)%>">首页</A>
<A HREF="index.asp?page=<%=perpage-1%>&ctxtkeytext=<%=server.urlencode(keytext)%>"><<上一页</A>
<% End if %>
<% If perpage=pages Then %>
下一页>> 尾页
<% Else %>
<A HREF="index.asp?page=<%=perpage+1%>&ctxtkeytext=<%=server.urlencode(keytext)%>">下一页>></A>
<A HREF="index.asp?page=<%=pages%>&ctxtkeytext=<%=server.urlencode(keytext)%>">尾页</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="hidden" NAME="ctxtkeytext" VALUE="<%=keytext%>">
<INPUT TYPE="image" BORDER="0" NAME="imageField" SRC="/images/go.gif">
</FORM></TD>
</TR>
</TABLE>
<TABLE WIDTH="98%" BORDER="0" CELLSPACING="1" CELLPADDING="5" ALIGN="CENTER">
<TR ALIGN="CENTER" BGCOLOR="#558BFF">
<TD CLASS="txt"><FONT COLOR="#FFFFFF">姓名</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">用户名</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">地址</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">电话</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">Email</FONT></TD>
<TD CLASS="txt"><FONT COLOR="#FFFFFF">管理</FONT></TD>
</TR>
<%
if empty_msg=0 then
i=0
do while (not rs.eof) and (i<MaxPerPage)
%>
<TR ALIGN="CENTER" BGCOLOR="#e1e1e1">
<TD CLASS="txt"><%=rs("usr_realname")%> </TD>
<TD CLASS="txt"><%=rs("usr_name")%> </TD>
<TD CLASS="txt"><%=rs("usr_address")%> </TD>
<TD CLASS="txt"><%=rs("usr_tel")%> </TD>
<TD CLASS="txt" nowrap><A HREF="mailto:<%=rs("usr_email")%>" TITLE="<%=rs("usr_email")%>">发Email</A></TD>
<TD CLASS="txt" nowrap><A HREF="javascript:confirm_chk('确认设置吗?','modify.asp?id=<%=rs("usr_id")%>')">设置</A> <A HREF="javascript:confirm_chk('确认删除吗?','del.asp?id=<%=rs("usr_id")%>')">删除</A></TD>
</TR>
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
%>
</TABLE>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="5">
<TR>
<TD><% If perpage=1 Then %>
首页 <<上一页
<% Else %>
<A HREF="index.asp?page=1&ctxtkeytext=<%=server.urlencode(keytext)%>">首页</A>
<A HREF="index.asp?page=<%=perpage-1%>&ctxtkeytext=<%=server.urlencode(keytext)%>"><<上一页</A>
<% End if %>
<% If perpage=pages Then %>
下一页>> 尾页
<% Else %>
<A HREF="index.asp?page=<%=perpage+1%>&ctxtkeytext=<%=server.urlencode(keytext)%>">下一页>></A>
<A HREF="index.asp?page=<%=pages%>&ctxtkeytext=<%=server.urlencode(keytext)%>">尾页</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 + =
减小字号Ctrl + -
显示快捷键?