28,409
社区成员




<script language=javascript>
function CheckAll(form) {
var x = form.elements;
for (var i = 0; i < x.length; i++) {
var e = x[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
</script>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [SubjectItem] where Menu_ZH order by ID desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center'> No data!</p>"
Response.End
end if
%>
<form name="form" id="form" method="post" action="">
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
<%
i=1
do while not rs.EOF and i <=20
if (i mod 2)=1 then
Response.Write(" <tr bgcolor=fefefe>")
else
Response.Write(" <tr bgcolor=efefef>")
end if
%>
<TD align="middle"><%=rs("Menu_ZH")%></TD>
<TD align=middle><input name="SelectID" type="checkbox" id="SelectID" value="<%=rs("PartID")%>"></TD>
</TR>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<TR valign="middle">
<TD align="middle"> </TD>
<TD align=middle>
全选<input type="checkbox" name=chkall onClick="CheckAll(this.form)"> <input type="submit" name="action" class="button"value="删除" onClick="{if(confirm('确定要删除吗?')){this.document.list.submit();return true;}return false;}">
<input type="submit" name="action" class="button"value="更新" onclick="{if(confirm('确定要更新吗?')){this.document.list.submit();return true;}return false;}" /></TD>
</TR>
</TABLE>
</form>
<%
getID=replace(request("SelectID"),"'","")
if request("action")="删除" then
'response.write request("action")
'response.end
call delCase()
end If
if request("action")="更新" then
'response.write request("action")
'response.end
call updateCase()
end If
sub delCase()
if getID="" or isnull(getID) then
response.write "<script>alert('操作失败!');</script>"
response.redirect "test.asp"
response.end
else
conn.Execute("delete * from [table] where ID in ("&getID&")")
response.write "<script>alert('删除成功!');</script>"
response.redirect "test.asp"
response.end
end if
end Sub
sub updateCase()
if getID="" or isnull(getID) then
response.write "<script>alert('操作失败!');</script>"
response.redirect "test.asp"
response.end
else
conn.Execute("update [table] set fieldname='test' where ID in ("&getID&")")
response.write "<script>alert('更新成功!');</script>"
response.redirect "test.asp"
response.end
end if
end Sub
%>
<form name="form1" id="form1" method="post" action="">
<INPUT type=checkbox value=" <%=rs("keyno")%>" name=PartID>
<INPUT onclick="javascript:selectall('form','PartID');" type=checkbox value=checkbox name=select>全选
<INPUT onClick="return sure('form','PartID','Del',this.value)" type=button value=删除 name=ActionDo>
<INPUT onClick="return sure('form','PartID','Update',this.value)" type=button value=更新 name=ActionDo>
</form>
function sure(FormID,FieldName,sort,str){
var k=document.getElementById(FormID);
if(sort=="Cancel")
{
if (!window.confirm("确定要"+str+"吗?"))
{ return false; }
k.Cancels.value = FieldName;
k.Actions.value = sort;
k.submit();
}
}
<%
'刪除
if request.form("ActionDo")="DEL" then
num=request.form("PartID").Count
for i=1 to num
conn.execute("delete from table where PartID="&request.form("PartID")(i))
next
end if
'更新
if request.form("ActionDo")="UPDATE" then
num=request.form("PartID").Count
for i=1 to num
conn.execute("update table set name='a' where PartID="&request.form("PartID")(i))
next
end if
%>