<%
errorMsg = ""
sql = ""
id = Request("id")
subaction = Request("subaction")
urlParam = "functions.asp?action="& action &"&id="& id & LOGINPROPAGATEGET
idList = split(trim(Request("SID")),",")
if ubound(idList)=>0 then
	for i=0 to ubound(idList)
		sql = "delete from bs_words where cid="& id &" and id="& idList(i)
		conn.Execute(sql)
sql = "update my_albums set replynum=replynum-1 where id="& id
		conn.Execute(sql)
	next
	errorMsg = errorMsg &"操作成功！<br>"
end if

if errorMsg <> "" then
	DisplayMessage errorMsg,True
end if
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#CCE0CF" bordercolordark="#FFFFFF" align="center">
<%
i = 0
sql = "select id,title,content,ip,writeDate from bs_words WHERE  kind='photo' AND cid=" & id
rs.Open sql,conn,1,1
if not (rs.Eof and rs.Bof) then
	do while not rs.Eof
%>
  <tr>
    <td width="1" bgcolor="#D4D3D1"><br></td>
    <td width="28" align="center" bgcolor="#E8F4E6"><img src="../images/IconArrowRight1.gif" width="5" height="10"></td>
    <td bgcolor="#E8F4E6" class="a1">时间：<%=rs("writeDate")%>  IP：<%=rs("ip")%>&nbsp;&nbsp;<a href="#" onclick="javascript: if (confirm('真的要删除吗？')) document.URL='<%=urlParam%>&subaction=<%=subaction%>&SID=<%=rs("id")%>';">删除</a></td>
    <td width="1" bgcolor="#D4D3D1"><br></td>
  </tr>
  <tr>
    <td colspan="4" height="1" bgcolor="#D4D3D1"><img src="../images/c.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td width="1" height="8" bgcolor="#D4D3D1"><img src="../images/c.gif" width="1" height="1"></td>
    <td colspan="2" height="1" bgcolor="#ffffff"><img src="../images/c.gif" width="1" height="1"></td>
    <td width="1" height="1" bgcolor="#D4D3D1"><img src="../images/c.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td width="1" bgcolor="#D4D3D1"><br></td>
    <td width="28">&nbsp;</td>
    <td class="a1"><%=rs("title") &"<br>"& rs("content")%></td>
    <td width="1" bgcolor="#D4D3D1"><br></td>
  </tr>
  <tr>
    <td colspan="4" height="1" bgcolor="#D4D3D1"><img src="../images/c.gif" width="1" height="1"></td>
  </tr>
<%
		i = i + 1
		rs.MoveNext
	loop
	else
	response.write "没有任何信息!"
end if
rs.Close
%>
</table>