<% dim id,TP id=request("id") TP=request("TP") if id="" or Isnumeric(id)=False then Call Error("ID无效！") end if IF TP<>"" then set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from chat where id="&id,conn,1,2 if rs.eof then Call Error("不存在的记录！") end if rs.delete rs.update rs.close set rs=nothing Response.write "删除成功
" Response.write "----------
" response.write"[聊室管理]
" else Response.write "您确认要删除该聊室？
" Response.write "是的
" Response.write "取消" end if conn.close set conn=Nothing response.write"