📄 del_admin.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim conn
dim connstr
connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
Set conn=Server.CreateObject("ADODB.Connection")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除管理员</title>
<style type="text/css">
<!--
body {
background-color: #435167;
}
-->
</style>
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
font-family: "黑体";
font-weight: bold;
font-size: 24px;
}
-->
</style>
</head>
<body>
<%
Const MaxPerPage=5
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page")) 'Cint把数据转化成integer类型
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select ADMIN_ID, ADMIN_REMARK from GSCOTT.ADMIN_TABLE order by ADMIN_TIME"
rs.open sql,connstr,3,3
if err.number<>0 then
response.write "<p>数据库中暂时无数据</p>"
end if
if rs.eof And rs.bof then
Response.Write "<p> 对不起，目前还没有这种商品！</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
showpage totalput,MaxPerPage,"del_admin.asp"
else if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"del_admin.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"del_admin.asp"
end if
end if
end if
%>
<%sub showContent
dim i
i=0
%>
<div align="center">
<form action="del_admin.asp" method="post">
<table width="582" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="582" height="64" align="center" valign="middle" bgcolor="#868686"><span class="style1">请选择要删除的管理员</span></td>
</tr>
<tr>
<td height="54" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="160" height="27" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">管理员账号</td>
<td width="160" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">备注</td>
<td width="215" align="center" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">操作</td>
<td width="47" valign="top" bgcolor="#CDCDCD"><!--DWLayoutEmptyCell--> </td>
</tr>
<%do while not rs.eof%>
<tr>
<td height="27" valign="middle" bgcolor="#CDCDCD"><%=rs("ADMIN_ID")%></td>
<td valign="middle" bgcolor="#CDCDCD"><%=rs("ADMIN_REMARK")%></td>
<%if rs("ADMIN_ID")="admin" then%>
<td valign="middle" bgcolor="#CDCDCD">不能删除超级管理员帐号</td>
<%else%>
<td align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="del_admin_certain.asp?id=<%=rs("ADMIN_ID")%>">删除</a></td>
</tr>
<%
end if
i=i+1
if i>=MaxPerPage then exit do
rs.MoveNext
loop
rs.Close
set rs=nothing
end sub
%>
</table>
<%
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method="Post" action="<%=filename%>">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<% If CurrentPage<2 Then %>
<td width="40" height="27" align="center" valign="middle" align="center" bgcolor="#CDCDCD" class="bd_font_size">首页</td>
<td width="39" align="center" valign="middle" bgcolor="#CDCDCD" align="center"class="bd_font_size">上一页</td>
<% Else %>
<td width="40" height="27" align="center" valign="middle" bgcolor="#CDCDCD" align="center"class="bd_font_size"><a href=<%=filename%>?page=1>首页</a></td>
<td width="39" align="center" valign="middle" bgcolor="#CDCDCD" align="center"class="bd_font_size"><a href=<%=filename%>?page=<%=CurrentPage-1%>>上一页</a></td>
<% End If %>
<% If n-currentpage<1 Then %>
<td width="40" align="center" valign="middle" bgcolor="#CDCDCD" align="center" class="bd_font_size">下一页</td>
<td width="40" align="center" valign="middle" bgcolor="#CDCDCD" align="center" class="bd_font_size">末页</td>
<% Else %>
<td width="40" align="center" valign="middle" bgcolor="#CDCDCD" align="center" class="bd_font_size"><a href=<%=filename%>?page=<%=(CurrentPage+1)%>>下一页</a></td>
<td width="40" align="center" valign="middle" bgcolor="#CDCDCD" align="center" class="bd_font_size"><a href=<%=filename%>?page=<%=n%>>末页</a></td>
<% End If %>
<td width="45" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">第<%=CurrentPage%>页</td>
<td width="45" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">共<%=n%>页</td>
<td width="90" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">共<%=totalnumber%>条记录</td>
<td width="90" align="center" valign="middle" bgcolor="#D4D0C8" class="bd_font_size">每页<%=maxperpage%>条记录</td>
<td width="153" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size">跳转到
<input type="text" name="page" size="2" vaule= "<%=currentpage%>">
页
<input type="submit" name="Submit" value="跳转" name="cndok"></td>
</tr>
<tr align="right" valign="middle" bgcolor="#9E9E9E" class="bd_font_size">
<td height="27" colspan="9"><a href="javascript:history.go(-1)" class="style2">返回上一页</a> <a href="../index.asp" class="style2">返回主页</a></td>
</tr>
</table>
</form>
<%
End Function
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -