del.asp

夏茂政府网站

<!--#include file="../../Include/check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../../Include/check.asp"-->
<%
if Request.QueryString("id")<> "" then

id = Request.QueryString("id")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [ad] where id=" & id
rs.Open sql,conn,1,3
rs.Delete 
set rs=nothing
conn.Close
set conn=nothing
Response.Redirect ("list.asp")
else
Response.Write "参数错误"
end if
%>