del.asp

夏茂政府网站

<!--#include file="setting.asp"-->
<!--#include file="../include/Conn.asp"-->
<!--#include file="../include/char.asp" -->
<!--#include file="../Include/check.asp"-->
<!--#include FILE="../Include/Admin_Function.asp"-->
<%CheckAdmin3%>
<%
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
%>