uppostforenonecopy.asp

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

<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim bumenpaixu__MMColParam
bumenpaixu__MMColParam = "1"
If (session("bumen") <> "") Then 
  bumenpaixu__MMColParam = session("bumen")
End If
%>
<%
Dim bumenpaixu
Dim bumenpaixu_numRows
Set bumenpaixu = Server.CreateObject("ADODB.Recordset")
bumenpaixu.ActiveConnection = MM_oavbsconn_STRING
bumenpaixu.Source = "SELECT 排序  FROM sms部门表  WHERE 部门 = '" + Replace(bumenpaixu__MMColParam, "'", "''") + "'"
bumenpaixu.CursorType = 0
bumenpaixu.CursorLocation = 2
bumenpaixu.LockType = 1
bumenpaixu.Open()
bumenpaixu_numRows = 0
%>
<%if not bumenpaixu.eof or not bumenpaixu.bof then
dim bumenpaixus
bumenpaixus=bumenpaixu("排序")
end if
%>
<%
Dim userpaixu__MMColParam
userpaixu__MMColParam = "1"
If (session("userssdfgfhtrh") <> "") Then 
  userpaixu__MMColParam = session("userssdfgfhtrh")
End If
%>
<%
Dim userpaixu
Dim userpaixu_numRows
Set userpaixu = Server.CreateObject("ADODB.Recordset")
userpaixu.ActiveConnection = MM_oavbsconn_STRING
userpaixu.Source = "SELECT 排序  FROM usertertggbng  WHERE usersdsfg56 = '" + Replace(userpaixu__MMColParam, "'", "''") + "'"
userpaixu.CursorType = 0
userpaixu.CursorLocation = 2
userpaixu.LockType = 1
userpaixu.Open()
if not userpaixu.eof or not userpaixu.bof then
dim upaixu
upaixu=userpaixu("排序")
end if
userpaixu_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (session("userssdfgfhtrh") <> "") Then 
  Recordset1__MMColParam = session("userssdfgfhtrh")
End If
%>
<%dim ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") '获得真实IP这样的话在本地，在服务器测试都没有问题了

Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 通讯录  WHERE 个人帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
if not Recordset1.eof or not Recordset1.bof then 
if Recordset1("锁定否")="否" then 

if request("办公电话")<>Recordset1("办公电话") then
Recordset1("办公电话")=request("办公电话")
dim s
s=s &"办公电话变更为: " <%=request("办公电话")%>
<font color="#FF0000"><%=now%></font>


end if

if request("手机")<>Recordset1("手机") then
Recordset1("手机")=request("手机")
s=s&"  手机变更为:"&<font color="#FF0000"><%=request("手机")%></font>
end if

if request("email")<>Recordset1("email") then
s=s&"  email变更为:"&<font color="#FF0000"><%=request("email")%></font>
Recordset1("email")=request("email")
end if
if request("部门")<>Recordset1("部门") then
s=s&"  部门变更为:"&<font color="#FF0000"><%=request("部门")%></font>
Recordset1("部门")=request("部门")%>
end if

Recordset1("姓名")=request("姓名")
Recordset1("个人帐号")=session("userssdfgfhtrh")
Recordset1("部门排序")=bumenpaixus
if request("单位")<>Recordset1("单位") then
s=s&"  单位变更为:"&<font color="#FF0000"><%=request("单位")</font>
Recordset1("单位")=request("单位")
end if
if request("分机")<>Recordset1("分机") then
s=s&"  分机变更为:"&<font color="#FF0000"><%=request("分机")</font>
Recordset1("分机")=request("分机")
end if
if request("地址")<>Recordset1("地址") then
s=s&"  地址变更为:"&<font color="#FF0000"><%=request("地址")%></font>
Recordset1("地址")=request("地址")
end if
if request("传真")<>Recordset1("传真") then
Recordset1("传真")=request("传真")
s=s&"  传真变更为:"&<font color="#FF0000"><%=request("传真")%></font>
end if
if request("qq")<>Recordset1("qq") then
s=s&"  QQ变更为:"&<font color="#FF0000"><%=request("QQ")%></font>

Recordset1("QQ")=request("QQ")
END IF
if request("地址")<>Recordset1("地址") then
s=s&"  地址变更为:"&<font color="#FF0000"><%=request("地址")%></font>
Recordset1("地址")=request("地址")
END IF
if request("备注")<>Recordset1("备注") then
s=s&"  备注变更为:"&<font color="#FF0000"><%=request("备注")%></font>

Recordset1("备注")=request("备注")
end if
Recordset1("用户排序")=upaixu
if request("职务")<>Recordset1("职务") then
s=s&"  职务变更为:"&<font color="#FF0000"><%=request("职务")%></font>

Recordset1("职务")=request("职务")
end if

if request("msn")<>Recordset1("msn") then
s=s&"  msn变更为:"&<font color="#FF0000"><%=request("msn")%></font>

Recordset1("MSN")=request("MSN")
end if
if request("直拨电话")<>Recordset1("直拨电话") then
s=s&"  直拨电话变更为:"&<font color="#FF0000"><%=request("直拨电话")%></font>

Recordset1("直拨电话")=request("直拨电话")
end if


if request("qq公开否")="是" then 
Recordset1("qq公开否")=request("qq公开否")
else
Recordset1("qq公开否")="否"

end if
Recordset1("职务")=request("职务")
if request("msn公开否")="是" then 

Recordset1("msn公开否")=request("msn公开否")
else
Recordset1("msn公开否")="否"
end if
if request("email公开否")="是" then 

Recordset1("email公开否")=request("email公开否")
else
Recordset1("email公开否")="否"
end if
Recordset1("锁定否")=request("锁定否")
Recordset1("添加ip")=ip
if request("临时提交")="是" then 

Recordset1("用户临时提交否")="是"
else
Recordset1("用户临时提交否")="否"
end if

Recordset1.update
Recordset1_numRows = 0
%>
<%
Dim up
Dim up_numRows

Set up = Server.CreateObject("ADODB.Recordset")
up.ActiveConnection = MM_oavbsconn_STRING
up.Source = "SELECT * FROM txlgupdasd"
up.CursorType = 0
up.CursorLocation = 3
up.LockType = 3
up.Open()
up.addnew
up("事件名称")="
up_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
up.Close()
Set up = Nothing
%>
<%
userpaixu.Close()
Set userpaixu = Nothing
%>
<%
bumenpaixu.Close()
Set bumenpaixu = Nothing
%>
<script>
{
alert("通讯录更新成功！");location.href="adminmyselfforen.asp"
}
</script>
<%else%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
userpaixu.Close()
Set userpaixu = Nothing
%>
<%
bumenpaixu.Close()
Set bumenpaixu = Nothing
%>
<script>
{
alert("本记录已由系统锁定，无法更新。请联系管理员。");history.go(-1)
}
</script>
<%
response.end()
end if
end if
%>