📄 ad_user.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../../include/memconn.asp"-->
<%
sql="select usr_id,usr_name from mem_usr order by usr_id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
<SCRIPT LANGUAGE=javascript>
<!--
alert("还没有用户注册。")
history.go(-1)
//-->
</SCRIPT>
<%
else
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
body,p,input,td {font-family:宋体;font-size:14.8px}
-->
</style>
</HEAD>
<BODY bgcolor="#FFFFFF">
<p> </p>
<form action="delete.asp" method="post">
<table width="400" border="1" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td height="30" colspan="2"><b>用户会员管理</b></td>
</tr>
<tr>
<td height="30" width="102" align="right">是否删除：</td>
<td height="30" width="392"> 用户名</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td height="30" width="102" align="right">
<input type="checkbox" name="mem_id" value="<%=rs("usr_id")%>">
</td>
<td height="30" width="392"> <%=rs("usr_name")%></td>
</tr>
<%
rs.movenext
wend
%>
<tr align="center">
<td height="30" colspan="2">
<input type="hidden" name="action" value="user">
<input type="submit" name="Submit" value=" 删 除 ">
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
<%
set rs=nothing
call conn_end
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -