ad_user.asp

来自「中国电视购物网电子商务系统」· ASP 代码 · 共 64 行

ASP
64
字号
<%@ 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>&nbsp;</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">&nbsp;&nbsp;用户名</td>
  </tr>
  <%
  while not rs.eof 
  %>
  <tr> 
    <td height="30" width="102" align="right">
      <input type="checkbox" name="mem_id" value="<%=rs("usr_id")%>">
      &nbsp; </td>
    <td height="30" width="392">&nbsp;&nbsp;<%=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 + =
减小字号Ctrl + -
显示快捷键?