delete.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 21 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<%
   dim sql 
   dim rs
   set rs=server.createobject("adodb.recordset")
   sql="delete from learning where articleid="&request("ID")
   rs.open sql,conn,1,1
   rs.close
   set rs=nothing  
   conn.close
   rs_lar("huoli")=rs_lar("huoli")-1
   rs_lar.update
   rs_lar.close
   set conn=nothing

response.redirect "myarticle.asp?user_id=" & session("u_id")

%>