del_paper.asp

来自「<1> 优化了部分代码及一些BUG.提高了浏览速度 <2&」· ASP 代码 · 共 32 行

<!--#include file=../include/config.asp-->
<!--#include file=../include/access.asp-->
<!--#include file=../include/conn_news.asp-->
<%
   



   dim rs,sql,id
	
        id=request("id")
		

	sql="delete from [paper] where id="&request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3

%>

<%
        connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath("../mdb/news.asp")
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr

	sql="delete from [paper] where id="&request("id")
	set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
  

  response.redirect Request.ServerVariables("HTTP_REFERER")
%><!--#include file=../include/foot.asp-->