UC知道asp 批量修改数据
来源：百度知道 编辑：UC知道 时间：2024/07/03 03:14:33
<%
if Request("ac")="edit" then
dim id
id=request.Form("id")
nid=split(id,",")
eid=ubound(nid)
for i = 0 to eid
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from TLCMS_Link Where id="&nid(i)
rs.open sql,conn,1,3
rs("types")=request.Form("types"&nid(i))
rs("ol")=request.Form("ol"&nid(i))
rs("name")=request.Form("name"&nid(i))
rs("url")=request.Form("url"&nid(i))
rs("text")=request.Form("text"&nid(i))
rs.Update
rs.Close
set rs=nothing
next
response.write "<script language=""javascript"">alert('修改成功！');location='?do=links';</script>"
end if
%>
<div class="container">
<h3 class="marginbot">链接列表<a href=&qu
if Request("ac")="edit" then
dim id
id=request.Form("id")
nid=split(id,",")
eid=ubound(nid)
for i = 0 to eid
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from TLCMS_Link Where id="&nid(i)
rs.open sql,conn,1,3
rs("types")=request.Form("types"&nid(i))
rs("ol")=request.Form("ol"&nid(i))
rs("name")=request.Form("name"&nid(i))
rs("url")=request.Form("url"&nid(i))
rs("text")=request.Form("text"&nid(i))
rs.Update
rs.Close
set rs=nothing
next
response.write "<script language=""javascript"">alert('修改成功！');location='?do=links';</script>"
end if
%>
<div class="container">
<h3 class="marginbot">链接列表<a href=&qu
我不知道你的表结构，这里就当id是这个表的主键了。
在表单中加隐藏域
<input name="id" type="hidden" value="<%=rs("id")%>" />
提交
<%
if Request("ac")="edit" then
for i=1 to request.form("id").count
id=replace(request.form("id")(i),"'","")
ol=replace(request.form("ol")(i),"'","")
name1=replace(request.form("name")(i),"'","")
url=replace(request.form("url")(i),"'","")
text=replace(request.form("text")(i),"'","")
conn.execute("update TLCMS_Link set ol='"&ol&"',name='"&name1&"',url='"&url&"',text='"&text&"' where id="&id)
next
response.write("<script>alert('修改成