delps.asp

来自「合同管理系统」· ASP 代码 · 共 18 行

<!--#include file=conn.asp-->
<%
  set rs=server.createobject("adodb.recordset")
  sql="select * from ps where name='"&request("n")&"'"
  rs.open sql,conn,3,3
  if rs.eof then
    response.redirect "delps.asp"
  else
    rs.delete
	rs.update
  end if
   rs.close
    response.write "用户删除成功"
    response.write "<br>"
    response.write "<a href=ps.asp>返回</a>"
   set rs=nothing
%>