addressList_del.asp 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 - ASP源码程序

www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/addressList/addressList_del.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage=65001
response.Charset=utf-8
projectRootPath = "../../"	'相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#include file="../../connDB.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>通讯录</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css">
<link href="../themes/frmRight/frameRight.css" rel="stylesheet" type="text/css" />
</head>
<body  id="bodyBg1">
<br />
&nbsp; <a href="addressList_manage.asp">通讯录管理</a> | <a href="addressList_add.asp">添加</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
    <dt>通讯录管理</dt>
    <dd>
    	<br />
        <%
		id=request.QueryString("id")
		if (id<>"")then
			sql_del="delete from tAddressList where fid=" & id
			conn.execute(sql_del)
			response.Write("删除成功！！！")
		else
			response.Write("删除不成功！！！")
		end if
		%>

        <br />
    </dd>
</dl>
<br />

</body>
</html>
<%call closeConnDB()%>