addgrouppost.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request("组别") <> "") Then 
  Recordset1__MMColParam = Request("组别")
End If
%>
<%
Dim Recordset1__u
Recordset1__u = "1"
If (session("userssdfgfhtrh") <> "") Then 
  Recordset1__u = session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 通讯录组别  WHERE 组别 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and 用户帐号='" + Replace(Recordset1__u, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
dim zubie
zubie=request("组别")
if Recordset1.eof and Recordset1.bof then
Recordset1.addnew
Recordset1("组别")=zubie
Recordset1("排序")=request("排序")
Recordset1("用户帐号")=session("userssdfgfhtrh")
Recordset1("姓名")=session("names")
Recordset1("部门")=session("bumen")
Recordset1.update
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%response.redirect("addgroup.asp")%>
<%else
Recordset1.Close()
Set Recordset1 = Nothing
response.write"<script>alert('"&Session("names")&"很抱歉，您提交的"&zubie&"组别已存在，请使用其它组名。');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end()
end if%>