del_company.asp

来自「使用asp开发的一个标准的房地产管理系统。有销售登记」· ASP 代码 · 共 31 行

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



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

	sql="delete from [company] 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/view.asp")
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr

	sql="delete from [company] 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-->