海天腾逸广场:asp制作删除多个上传图片

<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>
<form action="" method="POST">
<tr>
<td height="25" colspan="6" width="727">
 图片查找：<input type="text" name="keyword" maxlength="50" size="18" value="<%=keyword%>"><input type="submit" name="Submit2" value="提交"></td>
</tr></form>
<tr>
<td height="25" colspan="9" width="727">

<%
end sub

function showpage(totalnumber,maxperpage,filename)
dim n

if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="""&filename&"?keyword="& keyword &"""><tr><td align=center> "
if CurrentPage<2 then
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 首页 上一页 "
else
response.write "共<b><font color=red>"&totalnumber&"</font></b>个图片 <a href="&filename&"?page=1&keyword="& keyword &">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&keyword="& keyword &">上一页</a> "
end if

if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&keyword="& keyword &">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&keyword="& keyword &">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>个/页 "
%>
转到：<form method="POST" action="Admin_All.asp">
<input type="text" name="page" size="5" value="<%=Page+1%>"> <input type="submit" value="提交" name="B1">
<%
response.write "</td></tr></FORM></table>"
end function

Sub DelPhoto()
id = SafeRequest("id",1)

sql = "delete * from ImgData where id in ("& id &")"
conn.execute(sql)

Response.Write("<script>alert(""删除成功"");location.href=""Admin_All.asp"";</script>")
Response.End()
End Sub
%>
</td>
</tr>
</table>
</div>
</body>
</html>