灵魂风暴汉化补丁:哪位大哥帮忙解决asp的问题呀

<form action="" name="form1" method="post">
<%
set rs=server.createobject("adodb.recordset")
if keyword="" then
Sql = "Select * from [ImgData] order by id desc"
else
Sql = "Select * from [ImgData] where Photo_Name like '%"& keyword &"%' order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write "<center><font color=red>还没有添加图片。</font></center>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"Admin_All.asp"
end if
end if
rs.close
set rs = nothing
end if
sub showContent
dim i
i=0
%>
<%do while not rs.eof%>
<tr align="center">
<td height="25" ><%=rs(0)%></td>
<td height="25" ><input type="checkbox" name="id" value="<%=rs(0)%>"></td>
<td height="25" ><a href="?ID=<%=rs(0)%>"><%=Replace(Rs("Photo_Name"),Keyword,"<font color=red><b>"&Keyword&"</b></font>")%></a></td>
<td ><%=rs("Intime")%> </td>
<td ><a target="_blank" href="ShowImg.Asp?id=<%=rs(0)%>">查看</a></td>
<td ><a href="Admin_Edit.asp?id=<%=rs(0)%>">编辑</a></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td height="25" colspan="6" width="727"> 管理操作：全部选择
<input type="checkbox" name="chkall" onClick="javascript:CheckAll(this.form)" value="on">
<input onClick="{if(confirm('确定删除选定的图片吗?\n\n删除后的图片将不能恢复。')){this.document.form1.submit();return true;}return false;}" type=submit value=删除 name=action class="tbutton">
   
<input type="hidden" name="method" value="1">
</td>
</tr>
</form>

点删除按牛只能删除一个,但是要是全部选择就删除不了了