网络编程中点击不同记录进行修改,删除不同记录的另一编程思想ASP与数据库的应用

原创 2004年09月16日 00:02:00

如何通过 点击list控件中的某一列使它传递给 一个修改的对话框 
QQ: 283989349 E-mail: mjf150080@tom.com 有问题时,
我们可以通过http://www.hustc.mpc.cn 这个论坛,
 我的另一个blog  http://blog.csdn.net/ma88fa/

<!--#include file="conn.asp"-->
<%
  if session("admin")="" then
  response.redirect "admin.asp"
  else
 if session("flag")>1 then
  response.write "<br><p align=center>您没有操作的权限</p>"
  response.end
 end if
  end if

dim rs, sql
%>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<%
   Set rs=Server.CreateObject("Adodb.RecordSet")
  
   sql="select * from admin where flag>="&Session("flag")&" order by id"
  
   rs.Open sql,conn,1,1
%>
<body>
<center>
  <p>修改管理员信息 | <a href=adduser.asp>增加管理员</a></p>
 
<table width="500" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr align="center" class="title">
    <td  width="120">用户名</td>     
    <td  width="120">密码</td>     
    <td  width="100">权限</td>     
    <td  width="130">操作</td>
    </tr>
  </table>
  <table width="600" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
  <%while not rs.EOF %>
  <%if (rs("flag")>Session("flag")) or (rs("username")=Session("admin")) then%>
   
  <table width="500" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
    <form method="post" action="saveuser.asp" style="margin:0">
      <tr align="center">
        <td width="120" height="30">
          <input class="input" type="text" name="manager" value="<%=rs("username")%>" size="12"></td>
        <td width="120" height="30">
          <input class="input" type="password" name="newpin" value="<%=rs("password")%>" size="12"></td>
        <td width="100" height="30">
          <%if rs("flag")=1 then%>
          超级用户
          <%end if%>
          <%if rs("flag")=2 then%>
          普通用户
          <%end if%>
          <%if rs("flag")=3 then%>
          员工
          <%end if%></td>
        <td width="130" height="30">
          <input class="button" type="submit" name="Submit" value="修改">
            <input class="button" type="submit" name="Submit" value="删除">
            <input type="hidden" name="oldmanager" value="<%=rs("username")%>">
            <input type="hidden" name="oldpin" value="<%=rs("password")%>"></td>
      </tr></form>
    </table>
  <table width="600" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
  <%else%>
  <table width="600" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
 
  <table width="500" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
    <tr align="center" bgcolor="#EBEBEB">
      <td width="120" height="30"> <%=rs("username")%></td>       
      <td width="120" height="30">******</td>       
      <td width="100" height="30">
        <%if rs("flag")=1 then%>
        超级用户
        <%else%>
        普通用户
        <%end if%></td>       
      <td width="130" height="30"></td>
      </tr>
    </table>
  <table width="600" height="15" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td></td>
    </tr>
  </table>
  <%
     end if
    
     rs.MoveNext
    
     Wend
  %>
<%
  rs.Close
  set rs=Nothing
 
  conn.Close
  set conn=Nothing
%>
超级用户可以进行所有功能的操作<br>普通用户没有用户管理和栏目管理权限,用户只有添加程序的权限。
</center>
</body>
</html>

利用DataGrid编辑、修改、删除记录

if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[People]) and OBJECTPROPERTY(id,...
  • abaowu
  • abaowu
  • 2004年09月13日 15:18
  • 1906

C#中数据库的更新和删除记录的两种实现方式

框图在上一篇文章中给出了,删除、更新和插入一样,也都有两种方式,一种是在数据源的编辑器中设定相应的方法来实现,另一种是自己写代码完成。 下面先给出更新的代码:          test_dbDa...
  • happy_rita
  • happy_rita
  • 2012年08月27日 10:05
  • 5569

删除DataGridView选中行并更新数据库

前面写过一篇文章是DataGridView控件显示数据的,DataGridView在与数据库打交道时会经常出现,也很实用。通过DataGridView对数据库进行更改和查询都比较方便。   这里我们需...
  • u010926964
  • u010926964
  • 2014年07月21日 20:22
  • 2202

用Visual C#来修改和删除数据库记录

在以前的一篇文章《Visual C#中轻松浏览数据库记录》中,我们介绍了用Visual C#如何把数据表中的字段值绑定到文本框的属性上和如何操作数据记录指针,随意浏览数据表中的记录。本文就接着上一篇的...
  • CRSUN
  • CRSUN
  • 2005年01月10日 02:08
  • 1751

ADO如何新增修改删除数据库的记录呢

一、新增数据库的记录  首先使用ado连结到Access数据库ntopsamp.mdb,用SQL指令打开表「产品」的记录,将结果传回到rs1的  recordset当中,ASP程式码如下:  S...
  • u014440119
  • u014440119
  • 2014年04月20日 10:14
  • 286

删除一条数据库记录的解决方案

在删除一条记录时有可能遇到一条记录已经被关联外键,那就应该将它其中的一个字段单独拿出来做标记,在程序中判断是否被删除,否则就真正的删除它。使用try{}catch(){}方法。如果首次删除不成功,系统...
  • cctt_1
  • cctt_1
  • 2007年01月11日 09:24
  • 1318

点击网页“删除”按钮实现删除数据库中的内容

(1)meetings.jsp(部分)       //之间为java语...
  • sanganqi_wusuierzi
  • sanganqi_wusuierzi
  • 2017年02月03日 23:55
  • 2358

更新客户配置文件

DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile ...
  • caixingyun
  • caixingyun
  • 2014年10月30日 17:39
  • 1566

请教!如何在web页上一次"提交"来修改数据库中的多条记录.

我是初学者,请多赐教!我用asp.net+c#+sql 2000 要在web页上用一个"提交"的按钮来修改数据库中的多条记录!在一般的情况每一条记录可以修改,提交给数据库,但我现在要在web页上将多条...
  • pwlxj
  • pwlxj
  • 2004年10月07日 22:48
  • 913

删除数据库中多个表中相关记录的操作

If Trim(Request.Form("chkBox"))       Dim chks,strSQL,rsDel       strSQL = " DELETE FROM V_DQ_CDS00C...
  • clchun4352
  • clchun4352
  • 2006年03月28日 10:42
  • 847
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:网络编程中点击不同记录进行修改,删除不同记录的另一编程思想ASP与数据库的应用
举报原因:
原因补充:

(最多只允许输入30个字)