
<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
call saycardd("评论删除")

   dim id
   id=request.querystring("id")
   if id="" or Isnumeric(id)=Flash then
   Call error("ID无效！")
   end if
   dim rs,sql
    set rs=server.CreateObject ("ADODB.Recordset") 
rs.open "Select * from pin where id="&id ,conn,2,3  
if rs.eof then
response.write("ID无效！")
else
rs.delete    
Response.Write "评论删除成功!"   
end if  
rs.close
set rs=nothing  
conn.close
set conn=nothing%>
<br/>----------<br/>
<a href="adminpin.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[评论管理]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%response.write""
call head3()%>