del_company.asp

<1> 优化了部分代码及一些BUG.提高了浏览速度 <2> 可以通过会员助手自由管理各种信息 <3> 修正了反馈信息及询价订单错误 <4>

<!--#include file=../include/config.asp-->
<!--#include file=../include/access.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-->