Question

asp页面增加批量修改价格功能

ad_delhw.asp页面代码
<%

set rs=server.createobject("adodb.recordset")
selectid=request("selectid")
if request("action")="del" then //批量删除功能
conn.execute "delete from venshop_hw where hw_id in ("&selectid&")"
Response.Write "<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>"
response.End
elseif request("action")="xiugai" then //修改价格

set rs=server.createobject("adodb.recordset")
sql="select * from venshop_hw where hw_id in ("&selectid&")"
rs.open sql,conn,1,3
do while not rs.eof
rs("hw_price")=request("jiage")
rs.update
rs.movenext
loop
rs.close
set rs=nothing
Response.Write "<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>"
response.End
end if

%>
价格的值从这个输入框里取
<input name="jiage" type="text" value="<%=rs("hw_price2")%>">
复选框代码
<input name="selectid" type="checkbox" id="selectid" value="<%=rs("hw_id")%>">
单选框
<INPUT type=radio value=tejiano name=Ref>修改价格
单选框选中时
else if (form.Ref[7].checked)
{form.action = "ad_delhw.asp?action=xiugai";}
只能贴这么多代码了，不让贴太多代码。
商品表里hw_id(编号)hw_price(价格)
总之实现不了批量修改，修改后所有商品价格都变成了第一个商品的价格。请问怎么修改？

Answer 1

不知道对不对，你测试下吧！

<input name="jiage<%=rs("hw_id")%>" type="text" value="<%=rs("hw_price2")%>">

elseif request("action")="xiugai" then //修改价格
jiage=Request("jiage")
id=request("delid") '获取的ID值如: id=1, 3
nid=split(id,", ") ' 根据逗号把id分割,返回数组nid
sid=ubound(nid) '得到几个值
for i = 0 to sid 'nid(i)就是要操作的id,并做循环更新记录
sql="update venshop_hw set hw_price='" & jiage(nid) & "' where hw_id='" & nid(i) & "'"
conn.Execute sql
next
set conn=nothing
Response.Write "<script language=javascript>window.location.href='"&Request.ServerVariables("Http_Referer")&"';</script>"
response.End
end if

追问

还是修改不了~

追答

" type="text" value="">

elseif request("action")="xiugai" then //修改价格
jiage=Request("jiage")
id=request("selectid") '获取的ID值如: id=1, 3
nid=split(id,", ") ' 根据逗号把id分割,返回数组nid
sid=ubound(nid) '得到几个值
for i = 0 to sid 'nid(i)就是要操作的id,并做循环更新记录
sql="update venshop_hw set hw_price='" & jiage(nid) & "' where hw_id='" & nid(i) & "'"
conn.Execute sql
next
set conn=nothing
Response.Write "window.location.href='"&Request.ServerVariables("Http_Referer")&"';"
response.End
end if

获取ID忘记改了，呵呵！