📄 admin_system.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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>
<link href="../Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../Inc/Pages.asp"-->
<!--#include file="Inc/Head.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11" background="../Image/LeftMargin.gif"></td>
<td width="750" height="400" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" class="TableInfo">
<tr>
<td height="50" colspan="4" align="center" class="TextTitle">管理员设置</td>
</tr>
<tr>
<td colspan="4"><hr width="96%" color="#BBBBBB" size="1"></td>
</tr>
<tr>
<td width="100" height="30" align="center" class="Text1">ID</td>
<td width="200" align="center" class="Text1">帐号名</td>
<td colspan="2" align="center"><a href="Admin_AdminAdd.asp"><span class="Text2">< 添加新的管理员 ></span></a></td>
</tr>
<%
Dim RS
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.ActiveConnection=Conn
RS.Source = "Select ID,AdminName From [Admin] Order By ID"
RS.CursorType = adOpenKeyset
RS.CursorLocation = adUseServer
RS.LockType = adLockReadOnly
RS.Open
While Not RS.EOF
%>
<tr>
<td width="100" height="30" align="center"><%=RS("ID")%></td>
<td width="200" align="center"><%=RS("AdminName")%></td>
<td width="206" align="center"><a href="Admin_AdminModify.asp?ID=<%=RS("ID")%>"><span class="Text2">< 修改信息 ></span></a></td>
<td width="192" align="center"><a href="Admin_AdminDel.asp?ID=<%=RS("ID")%>"><span class="Text2">< 删 除 ></span></a></td>
</tr>
<%
RS.MoveNext
Wend
%>
</table>
<%
RS.Close
Set RS=Nothing
ConnClose()
%><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
</td>
<td width="11" background="../Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -