del.asp

来自「社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP」· ASP 代码 · 共 22 行

<!--#include file="cf_conn.asp"-->

<%
dim c2sma
c2sma=trim(request("c2sma"))

set rs=server.createobject("adodb.recordset")
sql="select * from c2s where c2sma='"&c2sma&"'"

rs.open sql,conn,1,3

	if not rs.eof then
rs.delete
rs.close
set rs=nothing
 response.write "<script language='javascript'>window.confirm('信息已经被删除，谢谢你来此发布信息！')</script>"
%><body onload=javascript:window.close()></body> &nbsp;
<%else 
response.write "<script language='javascript'>window.confirm('验证码错误，请返回')</script>"
  response.write "<script language='javascript'>parent.window.history.go(-1);</script>"
end if
%>