Firever Zone
客户端页面
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<script language=JavaScript>
var SelStr='';//声明变量接收选择的值
function ShowSelVal()
{
//获得所选服选框的函数
var MsgStr='您选择了\n';
//循环判断所有服选框
for(var j=0;j<this.SeC.length;j++)
{
if(this.SeC[j].checked)
{
//如果服选框的选中状态属性checked为真
//得到选中复选框的值
MsgStr+='第'+this.SeC[j].value+'个选项\n';
SelStr+=this.SeC[j].value+'|';
}
}
if(MsgStr!='您选择了\n')
alert(MsgStr);
else
alert('您没有选择任何选项');
}
function Page_Load()
{
//网页加载时调用的函数
var TempHTML;
TempHTML='';
//在网页中循环显示复选框
for(var i=0;i<100;i++)
{
TempHTML+='<input type=checkbox value='+i+' name=SeC >第'+i+'个选项<br>';
}
this.ShD.innerHTML=TempHTML;
}
function SelAll()
{
//全选服选框的onClick事件处理函数
for(var a=0;a<this.SeC.length;a++)
{
if(this.SA.checked)
this.SeC[a].checked=true;
else
this.SeC[a].checked=false;
}
}
function SubPage()
{
//页面提交函数
if(confirm('确定要提交吗?'))
{
document.SubForm.SelStr.value=SelStr;
document.SubForm.submit();
}
}
</script>
</head>
<body onLoad=Page_Load() >
<a href=# onClick=ShowSelVal(); >点击察看</a>|<input type=checkbox name=SA onClick=SelAll(); >全选</a>
<input type=button name=SubPage onClick=SubPage() value=提交 >
<div id=ShD></div>
<form name=SubForm action=abc.asp method=post >
<input name=SelStr type=hidden >
</form>
</body>
</html>
服务器页面abc.asp
<!--此处省略数据库打开代码-->
<%
Dim TAry'声明数组变量接收所有选择的ID
Dim TSQL'声明T-SQL语句变量用于向数据库发出删除命令
Dim i'循环变量
IF Request.Form("SelStr")="" Then
'判断字符串为空证明没有被选择任何服选框
Response.Write("您没有选择任何内容,请返回前一页面先选择至少一项。")
Else
'利用Split函数将字符串[类似于"12|23|56|"这样的从客户端接收的字符串]转换为数组[加SPACE防止转换出错误]
TAry=Split(Request.Form("SelStr")&"SPACE","|")
IF UBound(TAry)<>0 Then
'如果数组元素个数不为0则执行以下操作
TSQL="delete * from [tableName] Where "'给数据库删除命令写前缀。
'一下内容将选择的ID坐位数据库删除条件给数据库删除命令字符串
For i=0 To UBound(TAry)-1
TSQL="ID="&TAry(i)&" Or "
Next
'用ADODB.Connection对象[con]的Execute方法向数据库发送删除命令并执行删除操作。
con.Execute(Mid(TSQL,1,Len(TSQL)-4))
Response.Write "所选记录已经全部被删除"
End IF
End IF
%>
[此贴子已经被作者于2006-7-23 14:02:21编辑过]