del.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 19 行

<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
    <% 
 if WS_S.MemberPriv("WS_FrontSetSystem")<>1 then HX_GoBack "对不起,您的权限不够!",""
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
%>