adminer_gl.asp
来自「吻宇考试管理系统源码 吻宇考试管理系统源码」· ASP 代码 · 共 91 行
ASP
91 行
<!--#include file=conn.asp-->
<!--#include file=checkuser.asp-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>吻宇网络管理系统</title>
<style type="text/css">
<!--
body {
background-color: #EFF8FE;
}
body,td,th {
font-size: 12px;
}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
color: #000000;
}
-->
</style>
<script language="vbScript">
sub del(id)
if confirm("你真的要删除此管理员的记录吗?") then
window.location.href"adminer_del.asp?id="&id
end if
end sub
</script>
</head>
<body>
<table width="441" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#67B0ED">
<tr bgcolor="#EFF8FE">
<td colspan="5"><div align="center">管理员管理</div></td>
</tr>
<tr bgcolor="#EFF8FE">
<td width="78"><div align="center">管理员帐号</div></td>
<td width="153"><div align="center">最后登陆时间</div></td>
<td width="122"><div align="center">最后登陆IP</div></td>
<td width="33"><div align="center">修改</div></td>
<td width="33"><div align="right">删除</div></td>
</tr>
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from admin order by id DESC"
rs.open sql,conn,1,1
if not rs.eof then
rs.movefirst
do while not rs.eof
namer=rs("username")
shijian=rs("time")
ip=rs("ip")
id=rs("id")
%>
<tr bgcolor="#EFF8FE">
<td><div align="center"><%=namer%></div></td>
<td><div align="center"><%=shijian%></div></td>
<td><div align="center"><%=ip%></div></td>
<td><div align="center"><a href="adminer_xg.asp?id=<%=id%>">修改</a></div></td>
<td><div align="center"><a href="#" onClick="call del(<%=id%>)">删除</a></div></td>
</tr>
<%
rs.MoveNext
Loop
else
response.Write"暂时没有数据"
end if
rs.close
set rs=nothing
set conn=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?