二战博福斯75mm野炮:遇到ASP上的一个问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 23:14:56
<SCRIPT language=javascript>
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}

function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function ConfirmDel()
{
if(confirm("谨慎操作,你进行的是批量删除!"))
return true;
else
return false;

}
</SCRIPT>

<%set r=server.createobject("adodb.recordset")...%>读数据...

<form name="del" method="post" action="alldel.asp" onSubmit="return ConfirmDel();">

<input name=""ID"" type=""checkbox"" onClick=""unselectall()"" id=""ID"" value="&r("id")&">

<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有信息 <input name="submit" type='submit' value='删除选定的信息' >

</form>

.................................
alldel.asp页面如下:

<!--#include file="conn.asp"-->

<%
set reco=server.createobject("ADODB.recordset")
sqlstr="delete from zx where id="&("id")&""
reco.open sqlstr,conn
reco.close
set conn=nothing
Response.Redirect "1.asp"
Response.end
%>
.........................

现在出现问题是

没有选中的情况下直接点 删除选定的信息 就把数据库里的信息全部删除了

另外alldel.asp页面报错

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

ADODB.Recordset 错误 '800a0e78'

对象关闭时,不允许操作。

admin/alldel.asp,行8

<form name="del" method="post" action="alldel.asp" onSubmit="return ConfirmDel();">
应该改为:
<form name="del" method="post" action="alldel.asp" onSubmit="javascript:return ConfirmDel();">
缺少个j“avascript:”,所以程序并没有执行ConfirmDel();。
另一个错误,修改你文件<% %>中的内容为:
<%
set reco=server.createobject("adodb.recordset")
sqlstr="select * from zx where id="&("id")&""
reco.open sql,conn,1,3
while not reco.eof
reco.delete
reco.movenext
wend
reco.close
set reco=nothing
set conn=nothing
Response.Redirect "1.asp"
Response.end
%>