📄 xtsz_scyh.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<html>

<p align="center"><font size="4" color="#660099"><b>用户删除</b></font><br>
 <%  
     Set conn = Server.CreateObject("ADODB.Connection")
   	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")

'建立rs对象
     Set rs = Server.CreateObject("ADODB.Recordset")
     sql = "SELECT * FROM quanxian "
'发送一条SQL的指令
     rs.Open sql, conn, 3
%>
  
  <BODY>
    <table width=603 border=1 cellpadding=0 height="5">
    <tr>
    <td bgcolor="#0099FF" align="center" width="108">  
    <b>  
    <font size="2" color="#000000">用户名</font>  
	</b>  
	</td>  
    <td width=126 valign="top" align="center">  
    <font size="2"><b>删  除</b></font>  
    </td>  
    </tr>  
   <% 
      Do while not rs.eof 
          ' 使用数据库中的user作为关键字 
          ' 通过user来指定哪条记录将被修改         
          user = rs("user")  
   %> 
  
  <tr> 
  
     <td height="1" width="108" bgcolor="#0099FF" align="center">
     <font size="3"><font color="#000000">
  <%= user %></font></font></td> 
      <td height="1" width="126" align="center"><a href="xtsz_scyh_1.asp?user=<%=user%>"><font size="3">删除</font></td> 
     </tr> 
  <% 
      rs.MoveNext 
      loop 
	  set conn=nothing
  %>
  </center>
  <table>
</p>
<p>&nbsp;</p>
</body>
</HTML>

<html></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -