📄 admin_hy.asp
字号:
<%@ codepage ="936" %>
<%
if session("flag")="" then
response.write "<SCRIPT language=JavaScript>alert('对不起，你没有权限打开此页！');"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<SCRIPT language=JavaScript src="../images/js.js"></SCRIPT>
<SCRIPT language=JavaScript src="../../winopen.js"></SCRIPT>
<!--#include file="../../conn/addconn.asp" -->
<link rel="stylesheet" type="text/css" href="../style.css">
<BODY topMargin=0 leftmargin="0" marginheight="0"><div align="center">
<div align="center">
<%
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
dim totalPut
maxperpage=16
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from hy order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>对不起，还没有加入的会员</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
else
currentPage=1
showContent
end if
end if
rs.close
end if
set rs=nothing
sub showContent
%>
<br>
<TABLE width="90%" border="0" cellspacing="0" cellpadding="0">
<TR height=25>
<TD align="left" class="f11"><font color="#FF0000">会员信息管理</font></TD>
<TD align="right"> </TD>
</TR>
</TABLE>
<TABLE border=1 cellPadding=4 cellSpacing=0 width="90%" bordercolorlight="#326598" bordercolordark="#ffffff" >
<script src=../images/Js.js></script>
<form name="form1" method="post" action="shdel.asp">
<TR class="unnamed1" height=28>
<TD width="9%" height="25" align="center" background="../images/admin_bg_1.gif">ID号</td>
<TD width="16%" height="25" align="center" background="../images/admin_bg_1.gif">用户名</td>
<TD width="18%" align="center" background="../images/admin_bg_1.gif">姓名</td>
<TD width="15%" align="center" background="../images/admin_bg_1.gif">性别</td>
<TD width="17%" height="25" align="center" background="../images/admin_bg_1.gif">加入日期</td>
<TD height="25" align="center" background="../images/admin_bg_1.gif">查看</td>
<TD height="25" align="center" background="../images/admin_bg_1.gif">
删除</td>
</TR>
<%do while not rs.eof%>
<TR height="28">
<TD width="9%" align="center" bgcolor="#ffffff"><%=rs("id") %></td>
<TD align="center" bgcolor="#ffffff"><A href="shmodify.asp?id=<%=rs("id")%>"><%=rs("user")%></A></td>
<TD align="center" bgcolor="#ffffff"><%=rs("nm")%></td>
<TD align="center" bgcolor="#ffffff"><%=rs("xb")%></td>
<TD width="17%" align="center" bgcolor="#ffffff"><%=rs("date") %> </td>
<TD width="13%" align="center" bgcolor="#ffffff"><A href="shmodify.asp?id=<%=rs("id")%>"><img src="../images/memberflag_03.gif" width="16" height="16" border="0"></a></td>
<TD width="12%" align="center" bgcolor="#ffffff"><input name="id" type="checkbox" id="id" value="<%=rs("id")%>"></td>
</TR>
<% I=I+1
IF I>=MaxPerPage then exit do
RS.movenext
LOOP
%>
<TR align="center">
<TD height="25" colspan="5" background="../images/admin_bg_1.gif" class="unnamed1">
<%showpage totalput,MaxPerPage,"admin_hy.asp"%>
</TD>
<TD height="25" colspan="3" background="../images/admin_bg_1.gif" class="unnamed1"><input name="chkall" type="button" class="in1" onclick="CheckAll(this.form)" value="全选" >
<input name="chkOthers" type="button" class="in1" id="chkOthers" onclick="CheckOthers(this.form)" value="反选">
<input name="Submit3" type="submit" class="in1" onClick="return test();" value="删除"></TD>
</TR>
</form>
</TABLE>
<%
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
if CurrentPage<2 then
response.write "共<font color=#00FF00><b>"&n&"</b></font>页 第<font color=#00FF00><b>"&CurrentPage&"</b></font>页 共检索到<font color=#00FF00><b>"&totalnumber&"</b></font>条相关信息 "
response.write "【首页】【上一页】"
else
response.write "共<font color=#00FF00><b>"&n&"</b></font>页 第<font color=#00FF00><b>"&CurrentPage&"</b></font>页 共检索到<font color=#00FF00><b>"&totalnumber&"</b></font>条相关信息 "
response.write "【<a href="&filename&"?page=1><font color=#FFFFFF>首页</font></a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"><font color=#FFFFFF>上一页</font></a>】"
end if
if n-currentpage<1 then
response.write "【下一页】【末页】"
else
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&">"
response.write "<font color=#FFFFFF>下一页</font></a>】【<a href="&filename&"><font color=#FFFFFF>末页</font></a>】"
end if
end function
%>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -