admin_ad_del.asp

来自「这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你」· ASP 代码 · 共 27 行

<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：[e-mail]
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from ad where adid="&request("ID")  
   conn.execute sql
   set rs=nothing  
   conn.close
   set conn=nothing
   response.redirect "Admin_ad.asp"
%>