delgroup.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· 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"%>