ccard_d.asp

物业管理和办公自动化系统

<%
'************************************************************************************************
' 文件名: ccard_d.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-30
' 修改历史 :
'   ****年**月**日 ****** 修改内容:******************************************************************
' 功能描述 : 删除一条单位名录信息
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<%
call CheckSecurity()
'********************************************************************************************************
' 服务器端代码

Dim iCardSerial			: iCardSerial = GetParam("serial")

'********************************************************************************************************
' 查询参数CardSerial，如果参数不存在，跳转到出错页面
'-------------------------------------------------------------------------------------------------------------------------------------------------
if IsEmpty(iCardSerial) then
	Server.Transfer("../common/error.asp")
	Response.end
end if

dim sSQL
sSQL = "delete from t_customercard where serial = " & iCardSerial

call ExecuteSQL(dbLocal, sSQL)


'' 转向查询页面
Response.Redirect "ccard_l.asp"
Response.end
%>