admin_delete.asp

来自「新的简单易用的公司管理系统」· ASP 代码 · 共 33 行

<!--#include file=conn.asp-->
<!--#include file=admin_chkpass.asp-->

<%
DIM id
id=trim(request("id"))
If id="" or( not isnumeric(id) )then
response.write"<script>alert('"&ewap_(29)&"');window.document.location.href='admin_index.asp'</script>"
response.end
end if
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from news where nid="&id
rs.open sql,cn,3,3

%>
<%
If rs.eof then

response.write"<script>alert('"&ewap_(28)&"');window.document.location.href='admin_index.asp'</script>"
else 
rs.delete
rs.update
response.write"<script>alert('"&ewap_(30)&"');window.document.location.href='admin_index.asp'</script>"
rs.close
set rs=nothing
cn.close
set cn=nothing
end if

%>