del.asp

来自「客户关系管理信息系统的源代码」· ASP 代码 · 共 16 行

<!--#include file="conn.asp" -->
<%
if session("admin")="" then response.redirect"error.asp?id=1"
set rs=server.createobject("adodb.recordset")
'sql="select * from reg where id="&request("id")
SQLcmd = "delete from reg where id="&request("id")
db.Execute SQLcmd
'rs.open sql,db,3,3
'rs("display")=false
'rs.update
'rs.close
db.close
'set rs=nothing
set db=nothing
response.redirect"adminshow.asp"
%>