del.asp

来自「网站源代码」· ASP 代码 · 共 23 行

<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<%
dim id
if request("id")<>"" then
id=request("id")
else
response.write "id错误"
end if

set rs=server.createobject("adodb.recordset")
sql="select * from luduan where id="&request("id")
rs.open sql,conn,1,3
if not rs.eof then
rs.delete
else
%>
没有这条记录
<%
end if

response.redirect("luduan.asp")%>