del_company.asp

一个关于房产的asp程序

<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_system.asp-->
<!--#include file=../include/access.asp-->
<%
  if request("id")="" or isnumeric(request("id"))=false then
  outerr("参数出错了！")
  response.end
  end if
   dim rs,sql,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")
%>