UC知道获取列表框值丢失
来源：百度知道 编辑：UC知道 时间：2024/05/17 22:45:10
WA=trim(request.Form("WA"))
SJ=trim(request.Form("SJ"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sz4c_Work"
rs.open sql,conn,1,3
rs.addnew
rs("WA")=cstr(WA)
rs("SJ")=cstr(SJ)
temp=rs.bookmark
rs.bookmark=temp
rs.update
WA=split(WA,",")
for i=0 to Ubound(WA)
set rsw=server.CreateObject("adodb.recordset")
sql="select * from Sz4c_WorkSheetSigned"
rsw.open sql,conn,1,3
rsw.addnew
rsw("SheetClass")=2
rsw("SheetID")=rs.fields("id")
rsw("UserClass")=2
rsw("UserID")=WA(i)
rsw.update
rsw.close:set rsw=nothing
next
SJ=split(SJ,",")
for i=0 to Ubound(SJ)
set rsw=server.CreateObject("adodb.recordset")
sql=&quo
SJ=trim(request.Form("SJ"))
set rs=server.CreateObject("adodb.recordset")
sql="select * from Sz4c_Work"
rs.open sql,conn,1,3
rs.addnew
rs("WA")=cstr(WA)
rs("SJ")=cstr(SJ)
temp=rs.bookmark
rs.bookmark=temp
rs.update
WA=split(WA,",")
for i=0 to Ubound(WA)
set rsw=server.CreateObject("adodb.recordset")
sql="select * from Sz4c_WorkSheetSigned"
rsw.open sql,conn,1,3
rsw.addnew
rsw("SheetClass")=2
rsw("SheetID")=rs.fields("id")
rsw("UserClass")=2
rsw("UserID")=WA(i)
rsw.update
rsw.close:set rsw=nothing
next
SJ=split(SJ,",")
for i=0 to Ubound(SJ)
set rsw=server.CreateObject("adodb.recordset")
sql=&quo
rs.addnew
rs("WA")=cstr(WA)
rs("SJ")=cstr(SJ)
rs.update
temp=rs.bookmark 'update不会改变记录位置，再返回当前记录时才用rs.bookmark=temp
然后，我想知道提交的数据量有多大？select * from Sz4c_Work的相应字段大小是否足够？有可能是因为你提交的数据相对字段过大。当多个同name的input提交时，数据之间是有逗号和空格来分隔的。是不是你没有预算空格了？
另外，不需要如果是多个同name的input的提交，不需要再split的:
for each wa in request.form("wa")
'处理每一个wa
next
当然，如果提交的就是以逗号分隔的单个input的数据，还是要split的。