delete.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 23 行

<%@ LANGUAGE="VBSCRIPT" %>
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file="dbpath/dbpath.asp"-->
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from yqlink where articleid="&request("ID")
   rs.open sql,conn,1,1
   response.redirect "manage.asp"
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing

 

%>