delgroup.asp

来自「本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等」· ASP 代码 · 共 21 行

<!--#include file="../../Connections/oavbsconn.asp" -->
<%

if(session("userssdfgfhtrh") <> "") then Command1__u = session("userssdfgfhtrh")

if(request("id") <> "") then Command1__d = request("id")

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_oavbsconn_STRING
Command1.CommandText = "DELETE FROM 通讯录组别  WHERE id=" + Replace(Command1__d, "'", "''") + " and 用户帐号='" + Replace(Command1__u, "'", "''") + "' "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%response.redirect "addgroup.asp"%>