userdel.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 80 行

ASP
80
字号
<!--#include file=conn.asp -->
<%
IF Session("KEY")<>"super"  THEN
response.redirect "index_face.asp"
response.end
END IF

dim rs,tsql
dim rst
set rst=server.CreateObject("ADODB.RecordSet")
	
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>动态网站制作指南——动站新闻系统</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
<link href="news.css" rel="stylesheet" type="text/css">
</head>


<body bgcolor="#FFFFFF">
<div align="center" class="unnamed1">
<center>
    <br>
    <br>
    <br>
    <br>
    <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr> 
        <td height="188"> 
          <%
SET DATABASE=Server.CreateObject("ADODB.connection")
%>
          <p>
            <%
rst.open "select * from admin ",conn,1
if rst.EOF then
response.write "没有栏目:("
else
%>
          <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
            <tr>
              <td height="25" align="center" bgcolor="#abb8d6"><strong>用 户 列 表</strong></td>
            </tr>
          </table>
          <p>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
            <tr bgcolor="#FFFFFF"> 
              <td width="12%"> <div align="center"><font color="#000000">ID号</font></div></td>
              <td width="17%"> <div align="center"><font color="#000000">用户名</font></div></td>
              <td width="22%"> <div align="center"><font color="#000000">密码</font></div></td>
              <td width="26%"> <div align="center"><font color="#000000">权限</font></div></td>
              <td width="23%"> <div align="center"><font color="#000000">删除</font></div></td>
            </tr>
            <%do while NOT rst.EOF%>
            <tr bgcolor="#FFFFFF"> 
              <td width="12%" align="center"><%=rst("id")%></td>
              <td width="17%" align="center"><%=rst("Username")%></td>
              <td width="22%" align="center"><%=rst("Passwd")%></td>
              <td width="26%" align="center"><%=rst("oskey")%></td>
              <td width="23%" align="center"><font color="#FFFFFF"><a class=bai1 href="userdel1.asp?id=<%=rst("id")%>&name=del">删除</a></font></td>
            </tr>
            <%
rst.MoveNext
loop
end if
rst.close
%>
          </table>
          <p>系统管理员: super<br>
            新闻录入员: input</p></td>
      </tr>
    </table>
    <p>&nbsp;</p>
    </center></div>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?