asp批量修改
<!--#includefile="conn.asp"--><html><head><metahttp-equiv="Content-Type"content="text...
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.a{ border-bottom:1px solid #b1bfee;}
.b{ border-right:1px solid #b1bfee;border-bottom:1px solid #b1bfee;}
.aa{ border-bottom:1px solid #b1bfee;}
.bb{ border-right:1px solid #b1bfee; border-bottom:1px solid #b1bfee;}
-->
</style>
</head>
<BODY bgcolor="#D9EAFC">
<form name="form1" method="post" action="price_modify.asp">
<table width=800 border="0" align="center" cellspacing="0" style="BORDER-RIGHT: #b1bfee 1px solid; BORDER-TOP: #b1bfee 1px solid; BORDER-LEFT: #b1bfee 1px solid; BORDER-BOTTOM: #b1bfee 1px solid;">
<tr>
<td width="136" align="center" class="b">产品名称</td>
<td width="147" align="center" class="b">产品型号</td>
<td width="153" align="center" class="b">产品价格</td>
<td width="102" align="center" class="b">编辑</td>
<td width="250" align="center" class="a">时间</td>
</tr>
<% set rs=createobject("adodb.recordset")
sql="select prodname,prod1,PriceOrigin,prodnum from bproduc where larcode='主板' and midcode='昂达' order by prodnum desc "
rs.open sql,conn,3,2
if rs.eof and rs.bof then
%>
<script language="javascript">alert("对不起，还没有相关产品！");</script>
<%else
do while not rs.eof
%>
<tr>
<td align="center" class="bb"><%=rs("prodname")%></td>
<td align="center" class="bb"><%=rs("prod1")%></td>
<td colspan="2" class="bb">
<input name="price<%=rs("prodnum")%>" type="text" id=<%=rs("prodnum")%> value="<%=rs("PriceOrigin")%>" size="10">
<input name="prodnum" type="hidden" id="prodnum" value="<%=rs("prodnum")%>"> </td>
<td align="center" class="bb"><%=date()%></td>
<%
rs.movenext
loop
end if%>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><input type="submit" name="Submit" value="全部更新"></td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
处理部分
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
set rs=server.CreateObject("adodb.recordset")
sql="select * from bproduc where prodnum="&prodnum1(i)&""
rs.open sql,conn,1,3
rs("PriceOrigin")=request.Form("price"&prodnum1(i))
rs.update
rs.close
next
set rs=nothing
%>
现在只能修改第一条记录,其它的都不能,请高手帮助
我这是ASP批量修改。请高手指教，现在的情况是：只能修改第一条数据，其它的不能。 展开
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.a{ border-bottom:1px solid #b1bfee;}
.b{ border-right:1px solid #b1bfee;border-bottom:1px solid #b1bfee;}
.aa{ border-bottom:1px solid #b1bfee;}
.bb{ border-right:1px solid #b1bfee; border-bottom:1px solid #b1bfee;}
-->
</style>
</head>
<BODY bgcolor="#D9EAFC">
<form name="form1" method="post" action="price_modify.asp">
<table width=800 border="0" align="center" cellspacing="0" style="BORDER-RIGHT: #b1bfee 1px solid; BORDER-TOP: #b1bfee 1px solid; BORDER-LEFT: #b1bfee 1px solid; BORDER-BOTTOM: #b1bfee 1px solid;">
<tr>
<td width="136" align="center" class="b">产品名称</td>
<td width="147" align="center" class="b">产品型号</td>
<td width="153" align="center" class="b">产品价格</td>
<td width="102" align="center" class="b">编辑</td>
<td width="250" align="center" class="a">时间</td>
</tr>
<% set rs=createobject("adodb.recordset")
sql="select prodname,prod1,PriceOrigin,prodnum from bproduc where larcode='主板' and midcode='昂达' order by prodnum desc "
rs.open sql,conn,3,2
if rs.eof and rs.bof then
%>
<script language="javascript">alert("对不起，还没有相关产品！");</script>
<%else
do while not rs.eof
%>
<tr>
<td align="center" class="bb"><%=rs("prodname")%></td>
<td align="center" class="bb"><%=rs("prod1")%></td>
<td colspan="2" class="bb">
<input name="price<%=rs("prodnum")%>" type="text" id=<%=rs("prodnum")%> value="<%=rs("PriceOrigin")%>" size="10">
<input name="prodnum" type="hidden" id="prodnum" value="<%=rs("prodnum")%>"> </td>
<td align="center" class="bb"><%=date()%></td>
<%
rs.movenext
loop
end if%>
</tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><input type="submit" name="Submit" value="全部更新"></td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
处理部分
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
set rs=server.CreateObject("adodb.recordset")
sql="select * from bproduc where prodnum="&prodnum1(i)&""
rs.open sql,conn,1,3
rs("PriceOrigin")=request.Form("price"&prodnum1(i))
rs.update
rs.close
next
set rs=nothing
%>
现在只能修改第一条记录,其它的都不能,请高手帮助
我这是ASP批量修改。请高手指教，现在的情况是：只能修改第一条数据，其它的不能。 展开
3个回答
展开全部
prodnum1=split(prodnum,",")
这行在","的，号后加一个空格就可以了
prodnum1=split(prodnum,", ")
或
sql="select * from bproduc where prodnum="&prodnum1(i)&""
这行的prodnum1(i) 加个 Trim()去掉空格，因为prodnum1(i)从第二项开始，前面都有个空格
sql="select * from bproduc where prodnum="&Trim(prodnum1(i))&""
这行在","的，号后加一个空格就可以了
prodnum1=split(prodnum,", ")
或
sql="select * from bproduc where prodnum="&prodnum1(i)&""
这行的prodnum1(i) 加个 Trim()去掉空格，因为prodnum1(i)从第二项开始，前面都有个空格
sql="select * from bproduc where prodnum="&Trim(prodnum1(i))&""
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
展开全部
最后的那部分加一句：
<%
for i=1 to n
set rs=server.createobject("adodb.recordset")
....
next
%>
<%
for i=1 to n
set rs=server.createobject("adodb.recordset")
....
next
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
这个问题好像回答过，你的这里：
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
set rs=server.CreateObject("adodb.recordset")
sql="select * from bproduc where prodnum="&prodnum1(i)&""
rs.open sql,conn,1,3
rs("PriceOrigin")=request.Form("price"&prodnum1(i))
rs.update
rs.close
next
set rs=nothing
%>
先不说别的，你为什么要循环建立recordset呢？以前就建议不要这么写，你还这么写，怎么不听呢？！
修改过的：
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
sql="update bproduc set ProiceOrigin='"&request.Form("price"&trim(prodnum1(i)))&"' where prodnum="&cint(trim(prodnum1(i)))
conn.execute(sql)
next
%>
你先把代码改成这样，然后出现问题再来问！！
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
set rs=server.CreateObject("adodb.recordset")
sql="select * from bproduc where prodnum="&prodnum1(i)&""
rs.open sql,conn,1,3
rs("PriceOrigin")=request.Form("price"&prodnum1(i))
rs.update
rs.close
next
set rs=nothing
%>
先不说别的，你为什么要循环建立recordset呢？以前就建议不要这么写，你还这么写，怎么不听呢？！
修改过的：
<%
dim prodnum,price
prodnum=request.Form("prodnum")
prodnum1=split(prodnum,",")
for i=0 to ubound(prodnum1)
sql="update bproduc set ProiceOrigin='"&request.Form("price"&trim(prodnum1(i)))&"' where prodnum="&cint(trim(prodnum1(i)))
conn.execute(sql)
next
%>
你先把代码改成这样，然后出现问题再来问！！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
