📄 adminuser.asp
字号:
<%on error resume next%>
<!--#include file = "public.asp"-->
<%
if session("admintype")<>"admin" then response.Redirect "index.asp"
SQL="Select * From [user]"
Set rs=conn.Execute(SQL)
%>
<%
del=no
del=request("del")
if del="ok" then
Set rsc=Server.CreateObject("ADODB.RecordSet")
rsc.open "Select * From [user] where id="&request("id"),Conn,2,3
rsc.delete
rsc.update
rsc.close
set rsc=nothing
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>自助友情链接</title>
<style type="text/css">
<!--
-->
</style>
<link href="1.css" rel="stylesheet" type="text/css">
<body>
<!--#include file = "admintop.asp"-->
<p align="center"><a href="Joinuser.asp">点此新添用户</a> <a href="adminindex.asp">返回链接首页<br>
<br>
</a>
<div align="center">
<center>
<table width="50%" border="0" align="center" cellpadding="5" cellspacing="1" >
<tr class="table003" bgcolor="#F4F9FD">
<td>
<p align="center"><B>用户名称</B></td>
<td width="225">
<div align="center"><B><font color="#000000">删除该用户</font></B></div></td>
</tr>
<%
For iPage = 1 To rs.PageSize
If rs.EOF Then Exit For
%>
<tr class="table001">
<td align="center">
<div align="center">
<% =rs("username") %>
</div></td>
<td align="center"><div align="center"><a href="adminuser.asp?del=ok&id=<%=rs("id")%>">删除</a></div></td>
</tr>
<%
rs.movenext
Next
%>
</table>
</center>
</div>
<!--#include file = "bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -