请帮忙解决个asp批量选择修改数据的问题

时间：2021-10-06 07:34:30
在此先谢谢！
目的：批量有选择的修改数据。
目前问题：只能够修改1个选择，其他的多项选择提示错误：第 1 行: ',' 附近有语法错误
代码：
<!--#include file="../Connections/xinlong.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open"SELECT * FROM ceshi1 ORDER BY id DESC",MM_xinlong_STRING,1,1
%>
<%
Dim Repeatswt__numRows
Dim Repeatswt__index

Repeatswt__numRows = -1
Repeatswt__index = 0
rs_numRows = rs_numRows + Repeatswt__numRows
%>
<!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=utf-8" />
<title>无标题文档</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="fuxuanxiugai_1.asp">
  <table width="800" border="1" cellpadding="0" cellspacing="0">
    <tr>
      <td align="center">选择</td>
      <td align="center">ID</td>
      <td align="center">名称</td>
      <td align="center">数量</td>
      <td align="center">水票</td>
      <td align="center">备注</td>
    </tr>
    <% 
While ((Repeatswt__numRows <> 0) AND (NOT rs.EOF)) 
%><tr>
      <td align="center"><label>
        <input type="checkbox" name="checkbox" value="<%=rs("id")%>" /><%=rs("id")%>
      </label></td>
      <td align="center"><label>
        <input name="id" type="text" id="id" value="<%=rs("id")%>" />
      </label></td>
      <td align="center"><input name="mingcheng<%=rs("id")%>" type="text" id="mingcheng<%=rs("id")%>" value="<%=rs("mingcheng")%>" /></td>
      <td align="center"><input name="shuliang<%=rs("id")%>" type="money" id="shuliang<%=rs("id")%>" value="<%=rs("shuliang")%>" /></td>
      <td align="center"><input name="shuipiao<%=rs("id")%>" type="money" id="shuipiao<%=rs("id")%>" value="<%=rs("shuipiao")%>" /></td>
      <td align="center"><input name="beizhu<%=rs("id")%>" type="text" id="beizhu<%=rs("id")%>" value="<%=rs("beizhu")%>" /></td>
    </tr>
<% 
  Repeatswt__index=Repeatswt__index+1
  Repeatswt__numRows=Repeatswt__numRows-1
  rs.MoveNext()
Wend
%>
    <tr>
      <td align="center">&nbsp;</td>
      <td align="center"><label>
        <input type="submit" name="Submit" value="提交" />
      </label></td>
      <td align="center">&nbsp;</td>
      <td align="center">&nbsp;</td>
      <td align="center">&nbsp;</td>
      <td align="center">&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</html>
传递到下一页代码
<!--#include file="../Connections/xinlong.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open"SELECT * FROM ceshi1 ORDER BY id DESC",MM_xinlong_STRING,1,1
%>
<%
sss=request("checkbox")
'sss的值就是选中的值,例如这样的: 1,3,5,然后使用split得到所有ID,再用循环处理
aa=split(sss,",")

for t=0 to ubound(aa)
rec_id=aa(t)'这个就是单个的ID
'这个是修改数据库数据
set rswbdx=server.CreateObject("adodb.recordset")
rswbdx.open"UPDATE ceshi1 SET mingcheng = '"&Request("mingcheng"&rec_id&"")&"',shuipiao = "&Request("shuipiao"&rec_id&"")&",shuliang = "&Request("shuliang"&rec_id&"")&",beizhu = '"&Request("beizhu"&rec_id&"")&"' WHERE id ='"&rec_id&"'",MM_xinlong_STRING,1,1
Set rswbdx = Nothing

next
%>
<!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=utf-8" />
<title>无标题文档</title>
</head>

<body>
<a href="fuxuanxiugai.asp">管理成功返回
</a>
</body>

</html>
请问如何修改。
谢谢？

7 个解决方案

#1

提交的数据有问题吧，自己打印sql出来看就知道了。如你的shuipiao，shuliang是数字，没填写肯定会报错了 
for t=0 to ubound(aa)

  rec_id=trim(aa(t))'这个就是单个的ID

  if rec_id<>"" then'加不为空判断

    ''''''''''''''打印sql

    response.Write "UPDATE ceshi1 SET mingcheng = '"&Request("mingcheng"&rec_id&"")&"',shuipiao = "&Request("shuipiao"&rec_id&"")&",shuliang = "&Request("shuliang"&rec_id&"")&",beizhu = '"&Request("beizhu"&rec_id&"")&"' WHERE id ='"&rec_id&"'"

    set rswbdx=server.CreateObject("adodb.recordset")

    rswbdx.open"UPDATE ceshi1 SET mingcheng = '"&Request("mingcheng"&rec_id&"")&"',shuipiao = "&Request("shuipiao"&rec_id&"")&",shuliang = "&Request("shuliang"&rec_id&"")&",beizhu = '"&Request("beizhu"&rec_id&"")&"' WHERE id ='"&rec_id&"'",MM_xinlong_STRING,1,1

    Set rswbdx = Nothing

  end if

next

#2

好，我试试看，谢谢

#3

还是
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

第 1 行: ',' 附近有语法错误。

/ceshi/fuxuanxiugai_1.asp，行 16

会不会是第一页的多选框有问题？

#4

显示上看，能够循环，但是除第一条外没有循环的 数值
UPDATE ceshi1 SET mingcheng = '5fgfh',shuipiao = 0,shuliang = 0,beizhu = '5dfgdfhgjdg' WHERE id =5UPDATE ceshi1 SET mingcheng = '',shuipiao = ,shuliang = ,beizhu = '' WHERE id = 4
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

第 1 行: ',' 附近有语法错误。

/ceshi/fuxuanxiugai_1.asp，行 22

#5

rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了

#6

引用 5 楼 showbo 的回复:
rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了


hao好了，谢谢！

#7

引用 6 楼 qjx18608777156 的回复:
Quote: 引用 5 楼 showbo 的回复:

rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了


hao好了，谢谢！
记得结贴。

#1

提交的数据有问题吧，自己打印sql出来看就知道了。如你的shuipiao，shuliang是数字，没填写肯定会报错了 
for t=0 to ubound(aa)

  rec_id=trim(aa(t))'这个就是单个的ID

  if rec_id<>"" then'加不为空判断

    ''''''''''''''打印sql

    response.Write "UPDATE ceshi1 SET mingcheng = '"&Request("mingcheng"&rec_id&"")&"',shuipiao = "&Request("shuipiao"&rec_id&"")&",shuliang = "&Request("shuliang"&rec_id&"")&",beizhu = '"&Request("beizhu"&rec_id&"")&"' WHERE id ='"&rec_id&"'"

    set rswbdx=server.CreateObject("adodb.recordset")

    rswbdx.open"UPDATE ceshi1 SET mingcheng = '"&Request("mingcheng"&rec_id&"")&"',shuipiao = "&Request("shuipiao"&rec_id&"")&",shuliang = "&Request("shuliang"&rec_id&"")&",beizhu = '"&Request("beizhu"&rec_id&"")&"' WHERE id ='"&rec_id&"'",MM_xinlong_STRING,1,1

    Set rswbdx = Nothing

  end if

next

#2

好，我试试看，谢谢

#3

还是
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

第 1 行: ',' 附近有语法错误。

/ceshi/fuxuanxiugai_1.asp，行 16

会不会是第一页的多选框有问题？

#4

显示上看，能够循环，但是除第一条外没有循环的 数值
UPDATE ceshi1 SET mingcheng = '5fgfh',shuipiao = 0,shuliang = 0,beizhu = '5dfgdfhgjdg' WHERE id =5UPDATE ceshi1 SET mingcheng = '',shuipiao = ,shuliang = ,beizhu = '' WHERE id = 4
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'

第 1 行: ',' 附近有语法错误。

/ceshi/fuxuanxiugai_1.asp，行 22

#5

rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了

#6

引用 5 楼 showbo 的回复:
rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了


hao好了，谢谢！

#7

引用 6 楼 qjx18608777156 的回复:
Quote: 引用 5 楼 showbo 的回复:

rec_id= trim(aa(t))'这个就是单个的ID

你trim了没有，我记得checkbox提交的值逗号之间是有空格的，要去掉，看你输出的sql语句也是存在空格，要去掉空格，要不name值就对不上了


hao好了，谢谢！
记得结贴。
标签：

相关文章