多行信息修改问题。请教大家了，谢谢
比如说我一页显示了   10   行的信息，在这   10   行的信息有要修改的信息，把需要修改的信息都修改完成以后，在每条信息的前面都有个复选框，把修改过的信息选中，在最下面有个“提交”按钮，点过“提交”以后过有修改过的信息都可以完成修改功能。请问要怎样来写代码啊，我写了个代码就是显示的不对，请大家帮忙啊。

id=split(request( "id "), ", ")
sl=split(request( "sl "), ", ")
jg=split(request( "jg "), ", ")
set   rsxg=server.createobject( "adodb.recordset ")
sqlxg= "select   *   from   xxx "
rsxg.open   sqlxg,conn,1,3
for   j=0   to   ubound(sl)
rsxg( "sl ")=trim(sl(j))
rsxg( "jg ")=trim(jg(j))
rsxg.update
rsxg.movenext
next  


------解决方案--------------------
sumnew=split(request( "sum "), ", ") '复先框,名称要相同
numbersnew=split(request( "numbers "), ", ") '某文本框值
for i=0 to ubound(sumnew)
if trim(sumnew(i))= "1 " then '选中
rs.open "select * from applydetail ",conn,1,3
rs.addnew
rs( "applyid ")=numbersnew(i) '修改
.........

------解决方案--------------------
很简单
checkbox记录每条记录的ID
点击提交后对checkbox集合检测

下面是代码

Dim DataArray(),RecordID,Sql,i '定义动态数组
ReDim DataArray(0)
For i=0 To Request.Form( "id ").Count
If IsNumeric(Request.Form( "id ")(i)) Then
DataArray(Ubound(DataArray)) = i
ReDim Preserve DataArray(Ubound(DataArray)+1)
End If
Next
If DataArray(0) <> " " Then
For i=0 To Ubound(DataArray)
Sql = "Update [xxx] Set sl= ' "& Request.Form( "sl ")(DataArray(i)) & " ',jg= ' "& Request.Form( "jg ")(DataArray(i)) & " ' Where id= "& CInt(Request.Form( "id ")(i))
Conn.Execute(Sql)
Next
End If
------解决方案--------------------
上面错了 ，修改的 ，对不起
foreach(gridviewrow gvr in gridview.rows)
{
checkbox ck=gvr.findcontrol( "控件id ") as checkbox;
后面可以自己做了
}
------解决方案--------------------
是不是这样的批修改？
set rsxg=server.createobject( "adodb.recordset ")
for j=0 to ubound(sl)
id=split(request( "id "&j), ", ")
sl=split(request( "sl "&j), ", ")
jg=split(request( "jg "&j), ", ")
rsxg.open "update xxx set sl= ' "&sl& " ',jg= ' "&jg& " ' where id= ' "&id& " ' ",conn,1,3
next

------解决方案--------------------
以下是deleteItem.asp源码：

<!--#include virtual= "/inc/conn.asp "-->
<%on error resume next
'--------------------
'---Delete Link Info---
'--------------------
errSTR= " "
returnInfo= " "

'获取参数
TBLinkID=cdbl(trim(request( "TBLinkID ")))

'删除
sql= "*********** " '///sql语句
err.clear
conn.execute(sql)
if err.description= " " then
returnInfo= "Successed "
else
returnInfo= "Failed "
end if
set conn=nothing
if errSTR= " " then
errSTR=err.description
end if