Question

请教高人，帮忙“修改保存”ASP记录？

<form id="form1" name="form1" method="post" action="" onSubmit="return checkthisform()" >
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#009966" id="llcl_table">
<tr>
<td align="center" bgcolor="#DDF9F3" width="8%"><input type="button" name="Submit1" value="新增一行" class="buttonadd"onClick="addline_llcl()" style="width: 60"/></td>
<td colspan="6" align="center" bgcolor="#DDF9F3" ><span class="STYLE25"></span></td>
</tr>
<% '获取档案目录
set rs_llcl=server.createobject("adodb.recordset")
sql_llcl="select * from llcl where xingming_id="&requestid&" order by id asc"
rs_llcl.open sql_llcl,conn,1,2%>
<% do while not rs_llcl.eof %>
<tr>
<td align="center" bgcolor="#F1FCFA"><input name="linenum_llcl" type="hidden" id="linenum_llcl" value="oneline" /><input name="isdel_llcl" type="checkbox" id="isdel_llcl" value="<%=rs_llcl("id")%>" title="打勾在点击“提交修改”后，可立即删除该行">删除
<input name="thisid_llcl" type="hidden" id="thisid_llcl" value="<%=rs_llcl("id")%>"></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_lh" type="text" class="inp" id="llcl_lh" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_lh")%>" size="5" /></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_clmc" type="text" class="inp" id="llcl_clmc" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_clmc")%>" size="30" /></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_clzcsj" type="text" class="inp" id="llcl_clzcsj" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_clzcsj")%>" size="20" /></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_fs" type="text" class="inp" id="llcl_fs" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_fs")%>" size="13" /></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_ys" type="text" class="inp" id="llcl_ys" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_ys")%>" size="13" /></td>
<td align="center" bgcolor="#F1FCFA"><input name="llcl_bz" type="text" class="inp" id="llcl_bz" onFocus="this.style.borderColor='#FF33CC'" onMouseOver="this.style.borderColor='#33CC33'" onMouseOut="this.style.borderColor='#84a1bd'" value="<%=rs_llcl("llcl_bz")%>" size="30" /></td>
</tr>
<% rs_llcl.movenext
loop
%>
</table>
<td align="center"><input type="submit" name="Submit" value=" 保 存 " class=button >
<span class="STYLE6">
<input name="rcid" type="hidden" id="rcid" value="<%=rs("id")%>" />
<input name="Cancel" type="button" class=button onClick="location='jg_view.asp?requestid=<%=rs("id")%>'" value=" 取 消 ">
</span></div>
</label></form>

如何在此代码的基础上修改。当点击保存时，如果勾选了删除，将在数据库中删除此条记录；如果修改了记录，同样将修改的记录在数据库中进行修改保存。

Answer 1

代码有点乱，又是零分……

Answer 2

asp网站一次提交删除多条记录程序设计关于”asp网站一次性提交删除多条记录的程序设计 ”

一、javascript标签设计,目的为判断一次选择了多少条记录以及设计delnews的action

<scrtip>
//cdel()
function cdel()
{
if(CheckSelect()==false)
{
return false;
}
if (confirm("你确定要删除这些文章吗？不可恢复！")){
document.delnews.action.value = "del";
document.delnews.submit();
}
}
//SelectCheckBox()
function SelectCheckBox()
{
for(i=0;i<document.delnews.elements.length;i++)
{
if(document.all("selectCheck").checked == true)
{
document.delnews.elements[i].checked = true;
}
else
{
document.delnews.elements[i].checked = false;
}
}
}
</script>

二、循环列出记录数，循环程序省略。

<tr>
<td width="6%"><div align="center"><input type="checkbox" name="NewsID" value="<%=Trim(oRs("D_ID"))%>"></div></td>
<td width="7%" height="22"><%=oRs("D_Title")%></td></tr>
<tr>
<td width="6%" height="25"><input type=’checkbox’ name=’selectCheck’ id=selectCheck2 onclick="SelectCheckBox()">全选</td>

三、一次删除多条记录程序，用循环的办法，先把选中的记录分割成数组，之后用循环把它搞定。
<%
strIdList = GetSafeStr(Trim(Request.Form("NewsID")))
If Not IsEmpty(strIdList) Then
arrIdList = Split(strIdList,",")
For i = 0 To UBound(arrIdList)
iId = Clng(arrIdList(i))
oConn.Execute("DELETE FROM guestbook WHERE id="&iId&"")
Next
alert("信息删除成功")
Else
alert("请至少选择一条信息记录！)
End I