我用Dreamweaver做删除页面，在删除记录出现问题。

aijames 2009-11-24 04:54:04
现在我出现的情况我也说不清楚，我举例子吧。
一间学校A班有个同学叫小明，C班也有个小明，现在在dreamweaver的修改页中想对A班的小明记录进行修改，但修改确认后，连C班小明的记录也修改了。我现在的情况就是这样，有哪位高手帮忙看看是要对哪里修改？？


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="../Connections/conn.asp" -->

<%

' *** Edit Operations: declare variables



Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd



Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId



Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i



MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If



' boolean to abort record edit

MM_abortEdit = false



' query string to execute

MM_editQuery = ""

%>

<%

' *** Delete Record: declare variables



if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then



  MM_editConnection = MM_conn_STRING

  MM_editTable = "进口原料"

  MM_editColumn = "商品编码"

  MM_recordId = "'" + Request.Form("MM_recordId") + "'"

  MM_editRedirectUrl = "yuanliao_edit_delete_success.asp"



  ' append the query string to the redirect URL

  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

    Else

      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

    End If

  End If

  

End If

%>

<%

' *** Delete Record: construct a sql delete statement and execute it



If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then



  ' create the sql delete statement

  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId



  If (Not MM_abortEdit) Then

    ' execute the delete

    Set MM_editCmd = Server.CreateObject("ADODB.Command")

    MM_editCmd.ActiveConnection = MM_editConnection

    MM_editCmd.CommandText = MM_editQuery

    MM_editCmd.Execute

    MM_editCmd.ActiveConnection.Close



    If (MM_editRedirectUrl <> "") Then

      Response.Redirect(MM_editRedirectUrl)

    End If

  End If



End If

%>

<%

Dim Recordset1__MMColParam

Recordset1__MMColParam = "1"

If (Request.QueryString("商品编码") <> "") Then 

  Recordset1__MMColParam = Request.QueryString("商品编码")

End If

%>

<%

Dim Recordset1

Dim Recordset1_numRows



Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_conn_STRING

Recordset1.Source = "SELECT * FROM 进口原料 WHERE 商品编码 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()



Recordset1_numRows = 0

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

<title>原料删除</title>

<style type="text/css">

<!--

.STYLE13 {font-size: 15px}

-->

</style>

</head>



<body>

  <p> </p>

  <form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">

    <table width="309" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#99CCFF">

      <tr>

        <td width="145" align="left"><div align="right" class="STYLE13">

          <div align="right">手册编号:</div>

        </div></td>

        <td width="146" align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("手册编号").Value)%></div></td>

      </tr>



      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">商品编码:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("商品编码").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">附加编码:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("附加编码").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">商品名称:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("商品名称").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">规格型号:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("规格型号").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">计量单位:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("计量单位").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">法定计量单位:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("法定计量单位").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">申报数量:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("申报数量").Value)%></div></td>

      </tr>

      <tr>

        <td align="left"><div align="right" class="STYLE13">

          <div align="right">申报单价:</div>

        </div></td>

        <td align="left"><div align="left" class="STYLE13"><%=(Recordset1.Fields.Item("申报单价").Value)%></div></td>

      </tr>

    </table>

    <div align="center">

      <p>

        <input type="submit" name="Submit" value="删除" />

      </p>

    </div>

  

    <input type="hidden" name="MM_delete" value="form1">

    <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("商品编码").Value %>">

  </form>



</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>
...全文
353 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ender129 2009-12-18
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 aspwebchh 的回复:]
修改数据记录的时候最好以ID作为条件
[/Quote]
他的意思就是类似这样的
<a href="edit.asp?id=<%=rs("id")%>">修改</a> <a href="delete.asp?id=<%=rs("id")%>">删除</a>
ManRock 2009-11-28
  • 打赏
  • 举报
 回复
例子举得很好，楼主辛苦了，谢谢~
aijames 2009-11-24
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 aspwebchh 的回复:]
修改数据记录的时候最好以ID作为条件
[/Quote]
不过实际情况跟班级学生有一点区别，我这页面联系的数据库，它今次购入A类棉3000KG，下次又购入5000KG，两者都是同一样物品，商品编码都一样，但它这样就出现现在的问题。
还有更好的建议吗？
挨踢直男 2009-11-24
  • 打赏
  • 举报
 回复
修改数据记录的时候最好以ID作为条件
aijames 2009-11-24
  • 打赏
  • 举报
 回复
我想达到的效果是，我修改A班小明记录，B班的小明的记录不受影响。


数据库的存放形式是，一个表中存放所有班级，所有学生的信息。

现在修改A班的小明，连B班的小明也转班了，搞到A班有两个小明，有什么方法限制这样的情况？
parss 2009-11-24
  • 打赏
  • 举报
 回复
MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

where后面 不能这样写哟
全部给一个变量吧

比如MM_editColumn="id=5"
不要分开写
rivertrue 2009-11-24
  • 打赏
  • 举报
 回复
把最后执行的sql语句显示出来 把delete 改成 select 看下查出来的数据 应该是sql语句的条件有问题吧
用dreamweaver做留言版的流程及两种操作实例
一种是用dreamweaver各种功能创建，一种是用代码创建，都比较翔实，一看就会！
Dreamweaver制作数据库页面.docx
Dreamweaver制作数据库页面
Dreamweaver制作数据库页面中文最新版本
本文档主要讲述的是Dreamweaver制作数据库页面；希望本文档会给有需要的朋友带来帮助；感兴趣的朋友可以过来看看
dreamweaver制作会员系统
会员系统制作 使用dreamweaver 多种方法
使用Dreamweaver制作ASP网站向access插入记录和显示记录.doc )
使用Dreamweaver制作ASP网站向access插入记录和显示记录.doc )
vbScript

4,007

社区成员

3,512

社区内容

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章